Skip to content
This repository was archived by the owner on Jan 27, 2022. It is now read-only.

Commit 35b89d0

Browse files
lpcvoidlpcvoid
authored
Added freepascal gui
1 parent 9398f4d commit 35b89d0

File tree

6 files changed

+1172
-0
lines changed

6 files changed

+1172
-0
lines changed

‎gui/knifegui.ctpr‎

Lines changed: 164 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,164 @@
1+
<?xml version="1.0" encoding="UTF-8"?>
2+
<CONFIG>
3+
<ProjectOptions>
4+
<Version Value="12"/>
5+
<PathDelim Value="\"/>
6+
<General>
7+
<SessionStorage Value="InProjectDir"/>
8+
<Title Value="knifegui"/>
9+
<Scaled Value="True"/>
10+
<ResourceType Value="res"/>
11+
<UseXPManifest Value="True"/>
12+
<XPManifest>
13+
<DpiAware Value="True"/>
14+
</XPManifest>
15+
<Icon Value="0"/>
16+
</General>
17+
<BuildModes>
18+
<Item Name="Default" Default="True"/>
19+
<Item Name="Debug">
20+
<CompilerOptions>
21+
<Version Value="11"/>
22+
<PathDelim Value="\"/>
23+
<Target>
24+
<Filename Value="knifegui"/>
25+
</Target>
26+
<SearchPaths>
27+
<IncludeFiles Value="$(ProjOutDir)"/>
28+
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
29+
</SearchPaths>
30+
<Parsing>
31+
<SyntaxOptions>
32+
<IncludeAssertionCode Value="True"/>
33+
</SyntaxOptions>
34+
</Parsing>
35+
<CodeGeneration>
36+
<Checks>
37+
<IOChecks Value="True"/>
38+
<RangeChecks Value="True"/>
39+
<OverflowChecks Value="True"/>
40+
<StackChecks Value="True"/>
41+
</Checks>
42+
<VerifyObjMethodCallValidity Value="True"/>
43+
</CodeGeneration>
44+
<Linking>
45+
<Debugging>
46+
<DebugInfoType Value="dsDwarf2Set"/>
47+
<UseHeaptrc Value="True"/>
48+
<TrashVariables Value="True"/>
49+
<UseExternalDbgSyms Value="True"/>
50+
</Debugging>
51+
<Options>
52+
<Win32>
53+
<GraphicApplication Value="True"/>
54+
</Win32>
55+
</Options>
56+
</Linking>
57+
</CompilerOptions>
58+
</Item>
59+
<Item Name="Release">
60+
<CompilerOptions>
61+
<Version Value="11"/>
62+
<PathDelim Value="\"/>
63+
<Target>
64+
<Filename Value="knifegui"/>
65+
</Target>
66+
<SearchPaths>
67+
<IncludeFiles Value="$(ProjOutDir)"/>
68+
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
69+
</SearchPaths>
70+
<CodeGeneration>
71+
<SmartLinkUnit Value="True"/>
72+
<Optimizations>
73+
<OptimizationLevel Value="3"/>
74+
</Optimizations>
75+
</CodeGeneration>
76+
<Linking>
77+
<Debugging>
78+
<GenerateDebugInfo Value="False"/>
79+
</Debugging>
80+
<LinkSmart Value="True"/>
81+
<Options>
82+
<Win32>
83+
<GraphicApplication Value="True"/>
84+
</Win32>
85+
</Options>
86+
</Linking>
87+
</CompilerOptions>
88+
</Item>
89+
</BuildModes>
90+
<PublishOptions>
91+
<Version Value="2"/>
92+
<UseFileFilters Value="True"/>
93+
</PublishOptions>
94+
<RunParams>
95+
<FormatVersion Value="2"/>
96+
<Modes Count="0"/>
97+
</RunParams>
98+
<RequiredPackages Count="6">
99+
<Item1>
100+
<PackageName Value="pl_KControls"/>
101+
</Item1>
102+
<Item2>
103+
<PackageName Value="pl_graphics32"/>
104+
</Item2>
105+
<Item3>
106+
<PackageName Value="pl_excontrols"/>
107+
</Item3>
108+
<Item4>
109+
<PackageName Value="pl_cindy"/>
110+
</Item4>
111+
<Item5>
112+
<PackageName Value="pl_colorlib"/>
113+
</Item5>
114+
<Item6>
115+
<PackageName Value="adLCL"/>
116+
</Item6>
117+
</RequiredPackages>
118+
<Units>
119+
<Unit>
120+
<Filename Value="knifegui.ppr"/>
121+
<FRMtype Value="0"/>
122+
<IsPartOfProject Value="True"/>
123+
</Unit>
124+
<Unit>
125+
<Filename Value="main.pas"/>
126+
<FRMtype Value="200"/>
127+
<IsPartOfProject Value="True"/>
128+
<ComponentName Value="formMain"/>
129+
<ResourceBaseClass Value="Form"/>
130+
</Unit>
131+
</Units>
132+
</ProjectOptions>
133+
<CompilerOptions>
134+
<Version Value="11"/>
135+
<PathDelim Value="\"/>
136+
<Target>
137+
<Filename Value="knifegui"/>
138+
</Target>
139+
<SearchPaths>
140+
<IncludeFiles Value="$(ProjOutDir)"/>
141+
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
142+
</SearchPaths>
143+
<Linking>
144+
<Options>
145+
<Win32>
146+
<GraphicApplication Value="True"/>
147+
</Win32>
148+
</Options>
149+
</Linking>
150+
</CompilerOptions>
151+
<Debugging>
152+
<Exceptions Count="3">
153+
<Item1>
154+
<Name Value="EAbort"/>
155+
</Item1>
156+
<Item2>
157+
<Name Value="ECodetoolError"/>
158+
</Item2>
159+
<Item3>
160+
<Name Value="EFOpenError"/>
161+
</Item3>
162+
</Exceptions>
163+
</Debugging>
164+
</CONFIG>

‎gui/knifegui.ctps‎

Lines changed: 204 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,204 @@
1+
<?xml version="1.0" encoding="UTF-8"?>
2+
<CONFIG>
3+
<ProjectSession>
4+
<PathDelim Value="\"/>
5+
<Version Value="12"/>
6+
<BuildModes Active="Debug"/>
7+
<Units>
8+
<Unit>
9+
<Filename Value="knifegui.ppr"/>
10+
<FRMtype Value="0"/>
11+
<IsPartOfProject Value="True"/>
12+
<EditorIndex Value="2"/>
13+
<CursorPos X="29" Y="17"/>
14+
<UsageCount Value="20"/>
15+
<Loaded Value="True"/>
16+
</Unit>
17+
<Unit>
18+
<Filename Value="main.pas"/>
19+
<FRMtype Value="200"/>
20+
<IsPartOfProject Value="True"/>
21+
<ComponentName Value="formMain"/>
22+
<ResourceBaseClass Value="Form"/>
23+
<IsVisibleTab Value="True"/>
24+
<TopLine Value="62"/>
25+
<CursorPos X="19" Y="110"/>
26+
<UsageCount Value="20"/>
27+
<Loaded Value="True"/>
28+
<LoadedDesigner Value="True"/>
29+
</Unit>
30+
<Unit>
31+
<Filename Value="C:\codetyphon\fpcsrc\rtl\inc\dynlibh.inc"/>
32+
<FRMtype Value="0"/>
33+
<EditorIndex Value="4"/>
34+
<TopLine Value="15"/>
35+
<CursorPos X="10" Y="55"/>
36+
<UsageCount Value="10"/>
37+
<Loaded Value="True"/>
38+
</Unit>
39+
<Unit>
40+
<Filename Value="C:\codetyphon\typhon\lcl\graphics.pp"/>
41+
<FRMtype Value="0"/>
42+
<UnitName Value="Graphics"/>
43+
<EditorIndex Value="-1"/>
44+
<TopLine Value="1907"/>
45+
<CursorPos X="20" Y="1949"/>
46+
<UsageCount Value="10"/>
47+
</Unit>
48+
<Unit>
49+
<Filename Value="C:\codetyphon\typhon\lcl\lcltype.pp"/>
50+
<FRMtype Value="0"/>
51+
<UnitName Value="LCLType"/>
52+
<EditorIndex Value="3"/>
53+
<TopLine Value="1619"/>
54+
<CursorPos X="3" Y="1659"/>
55+
<UsageCount Value="10"/>
56+
<Loaded Value="True"/>
57+
</Unit>
58+
<Unit>
59+
<Filename Value="C:\codetyphon\fpcsrc\packages\fcl-registry\src\registry.pp"/>
60+
<FRMtype Value="0"/>
61+
<UnitName Value="Registry"/>
62+
<EditorIndex Value="1"/>
63+
<TopLine Value="69"/>
64+
<CursorPos X="98" Y="97"/>
65+
<UsageCount Value="10"/>
66+
<Loaded Value="True"/>
67+
</Unit>
68+
<Unit>
69+
<Filename Value="C:\codetyphon\typhon\lcl\include\radiogroup.inc"/>
70+
<FRMtype Value="0"/>
71+
<EditorIndex Value="-1"/>
72+
<TopLine Value="344"/>
73+
<CursorPos Y="384"/>
74+
<UsageCount Value="10"/>
75+
</Unit>
76+
</Units>
77+
<JumpHistory Count="30" HistoryIndex="29">
78+
<Position1>
79+
<Filename Value="main.pas"/>
80+
<Caret Line="147" Column="58" TopLine="97"/>
81+
</Position1>
82+
<Position2>
83+
<Filename Value="main.pas"/>
84+
<Caret Line="148" Column="58" TopLine="98"/>
85+
</Position2>
86+
<Position3>
87+
<Filename Value="main.pas"/>
88+
<Caret Line="147" Column="58" TopLine="97"/>
89+
</Position3>
90+
<Position4>
91+
<Filename Value="main.pas"/>
92+
<Caret Line="148" Column="58" TopLine="98"/>
93+
</Position4>
94+
<Position5>
95+
<Filename Value="main.pas"/>
96+
<Caret Line="149" Column="58" TopLine="99"/>
97+
</Position5>
98+
<Position6>
99+
<Filename Value="main.pas"/>
100+
<Caret Line="148" Column="58" TopLine="98"/>
101+
</Position6>
102+
<Position7>
103+
<Filename Value="main.pas"/>
104+
<Caret Line="147" Column="58" TopLine="97"/>
105+
</Position7>
106+
<Position8>
107+
<Filename Value="main.pas"/>
108+
<Caret Line="146" Column="58" TopLine="96"/>
109+
</Position8>
110+
<Position9>
111+
<Filename Value="main.pas"/>
112+
<Caret Line="145" Column="58" TopLine="95"/>
113+
</Position9>
114+
<Position10>
115+
<Filename Value="main.pas"/>
116+
<Caret Line="151" Column="58" TopLine="96"/>
117+
</Position10>
118+
<Position11>
119+
<Filename Value="main.pas"/>
120+
<Caret Line="117" TopLine="60"/>
121+
</Position11>
122+
<Position12>
123+
<Filename Value="main.pas"/>
124+
<Caret Line="114" Column="3" TopLine="60"/>
125+
</Position12>
126+
<Position13>
127+
<Filename Value="main.pas"/>
128+
<Caret Line="129" Column="8" TopLine="60"/>
129+
</Position13>
130+
<Position14>
131+
<Filename Value="main.pas"/>
132+
<Caret Line="330" TopLine="232"/>
133+
</Position14>
134+
<Position15>
135+
<Filename Value="main.pas"/>
136+
<Caret Line="127" Column="20" TopLine="61"/>
137+
</Position15>
138+
<Position16>
139+
<Filename Value="main.pas"/>
140+
<Caret Line="88" Column="15" TopLine="62"/>
141+
</Position16>
142+
<Position17>
143+
<Filename Value="main.pas"/>
144+
<Caret Line="126" TopLine="102"/>
145+
</Position17>
146+
<Position18>
147+
<Filename Value="main.pas"/>
148+
<Caret Line="121" Column="19" TopLine="85"/>
149+
</Position18>
150+
<Position19>
151+
<Filename Value="main.pas"/>
152+
<Caret Line="124" TopLine="85"/>
153+
</Position19>
154+
<Position20>
155+
<Filename Value="main.pas"/>
156+
<Caret Line="125" TopLine="85"/>
157+
</Position20>
158+
<Position21>
159+
<Filename Value="main.pas"/>
160+
<Caret Line="126" TopLine="85"/>
161+
</Position21>
162+
<Position22>
163+
<Filename Value="main.pas"/>
164+
<Caret Line="252" TopLine="191"/>
165+
</Position22>
166+
<Position23>
167+
<Filename Value="main.pas"/>
168+
<Caret Line="253" TopLine="191"/>
169+
</Position23>
170+
<Position24>
171+
<Filename Value="main.pas"/>
172+
<Caret Line="254" TopLine="191"/>
173+
</Position24>
174+
<Position25>
175+
<Filename Value="main.pas"/>
176+
<Caret Line="255" TopLine="191"/>
177+
</Position25>
178+
<Position26>
179+
<Filename Value="main.pas"/>
180+
<Caret Line="256" TopLine="191"/>
181+
</Position26>
182+
<Position27>
183+
<Filename Value="main.pas"/>
184+
<Caret Line="260" TopLine="191"/>
185+
</Position27>
186+
<Position28>
187+
<Filename Value="main.pas"/>
188+
<Caret Line="261" TopLine="191"/>
189+
</Position28>
190+
<Position29>
191+
<Filename Value="main.pas"/>
192+
<Caret Line="262" TopLine="191"/>
193+
</Position29>
194+
<Position30>
195+
<Filename Value="main.pas"/>
196+
<Caret Line="257" Column="16" TopLine="191"/>
197+
</Position30>
198+
</JumpHistory>
199+
<RunParams>
200+
<FormatVersion Value="2"/>
201+
<Modes Count="0" ActiveMode=""/>
202+
</RunParams>
203+
</ProjectSession>
204+
</CONFIG>

‎gui/knifegui.ppr‎

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
program knifegui;
2+
3+
{$mode objfpc}{$H+}
4+
5+
uses
6+
{$IFDEF UNIX}{$IFDEF UseCThreads}
7+
cthreads,
8+
{$ENDIF}{$ENDIF}
9+
Interfaces, // this includes the adLCL widgetset
10+
Forms, main
11+
{ you can add units after this };
12+
13+
{$R *.res}
14+
15+
begin
16+
RequireDerivedFormResource:=True;
17+
Application.Scaled:=True;
18+
Application.Initialize;
19+
Application.CreateForm(TformMain, formMain);
20+
Application.Run;
21+
end.
22+

0 commit comments

Comments
 (0)