You've already forked lazarus-ccr
OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
Binary file not shown.
@ -1,85 +1,105 @@
|
||||
<?xml version="1.0"?>
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="7"/>
|
||||
<Version Value="12"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
<MainUnitHasScaledStatement Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default">
|
||||
<local>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</Mode0>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="tponguard"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="5">
|
||||
<Unit0>
|
||||
<Filename Value="exnet.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="44" Y="7"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exnetu"/>
|
||||
<CursorPos X="53" Y="159"/>
|
||||
<TopLine Value="118"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<TopLine Value="118"/>
|
||||
<CursorPos X="59" Y="141"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../source/ognetwrk.pas"/>
|
||||
<UnitName Value="ognetwrk"/>
|
||||
<CursorPos X="68" Y="478"/>
|
||||
<TopLine Value="465"/>
|
||||
<CursorPos X="68" Y="478"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../source/ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="28" Y="1334"/>
|
||||
<TopLine Value="1330"/>
|
||||
<CursorPos X="28" Y="1334"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="35" Y="1349"/>
|
||||
<TopLine Value="1344"/>
|
||||
<CursorPos X="35" Y="1349"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<Position1>
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<Caret Line="141" Column="59" TopLine="118"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<Caret Line="140" Column="59" TopLine="117"/>
|
||||
</Position2>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="8"/>
|
||||
<Version Value="11"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<CodeGeneration>
|
||||
@ -92,7 +112,7 @@
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
<DebugInfoType Value="dsDwarf3"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
@ -100,9 +120,6 @@
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="2">
|
||||
|
||||
@ -7,6 +7,8 @@ uses
|
||||
Exnetu in 'EXNETU.PAS' {Form1}, tponguard;
|
||||
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
|
||||
@ -5,96 +5,119 @@ object Form1: TForm1
|
||||
Width = 490
|
||||
HorzScrollBar.Page = 489
|
||||
VertScrollBar.Page = 316
|
||||
AutoSize = True
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Network Code Example'
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
ClientHeight = 317
|
||||
ClientWidth = 490
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '2.3.0.0'
|
||||
object StatusLbl: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Top = 262
|
||||
Width = 35
|
||||
AnchorSideLeft.Control = Memo1
|
||||
AnchorSideTop.Control = CloseBtn
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 12
|
||||
Height = 15
|
||||
Top = 231
|
||||
Width = 32
|
||||
BorderSpacing.Bottom = 12
|
||||
Caption = 'Status'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 232
|
||||
Height = 13
|
||||
Top = 14
|
||||
Width = 77
|
||||
AnchorSideLeft.Control = CodeBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = CodeBtn
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 181
|
||||
Height = 15
|
||||
Top = 17
|
||||
Width = 72
|
||||
BorderSpacing.Left = 80
|
||||
Caption = 'Current code:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object CodeLbl: TLabel
|
||||
Left = 320
|
||||
Height = 13
|
||||
Top = 14
|
||||
Width = 113
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = CodeBtn
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 265
|
||||
Height = 15
|
||||
Top = 17
|
||||
Width = 96
|
||||
BorderSpacing.Left = 12
|
||||
Caption = '0000000000000000'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object CodeBtn: TButton
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 12
|
||||
Height = 25
|
||||
Top = 8
|
||||
Top = 12
|
||||
Width = 89
|
||||
BorderSpacing.Around = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Enter Code'
|
||||
OnClick = CodeBtnClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 8
|
||||
Height = 209
|
||||
Top = 40
|
||||
Width = 465
|
||||
Color = clBtnFace
|
||||
Lines.Strings = (
|
||||
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
|
||||
'the code is either the incorrect type or that none has been entered. '
|
||||
''
|
||||
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
|
||||
'say that the code is invalid.'
|
||||
''
|
||||
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
|
||||
'the proper "Usage" code). '
|
||||
''
|
||||
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
|
||||
'will cause the TOgNetCode component to report that the code is invalid.'
|
||||
)
|
||||
ReadOnly = True
|
||||
object CloseBtn: TBitBtn
|
||||
AnchorSideTop.Control = Memo1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Memo1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 403
|
||||
Height = 25
|
||||
Top = 226
|
||||
Width = 75
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Bottom = 12
|
||||
Kind = bkClose
|
||||
TabOrder = 1
|
||||
end
|
||||
object CloseBtn: TBitBtn
|
||||
Left = 400
|
||||
Height = 25
|
||||
Top = 256
|
||||
Width = 75
|
||||
Kind = bkClose
|
||||
NumGlyphs = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
object RemoveBtn: TButton
|
||||
Left = 288
|
||||
AnchorSideTop.Control = CloseBtn
|
||||
AnchorSideRight.Control = CloseBtn
|
||||
Left = 302
|
||||
Height = 25
|
||||
Top = 256
|
||||
Top = 226
|
||||
Width = 97
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Remove Code'
|
||||
OnClick = RemoveBtnClick
|
||||
TabOrder = 3
|
||||
TabOrder = 2
|
||||
end
|
||||
object Memo1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = CodeBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 165
|
||||
Top = 49
|
||||
Width = 466
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 12
|
||||
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgNetCode component to report that the code is invalid.'
|
||||
Color = clBtnFace
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
end
|
||||
object OgNetCode1: TOgNetCode
|
||||
OnChecked = CodeChecked
|
||||
OnGetKey = GetKey
|
||||
OnGetCode = GetCode
|
||||
FileName = 'EXNET.NAF'
|
||||
left = 16
|
||||
top = 216
|
||||
Left = 192
|
||||
Top = 208
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,34 +1,51 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3'='#1#3'Top'#3#146#0#5'Wid'
|
||||
+'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#11
|
||||
+'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Example'#11'Font.He'
|
||||
+'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#8
|
||||
+'Position'#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Heigh'
|
||||
+'t'#2#13#3'Top'#3#6#1#5'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNo'
|
||||
+'ne'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13
|
||||
+#3'Top'#2#14#5'Width'#2'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNon'
|
||||
+'e'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13
|
||||
+#3'Top'#2#14#5'Width'#2'q'#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'cl'
|
||||
+'None'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25
|
||||
+#3'Top'#2#8#5'Width'#2'Y'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10
|
||||
+'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Me'
|
||||
+'mo1'#4'Left'#2#8#6'Height'#3#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9
|
||||
+'clBtnFace'#13'Lines.Strings'#1#6'fThe label at the bottom of this form indi'
|
||||
+'cates the status of the code. An invalid code indicates that '#6'Ethe code '
|
||||
+'is either the incorrect type or that none has been entered. '#6#0#6'^If the'
|
||||
+' proper code has not been entered or the ONGUARD.INI file was deleted, the '
|
||||
+'message will '#6#29'say that the code is invalid.'#6#0#6'YUse the "Enter Co'
|
||||
+'de" button to enter a code (the CODEGEN program can be used to generate '#6
|
||||
+#26'the proper "Usage" code). '#6#0#6'\The "Remove Code" button can be used '
|
||||
+'to remove the entered code from the INI file. Doing so '#6'Gwill cause the '
|
||||
+'TOgNetCode component to report that the code is invalid.'#0#8'ReadOnly'#9#8
|
||||
+'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'T'
|
||||
+'op'#3#0#1#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2
|
||||
+#2#0#0#7'TButton'#9'RemoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5
|
||||
+'Width'#2'a'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7
|
||||
+'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#3#0#0#10'TOgNetCode'#10'OgNetCo'
|
||||
+'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
|
||||
+'GetCode'#8'FileName'#6#9'EXNET.NAF'#4'left'#2#16#3'top'#3#216#0#0#0#0
|
||||
+'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#8
|
||||
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Exam'
|
||||
+'ple'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#234#1#8'OnCreate'#7#10'FormC'
|
||||
+'reate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLa'
|
||||
+'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Co'
|
||||
+'ntrol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'H'
|
||||
+'eight'#2#15#3'Top'#3#231#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Ca'
|
||||
+'ption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
|
||||
+'abel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9
|
||||
+'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'Bord'
|
||||
+'erSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Labe'
|
||||
+'l1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'Co'
|
||||
+'deBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Height'#2#15#3
|
||||
+'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6#16'0000000'
|
||||
+'000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'
|
||||
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4
|
||||
+'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'
|
||||
+#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClic'
|
||||
+'k'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorS'
|
||||
+'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
|
||||
+'ideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
|
||||
+#3#147#1#6'Height'#2#25#3'Top'#3#226#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7
|
||||
+'akRight'#0#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2
|
||||
+#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'An'
|
||||
+'chorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'#1#6'Height'#2#25#3'Top'#3
|
||||
+#226#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Ri'
|
||||
+'ght'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'O'
|
||||
+'nClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'Anch'
|
||||
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'An'
|
||||
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
|
||||
+'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
|
||||
+'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this'
|
||||
+' form indicates the status of the code. An invalid code indicates that the '
|
||||
+'code is either the incorrect type or that none has been entered. '#13#10#13
|
||||
+#10'If the proper code has not been entered or the ONGUARD.INI file was dele'
|
||||
+'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E'
|
||||
+'nter Code" button to enter a code (the CODEGEN program can be used to gener'
|
||||
+'ate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be'
|
||||
+' used to remove the entered code from the INI file. Doing so will cause the'
|
||||
+' TOgNetCode component to report that the code is invalid.'#5'Color'#7#9'clB'
|
||||
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#10'TOgNetCode'#10'OgNetCode1'#9
|
||||
+'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCo'
|
||||
+'de'#8'FileName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -13,8 +13,8 @@ type
|
||||
|
||||
TForm1 = class(TForm)
|
||||
CodeBtn: TButton;
|
||||
Memo1: TMemo;
|
||||
CloseBtn: TBitBtn;
|
||||
Memo1: TLabel;
|
||||
StatusLbl: TLabel;
|
||||
Label1: TLabel;
|
||||
CodeLbl: TLabel;
|
||||
|
||||
Reference in New Issue
Block a user