Skip to content

Commit bbc41bf

Browse files
committed
Update tgpclocker.lpr
fix workflow for the example
1 parent 0e34872 commit bbc41bf

File tree

3 files changed

+33
-36
lines changed

3 files changed

+33
-36
lines changed

.github/workflows/make.pas

Lines changed: 11 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -171,9 +171,18 @@
171171
// BUILD-PROJECTS
172172
List := FindAllFiles(GetCurrentDir, '*.lpi');
173173
List.Sort;
174+
// BUILD-PROJECTS
175+
List := FindAllFiles(GetCurrentDir, '*.lpi');
176+
List.Sort;
174177
for BuildAll in List do
175-
if not BuildAll.Contains(DirectorySeparator + 'use' + DirectorySeparator) then
176-
BuildProject(BuildAll);
178+
begin
179+
if BuildAll.Contains(DirectorySeparator + 'use' + DirectorySeparator) then Continue;
180+
if BuildAll.Contains('_synapse.lpi') then Continue;
181+
{$IFDEF MSWINDOWS}
182+
if BuildAll.Contains('tgpclocker') then Continue;
183+
{$ENDIF}
184+
BuildProject(BuildAll);
185+
end;
177186
finally
178187
List.Free;
179188
end;

examples/linux_pclocker/tgpclocker.lpr

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,9 +4,9 @@
44

55
uses
66
{$IFDEF UNIX}
7-
cthreads,
7+
cthreads, Unix, xlib, x, CairoXlib,
88
{$ENDIF}
9-
Classes, SysUtils, Unix, CustApp, process, tgsendertypes, tgtypes, xlib, x, Cairo, CairoXlib;
9+
Classes, SysUtils, CustApp, process, tgsendertypes, tgtypes, Cairo;
1010

1111
type
1212

examples/linux_pclocker/tgpclocker.lps

Lines changed: 20 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -8,8 +8,7 @@
88
<Filename Value="tgpclocker.lpr"/>
99
<IsPartOfProject Value="True"/>
1010
<IsVisibleTab Value="True"/>
11-
<TopLine Value="90"/>
12-
<CursorPos X="21" Y="108"/>
11+
<CursorPos X="69" Y="9"/>
1312
<UsageCount Value="30"/>
1413
<Loaded Value="True"/>
1514
</Unit>
@@ -46,14 +45,19 @@
4645
</Unit>
4746
<Unit>
4847
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
49-
<EditorIndex Value="1"/>
48+
<EditorIndex Value="-1"/>
5049
<TopLine Value="626"/>
5150
<CursorPos X="63" Y="638"/>
5251
<UsageCount Value="10"/>
53-
<Loaded Value="True"/>
52+
</Unit>
53+
<Unit>
54+
<Filename Value="../../../../../../../../laz-4.6/fpcsrc/rtl/unix/unix.pp"/>
55+
<UnitName Value="Unix"/>
56+
<EditorIndex Value="-1"/>
57+
<UsageCount Value="10"/>
5458
</Unit>
5559
</Units>
56-
<JumpHistory HistoryIndex="11">
60+
<JumpHistory HistoryIndex="16">
5761
<Position>
5862
<Filename Value="tgpclocker.lpr"/>
5963
<Caret Line="86" TopLine="62"/>
@@ -100,43 +104,27 @@
100104
</Position>
101105
<Position>
102106
<Filename Value="tgpclocker.lpr"/>
103-
<Caret Line="108" Column="17" TopLine="90"/>
107+
<Caret Line="108" Column="21" TopLine="90"/>
104108
</Position>
105109
<Position>
106-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
107-
<Caret Line="638" Column="63" TopLine="624"/>
108-
</Position>
109-
<Position>
110-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
111-
<Caret Line="754" Column="23" TopLine="728"/>
112-
</Position>
113-
<Position>
114-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
115-
<Caret Line="1793" Column="36" TopLine="1767"/>
116-
</Position>
117-
<Position>
118-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
119-
<Caret Line="1795" Column="19" TopLine="1769"/>
120-
</Position>
121-
<Position>
122-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
123-
<Caret Line="2248" Column="29" TopLine="2222"/>
110+
<Filename Value="tgpclocker.lpr"/>
111+
<Caret Line="9" Column="22"/>
124112
</Position>
125113
<Position>
126-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
127-
<Caret Line="2276" Column="29" TopLine="2250"/>
114+
<Filename Value="tgpclocker.lpr"/>
115+
<Caret Line="10" Column="37"/>
128116
</Position>
129117
<Position>
130-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
131-
<Caret Line="2397" Column="37" TopLine="2371"/>
118+
<Filename Value="tgpclocker.lpr"/>
119+
<Caret Line="8" Column="3"/>
132120
</Position>
133121
<Position>
134-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
135-
<Caret Line="2399" Column="11" TopLine="2373"/>
122+
<Filename Value="tgpclocker.lpr"/>
123+
<Caret Line="11" Column="67"/>
136124
</Position>
137125
<Position>
138-
<Filename Value="../../f323l30fix/config_lazarus/onlinepackagemanager/packages/FpTelegram/tgsendertypes.pas"/>
139-
<Caret Line="2539" Column="11" TopLine="2513"/>
126+
<Filename Value="tgpclocker.lpr"/>
127+
<Caret Line="7" Column="13"/>
140128
</Position>
141129
</JumpHistory>
142130
<RunParams>

0 commit comments

Comments
 (0)