You've already forked lazarus-ccr
OnGuard: Rework sample projects.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8721 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -60,14 +60,14 @@
|
||||
<UnitName Value="Exsnregu"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="88"/>
|
||||
<CursorPos X="24" Y="102"/>
|
||||
<TopLine Value="89"/>
|
||||
<CursorPos X="33" Y="106"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<Position1>
|
||||
<Filename Value="exsnregu.pas"/>
|
||||
<Caret Line="102" Column="24" TopLine="88"/>
|
||||
@ -76,6 +76,10 @@
|
||||
<Filename Value="exsnregu.pas"/>
|
||||
<Caret Line="101" Column="24" TopLine="87"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="exsnregu.pas"/>
|
||||
<Caret Line="105" Column="33" TopLine="88"/>
|
||||
</Position3>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
||||
@ -18,7 +18,7 @@ object Form1: TForm1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 234
|
||||
Top = 245
|
||||
Width = 32
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Status'
|
||||
@ -67,15 +67,16 @@ object Form1: TForm1
|
||||
TabOrder = 0
|
||||
end
|
||||
object CloseBtn: TBitBtn
|
||||
AnchorSideTop.Control = Memo1
|
||||
AnchorSideTop.Control = Bevel1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 412
|
||||
Height = 25
|
||||
Top = 229
|
||||
Top = 240
|
||||
Width = 75
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Kind = bkClose
|
||||
@ -86,7 +87,7 @@ object Form1: TForm1
|
||||
AnchorSideRight.Control = CloseBtn
|
||||
Left = 311
|
||||
Height = 25
|
||||
Top = 229
|
||||
Top = 240
|
||||
Width = 97
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 4
|
||||
@ -95,7 +96,7 @@ object Form1: TForm1
|
||||
OnClick = RemoveBtnClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object Memo1: TLabel
|
||||
object Info: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = CodeBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
@ -112,11 +113,24 @@ object Form1: TForm1
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
AnchorSideLeft.Control = Info
|
||||
AnchorSideTop.Control = Info
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Info
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 3
|
||||
Top = 229
|
||||
Width = 479
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object OgSerialNumberCode1: TOgSerialNumberCode
|
||||
OnChecked = CodeChecked
|
||||
OnGetKey = GetKey
|
||||
OnGetCode = GetCode
|
||||
Left = 160
|
||||
Top = 208
|
||||
Left = 168
|
||||
Top = 216
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,7 +7,7 @@ LazarusResources.Add('TForm1','FORMDATA',[
|
||||
+'e Example'#12'ClientHeight'#3'0'#1#11'ClientWidth'#3#239#1#8'Position'#7#14
|
||||
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
|
||||
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#234#0
|
||||
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#245#0
|
||||
+#5'Width'#2' '#18'BorderSpacing.Left'#2#8#7'Caption'#6#6'Status'#5'Color'#7#6
|
||||
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'
|
||||
+#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
|
||||
@ -22,30 +22,35 @@ LazarusResources.Add('TForm1','FORMDATA',[
|
||||
+'er'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
|
||||
+#8#5'Width'#2'Y'#20'BorderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0
|
||||
+#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
|
||||
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anchor'
|
||||
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#229#0
|
||||
+#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2
|
||||
+#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'T'
|
||||
+'Button'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideR'
|
||||
+'ight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Height'#2#25#3'Top'#3#229#0#5
|
||||
+'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4
|
||||
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7
|
||||
+#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft'
|
||||
+'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTo'
|
||||
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
|
||||
+'Right.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180#0#3'Top'#2')'#5'Widt'
|
||||
+'h'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A'
|
||||
+'round'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom of this form indi'
|
||||
+'cates the status of the code. An invalid code indicates that the code is ei'
|
||||
+'ther 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 p'
|
||||
+'roper "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 TOgSeria'
|
||||
+'lNumberCode component to report that the code is invalid.'#5'Color'#7#9'clB'
|
||||
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#19'TOgSerialNumberCode'#19'OgSe'
|
||||
+'rialNumberCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'O'
|
||||
+'nGetCode'#7#7'GetCode'#4'Left'#3#160#0#3'Top'#3#208#0#0#0#0
|
||||
+#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorS'
|
||||
+'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Ancho'
|
||||
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#240
|
||||
+#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2
|
||||
+#8#19'BorderSpacing.Right'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkCl'
|
||||
+'ose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7
|
||||
+#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Heig'
|
||||
+'ht'#2#25#3'Top'#3#240#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19
|
||||
+'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11
|
||||
+'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4
|
||||
+'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'C'
|
||||
+'odeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
|
||||
+#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180
|
||||
+#0#3'Top'#2')'#5'Width'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
|
||||
+#20'BorderSpacing.Around'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom'
|
||||
+' of this form indicates the status of the code. An invalid code indicates t'
|
||||
+'hat 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'U'
|
||||
+'se 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" butt'
|
||||
+'on can be used to remove the entered code from the INI file. Doing so will '
|
||||
+'cause the TOgSerialNumberCode component to report that the code is invalid.'
|
||||
+#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bev'
|
||||
+'el1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Inf'
|
||||
+'o'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'In'
|
||||
+'fo'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'
|
||||
+#3#229#0#5'Width'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Sh'
|
||||
+'ape'#7#9'bsTopLine'#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCode1'#9'O'
|
||||
+'nChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCod'
|
||||
+'e'#4'Left'#3#168#0#3'Top'#3#216#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -5,16 +5,17 @@ interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes,Controls, Forms, Dialogs,
|
||||
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
|
||||
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Bevel1: TBevel;
|
||||
CodeBtn: TButton;
|
||||
CloseBtn: TBitBtn;
|
||||
Memo1: TLabel;
|
||||
Info: TLabel;
|
||||
StatusLbl: TLabel;
|
||||
Label1: TLabel;
|
||||
CodeLbl: TLabel;
|
||||
|
||||
Reference in New Issue
Block a user