pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.

Browse Source 
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
2023-02-17 16:28:47 +00:00
parent 36eff03740
commit a9c3a3022c
152 changed files with 6033 additions and 3578 deletions
Download Patch File Download Diff File Expand all files Collapse all files

133
components/onguard/examples/exsrnm1/exsrnm1.lpi
View File

@ -1,196 +1,213 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/>
<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 &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -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="3">
<Unit0>
<Filename Value="exsrnm1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Exsrnm1"/>
<CursorPos X="9" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exsrnmu1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exsrnmu1"/>
<CursorPos X="27" Y="6"/>
<TopLine Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="164"/>
<CursorPos X="48" Y="181"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="exsrnmu2.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="SNEntryDlg"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exsrnmu2"/>
<CursorPos X="3" Y="35"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="11"/>
<EditorIndex Value="2"/>
<CursorPos X="16" Y="23"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="124" Column="1" TopLine="107"/>
<Caret Line="143" TopLine="126"/>
</Position1>
<Position2>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="125" Column="1" TopLine="108"/>
<Caret Line="122" TopLine="105"/>
</Position2>
<Position3>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="127" Column="1" TopLine="110"/>
<Caret Line="161" TopLine="144"/>
</Position3>
<Position4>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="128" Column="1" TopLine="111"/>
<Caret Line="122" TopLine="105"/>
</Position4>
<Position5>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="129" Column="1" TopLine="112"/>
<Caret Line="120" TopLine="103"/>
</Position5>
<Position6>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="131" Column="1" TopLine="114"/>
<Caret Line="163" TopLine="146"/>
</Position6>
<Position7>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="137" Column="1" TopLine="120"/>
<Caret Line="120" TopLine="103"/>
</Position7>
<Position8>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="138" Column="1" TopLine="121"/>
<Caret Line="86" TopLine="69"/>
</Position8>
<Position9>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="142" Column="1" TopLine="125"/>
<Caret Line="97" TopLine="80"/>
</Position9>
<Position10>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="143" Column="1" TopLine="126"/>
<Caret Line="101" TopLine="84"/>
</Position10>
<Position11>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="152" Column="1" TopLine="135"/>
<Caret Line="102" TopLine="85"/>
</Position11>
<Position12>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="153" Column="1" TopLine="136"/>
<Caret Line="104" TopLine="87"/>
</Position12>
<Position13>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="154" Column="1" TopLine="137"/>
<Caret Line="105" TopLine="88"/>
</Position13>
<Position14>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="155" Column="1" TopLine="138"/>
<Caret Line="108" TopLine="91"/>
</Position14>
<Position15>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="143" Column="1" TopLine="126"/>
<Filename Value="exsrnmu2.pas"/>
<Caret Line="35" Column="3"/>
</Position15>
<Position16>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="157" Column="1" TopLine="140"/>
<Caret Line="86" TopLine="73"/>
</Position16>
<Position17>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="143" Column="1" TopLine="126"/>
<Caret Line="97" TopLine="73"/>
</Position17>
<Position18>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="122" Column="1" TopLine="105"/>
<Caret Line="101" TopLine="73"/>
</Position18>
<Position19>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="161" Column="1" TopLine="144"/>
<Caret Line="102" TopLine="73"/>
</Position19>
<Position20>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="122" Column="1" TopLine="105"/>
<Caret Line="104" TopLine="74"/>
</Position20>
<Position21>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="120" Column="1" TopLine="103"/>
<Caret Line="105" TopLine="75"/>
</Position21>
<Position22>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="163" Column="1" TopLine="146"/>
<Caret Line="108" TopLine="78"/>
</Position22>
<Position23>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="120" Column="1" TopLine="103"/>
<Caret Line="102" TopLine="78"/>
</Position23>
<Position24>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="86" Column="1" TopLine="69"/>
<Caret Line="110" TopLine="80"/>
</Position24>
<Position25>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="97" Column="1" TopLine="80"/>
<Caret Line="111" TopLine="82"/>
</Position25>
<Position26>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="101" Column="1" TopLine="84"/>
<Caret Line="84" TopLine="76"/>
</Position26>
<Position27>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="102" Column="1" TopLine="85"/>
<Caret Line="176" TopLine="151"/>
</Position27>
<Position28>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="104" Column="1" TopLine="87"/>
<Caret Line="179" TopLine="151"/>
</Position28>
<Position29>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="105" Column="1" TopLine="88"/>
<Caret Line="86" TopLine="68"/>
</Position29>
<Position30>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="108" Column="1" TopLine="91"/>
<Caret Line="78" Column="16" TopLine="68"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -203,7 +220,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -211,13 +228,13 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="exsrnmu1.pas"/>
<Line Value="121"/>
</Item1>

2
components/onguard/examples/exsrnm1/exsrnm1.lpr
View File

@ -9,6 +9,8 @@ uses
Exsrnmu2 in 'EXSRNMU2.PAS' {SNEntryDlg}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

42
components/onguard/examples/exsrnm1/exsrnmu1.lfm
View File

@ -7,46 +7,56 @@ object Form1: TForm1
VertScrollBar.Page = 185
ActiveControl = Memo1
Caption = 'Serial Number Example'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 186
ClientWidth = 240
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 38
Height = 13
Top = 96
Width = 51
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 91
Width = 44
Alignment = taCenter
BorderSpacing.Left = 6
Caption = 'Serial #: '
Color = clNone
ParentColor = False
end
object Memo1: TMemo
Left = 3
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 79
Top = 4
Top = 6
Width = 223
BorderSpacing.Around = 6
Lines.Strings = (
'If you can edit this, then your program was '
'allowed to run'
'If you can edit this, then your program was allowed to run'
)
ScrollBars = ssVertical
TabOrder = 0
end
object CloseBtn: TBitBtn
Left = 72
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 76
Height = 33
Top = 114
Top = 112
Width = 89
BorderSpacing.Top = 6
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
end
object OgSerialNumberCode1: TOgSerialNumberCode
OnChecked = OgSerialNumberCode1Checked
OnGetKey = OgSerialNumberCode1GetKey
OnGetCode = OgSerialNumberCode1GetCode
left = 128
top = 16
Left = 128
Top = 16
end
end

33
components/onguard/examples/exsrnm1/exsrnmu1.lrs
View File

@ -1,19 +1,24 @@
{ 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#157#1#6'Height'#3#186#0#3'Top'#3#202#1#5
+'Width'#3#240#0#18'HorzScrollBar.Page'#3#239#0#18'VertScrollBar.Page'#3#185#0
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number Example'#10'Font'
+'.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
+#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#6'Label1'#4'Left'#2'&'#6'Heigh'
+'t'#2#13#3'Top'#2'`'#5'Width'#2'3'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10
+'Serial #: '#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4
+'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'#3#223#0#13'Lines.Strings'#1#6
+',If you can edit this, then your program was '#6#14'allowed to run'#0#10'Sc'
+'rollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Lef'
+'t'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'Num'
+'Glyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCo'
+'de1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8'OnGetKey'#7#25'OgSeria'
+'lNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberCode1GetCode'#4'left'#3
+#128#0#3'top'#2#16#0#0#0
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number Example'#12'Clie'
+'ntHeight'#3#186#0#11'ClientWidth'#3#240#0#8'Position'#7#14'poScreenCenter'
+#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#15#3'Top'#2'['#5'Width'#2','#9'Alignment'
+#7#8'taCenter'#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'Serial #: '#5'Colo'
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Co'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'
+#2'O'#3'Top'#2#6#5'Width'#3#223#0#20'BorderSpacing.Around'#2#6#13'Lines.Stri'
+'ngs'#1#6':If you can edit this, then your program was allowed to run'#0#10
+'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22
+'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
+'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2'L'#6'Height'#2'!'#3'Top'#2'p'#5'Width'#2'Y'#17'BorderSpacing.Top'#2
+#6#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'TOgSerialNumberCode'#19'OgSer'
+'ialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8'OnGetKey'#7
+#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberCode1GetCode'
+#4'Left'#3#128#0#3'Top'#2#16#0#0#0
]);

75
components/onguard/examples/exsrnm1/exsrnmu2.lfm
View File

@ -6,69 +6,104 @@ object SNEntryDlg: TSNEntryDlg
HorzScrollBar.Page = 246
VertScrollBar.Page = 165
ActiveControl = SNText
AutoSize = True
Caption = 'Serial Number'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 166
ClientWidth = 247
LCLVersion = '2.3.0.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = SNText
AnchorSideTop.Side = asrCenter
Left = 8
Height = 13
Top = 40
Width = 18
Height = 15
Top = 35
Width = 15
BorderSpacing.Left = 8
Caption = 'SN'
Color = clNone
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeText
AnchorSideTop.Side = asrCenter
Left = 8
Height = 13
Height = 15
Top = 66
Width = 31
Width = 28
BorderSpacing.Left = 8
Caption = 'Code'
Color = clNone
ParentColor = False
end
object Label3: TLabel
Left = 40
Height = 13
Top = 7
Width = 193
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner
Left = 34
Height = 15
Top = 8
Width = 178
BorderSpacing.Around = 8
Caption = 'Call your Vendor NOW to register!'
Color = clNone
ParentColor = False
end
object SNText: TEdit
AnchorSideLeft.Control = CodeText
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CodeText
AnchorSideRight.Side = asrBottom
Left = 44
Height = 20
Top = 36
Width = 121
Height = 23
Top = 31
Width = 185
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
end
object CodeText: TEdit
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
Left = 44
Height = 20
Height = 23
Top = 62
Width = 185
BorderSpacing.Left = 8
TabOrder = 1
end
object OKBtn: TBitBtn
Left = 23
AnchorSideRight.Control = Bevel1
Left = 28
Height = 33
Top = 94
Width = 89
Anchors = [akTop, akRight]
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 2
end
object CancelBtn: TBitBtn
Left = 127
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
Left = 129
Height = 33
Top = 94
Width = 89
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Kind = bkCancel
NumGlyphs = 0
OnClick = CancelBtnClick
TabOrder = 3
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
Left = 117
Height = 32
Top = 89
Width = 12
Shape = bsSpacer
end
end

47
components/onguard/examples/exsrnm1/exsrnmu2.lrs
View File

@ -1,21 +1,36 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TSNEntryDlg','FORMDATA',[
'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#4'Left'#3#147#1#6'Height'#3#166#0#3'Top'
+#3#26#1#5'Width'#3#247#0#18'HorzScrollBar.Page'#3#246#0#18'VertScrollBar.Pag'
+'e'#3#165#0#13'ActiveControl'#7#6'SNText'#7'Caption'#6#13'Serial Number'#10
+'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Se'
+'rif'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'('#5'Width'#2
+#18#7'Caption'#6#2'SN'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6
+'Label2'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'B'#5'Width'#2#31#7'Caption'#6#4
+'Code'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'
+#2'('#6'Height'#2#13#3'Top'#2#7#5'Width'#3#193#0#7'Caption'#6'!Call your Ven'
+'dor NOW to register!'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#6
+'SNText'#4'Left'#2','#6'Height'#2#20#3'Top'#2'$'#5'Width'#2'y'#8'TabOrder'#2
+#0#0#0#5'TEdit'#8'CodeText'#4'Left'#2','#6'Height'#2#20#3'Top'#2'>'#5'Width'
+#3#185#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'OKBtn'#4'Left'#2#23#6'Height'#2'!'
+#3'Top'#2'^'#5'Width'#2'Y'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'
+#2#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#2''#6'Height'#2'!'
+#3'Top'#2'^'#5'Width'#2'Y'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnClick'
+#7#14'CancelBtnClick'#8'TabOrder'#2#3#0#0#0
+'e'#3#165#0#13'ActiveControl'#7#6'SNText'#8'AutoSize'#9#7'Caption'#6#13'Seri'
+'al Number'#12'ClientHeight'#3#166#0#11'ClientWidth'#3#247#0#10'LCLVersion'#6
+#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'A'
+'nchorSideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L'
+'eft'#2#8#6'Height'#2#15#3'Top'#2'#'#5'Width'#2#15#18'BorderSpacing.Left'#2#8
+#7'Caption'#6#2'SN'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
+'abel2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8
+'CodeText'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3
+'Top'#2'B'#5'Width'#2#28#18'BorderSpacing.Left'#2#8#7'Caption'#6#4'Code'#5'C'
+'olor'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#22'AnchorSideLe'
+'ft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSide'
+'Top.Control'#7#5'Owner'#4'Left'#2'"'#6'Height'#2#15#3'Top'#2#8#5'Width'#3
+#178#0#20'BorderSpacing.Around'#2#8#7'Caption'#6'!Call your Vendor NOW to re'
+'gister!'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#6'SNText'#22'A'
+'nchorSideLeft.Control'#7#8'CodeText'#21'AnchorSideTop.Control'#7#6'Label3'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#8'CodeT'
+'ext'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2','#6'Height'#2#23#3
+'Top'#2#31#5'Width'#3#185#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
+'TabOrder'#2#0#0#0#5'TEdit'#8'CodeText'#22'AnchorSideLeft.Control'#7#6'Label'
+'2'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2','#6'Height'#2#23#3'Top'
+#2'>'#5'Width'#3#185#0#18'BorderSpacing.Left'#2#8#8'TabOrder'#2#1#0#0#7'TBit'
+'Btn'#5'OKBtn'#23'AnchorSideRight.Control'#7#6'Bevel1'#4'Left'#2#28#6'Height'
+#2'!'#3'Top'#2'^'#5'Width'#2'Y'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7
+#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'CancelBtn'#22
+'AnchorSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4
+'Left'#3#129#0#6'Height'#2'!'#3'Top'#2'^'#5'Width'#2'Y'#19'BorderSpacing.Rig'
+'ht'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14
+'CancelBtnClick'#8'TabOrder'#2#3#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.C'
+'ontrol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#4'Left'#2'u'#6'He'
+'ight'#2' '#3'Top'#2'Y'#5'Width'#2#12#5'Shape'#7#8'bsSpacer'#0#0#0
]);

8
components/onguard/examples/exsrnm1/exsrnmu2.pas
View File

@ -5,10 +5,14 @@ interface
uses
SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons,LResources;
Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls;
type
{ TSNEntryDlg }
TSNEntryDlg = class(TForm)
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
SNText: TEdit;
@ -28,8 +32,6 @@ var
implementation
procedure TSNEntryDlg.CancelBtnClick(Sender: TObject);
begin
Close;