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
@ -1,45 +1,54 @@
|
||||
<?xml version="1.0"?>
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
<Scaled Value="True"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
|
||||
<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="14">
|
||||
<Unit0>
|
||||
<Filename Value="exdmod.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="76" Y="14"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UnitName Value="Exdmod"/>
|
||||
<CursorPos X="76" Y="18"/>
|
||||
<UsageCount Value="26"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
@ -48,11 +57,12 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdmodu1"/>
|
||||
<CursorPos X="3" Y="212"/>
|
||||
<TopLine Value="206"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="199"/>
|
||||
<CursorPos X="54" Y="211"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
@ -61,76 +71,72 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdmodu2"/>
|
||||
<CursorPos X="67" Y="49"/>
|
||||
<TopLine Value="19"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="20"/>
|
||||
<CursorPos X="70" Y="32"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="1" Y="2088"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<TopLine Value="2067"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<CursorPos Y="2088"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="1" Y="522"/>
|
||||
<TopLine Value="495"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<TopLine Value="495"/>
|
||||
<CursorPos Y="522"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\source\onguard.inc"/>
|
||||
<CursorPos X="1" Y="67"/>
|
||||
<TopLine Value="47"/>
|
||||
<CursorPos Y="67"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="usr\share\fpcsrc\rtl\inc\systemh.inc"/>
|
||||
<CursorPos X="3" Y="350"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="usr\share\fpcsrc\rtl\inc\system.inc"/>
|
||||
<CursorPos X="14" Y="511"/>
|
||||
<TopLine Value="500"/>
|
||||
<CursorPos X="14" Y="511"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="..\..\..\lazarus\lcl\interfaces\gtk\gtklclintf.inc"/>
|
||||
<CursorPos X="1" Y="365"/>
|
||||
<TopLine Value="346"/>
|
||||
<CursorPos Y="365"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="exdmodu2.lfm"/>
|
||||
<CursorPos X="28" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
<DefaultSyntaxHighlighter Value="LFM"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="exdmodu1.lfm"/>
|
||||
<CursorPos X="28" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
<DefaultSyntaxHighlighter Value="LFM"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="..\..\source\qonguard2.pas"/>
|
||||
<ComponentName Value="CodeGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard2"/>
|
||||
<CursorPos X="17" Y="11"/>
|
||||
<TopLine Value="61"/>
|
||||
<CursorPos X="17" Y="11"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
@ -138,9 +144,7 @@
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="13" Y="4"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
@ -148,156 +152,154 @@
|
||||
<ComponentName Value="ModifierFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard6"/>
|
||||
<CursorPos X="49" Y="61"/>
|
||||
<TopLine Value="42"/>
|
||||
<CursorPos X="49" Y="61"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
<Caret Line="510" TopLine="489"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
<Caret Line="509" TopLine="488"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
<Caret Line="510" TopLine="489"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
<Caret Line="512" TopLine="491"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
<Caret Line="515" TopLine="494"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
<Caret Line="516" TopLine="495"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
<Caret Line="522" TopLine="495"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
<Caret Line="517" TopLine="496"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
<Caret Line="516" TopLine="495"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="512" Column="1" TopLine="491"/>
|
||||
<Caret Line="522" TopLine="495"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="515" Column="1" TopLine="494"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" TopLine="155"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="516" Column="1" TopLine="495"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="177" TopLine="156"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="522" Column="1" TopLine="495"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="179" TopLine="158"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="517" Column="1" TopLine="496"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="167" Column="37" TopLine="160"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="516" Column="1" TopLine="495"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="182" TopLine="161"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="522" Column="1" TopLine="495"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1179" TopLine="1158"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" Column="1" TopLine="155"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1180" TopLine="1159"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="177" Column="1" TopLine="156"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1181" TopLine="1160"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="179" Column="1" TopLine="158"/>
|
||||
<Caret Line="184" TopLine="163"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="167" Column="37" TopLine="160"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2085" TopLine="2064"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="182" Column="1" TopLine="161"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2086" TopLine="2065"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1179" Column="1" TopLine="1158"/>
|
||||
<Caret Line="2087" Column="40" TopLine="2066"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1180" Column="1" TopLine="1159"/>
|
||||
<Caret Line="2088" TopLine="2067"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1181" Column="1" TopLine="1160"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="188" TopLine="137"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="184" Column="1" TopLine="163"/>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<Caret Line="24" Column="51" TopLine="20"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2085" Column="1" TopLine="2064"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="211" Column="75" TopLine="206"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2086" Column="1" TopLine="2065"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" TopLine="156"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2087" Column="40" TopLine="2066"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="175" TopLine="155"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2088" Column="1" TopLine="2067"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="178" Column="27" TopLine="156"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="188" Column="1" TopLine="137"/>
|
||||
<Caret Line="45" Column="14" TopLine="24"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="8"/>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<DebugInfoType Value="dsDwarf3"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="1">
|
||||
<Item1>
|
||||
<Source Value="exdmodu1.pas"/>
|
||||
<Line Value="176"/>
|
||||
</Item1>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
|
||||
@ -7,7 +7,11 @@ uses
|
||||
Exdmodu1 in 'EXDMODU1.PAS' {Form1},
|
||||
Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Scaled:=True;
|
||||
Application.Title:='';
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TfrmMain, frmMain);
|
||||
Application.Run;
|
||||
|
||||
@ -3,52 +3,61 @@ object frmMain: TfrmMain
|
||||
Height = 186
|
||||
Top = 223
|
||||
Width = 240
|
||||
ActiveControl = Memo1
|
||||
AutoSize = True
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Serial Number Example'
|
||||
ClientHeight = 186
|
||||
ClientWidth = 240
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnActivate = FormActivate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
LCLVersion = '2.3.0.0'
|
||||
object Label1: TLabel
|
||||
Left = 38
|
||||
Height = 14
|
||||
Top = 96
|
||||
Width = 43
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = Memo1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 98
|
||||
Height = 15
|
||||
Top = 54
|
||||
Width = 44
|
||||
Alignment = taCenter
|
||||
Caption = 'Serial #: '
|
||||
ParentColor = False
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 3
|
||||
Height = 79
|
||||
Top = 4
|
||||
Width = 223
|
||||
Lines.Strings = (
|
||||
'If you can edit this, then your program was '
|
||||
'allowed to run'
|
||||
)
|
||||
ScrollBars = ssVertical
|
||||
object CloseBtn: TBitBtn
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 76
|
||||
Height = 33
|
||||
Top = 81
|
||||
Width = 89
|
||||
BorderSpacing.Around = 12
|
||||
Kind = bkClose
|
||||
TabOrder = 0
|
||||
end
|
||||
object CloseBtn: TBitBtn
|
||||
Left = 72
|
||||
Height = 33
|
||||
Top = 114
|
||||
Width = 89
|
||||
Kind = bkClose
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
object Memo1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 30
|
||||
Top = 12
|
||||
Width = 216
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 12
|
||||
Caption = 'If you can edit this, then your program was allowed to run'
|
||||
WordWrap = True
|
||||
end
|
||||
object OgSerialNumberCode1: TOgSerialNumberCode
|
||||
OnChecked = OgSerialNumberCode1Checked
|
||||
OnGetKey = OgSerialNumberCode1GetKey
|
||||
OnGetCode = OgSerialNumberCode1GetCode
|
||||
OnGetModifier = OgSerialNumberCode1GetModifier
|
||||
left = 184
|
||||
top = 96
|
||||
Left = 56
|
||||
Top = 64
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,20 +1,26 @@
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMain','FORMDATA',[
|
||||
'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0
|
||||
+#5'Width'#3#240#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number'
|
||||
+' Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.Color'#7
|
||||
+#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActi'
|
||||
+'vate'#7#12'FormActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6
|
||||
+'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Wid'
|
||||
+'th'#2'+'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#11'ParentCo'
|
||||
+'lor'#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'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7
|
||||
+'TBitBtn'#8'CloseBtn'#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#4
|
||||
+'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgSerialNumberC'
|
||||
+'ode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8
|
||||
+'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberC'
|
||||
+'ode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'
|
||||
+#3#184#0#3'top'#2'`'#0#0#0
|
||||
+#5'Width'#3#240#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#21
|
||||
+'Serial Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10
|
||||
+'Font.Color'#7#7'clBlack'#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14
|
||||
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'Anchor'
|
||||
+'SideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Anch'
|
||||
+'orSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
|
||||
+#2'b'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2','#9'Alignment'#7#8'taCenter'#7
|
||||
+'Caption'#6#10'Serial #: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'A'
|
||||
+'nchorSideLeft.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'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'
|
||||
+#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorS'
|
||||
+'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorS'
|
||||
+'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
|
||||
+#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#216#0#7'Anchors'#11#5'akTop'#6'a'
|
||||
+'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6':If you can '
|
||||
+'edit this, then your program was allowed to run'#8'WordWrap'#9#0#0#19'TOgSe'
|
||||
+'rialNumberCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCod'
|
||||
+'e1Checked'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'Og'
|
||||
+'SerialNumberCode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModi'
|
||||
+'fier'#4'Left'#2'8'#3'Top'#2'@'#0#0#0
|
||||
]);
|
||||
|
||||
@ -38,9 +38,9 @@ type
|
||||
{ TfrmMain }
|
||||
|
||||
TfrmMain = class(TForm)
|
||||
Memo1: TMemo;
|
||||
CloseBtn: TBitBtn;
|
||||
Label1: TLabel;
|
||||
Memo1: TLabel;
|
||||
OgSerialNumberCode1: TOgSerialNumberCode;
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
@ -66,14 +66,11 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
|
||||
uses
|
||||
LResources,Exdmodu2;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
|
||||
procedure TfrmMain.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
begin
|
||||
Key := CKey;
|
||||
@ -210,6 +207,9 @@ var
|
||||
S : string;
|
||||
begin
|
||||
FExpired := false;
|
||||
|
||||
//Status := ogValidCode; // just to check the form
|
||||
|
||||
case Status of
|
||||
ogValidCode : begin
|
||||
{check if retrieved Serial Number matches Code}
|
||||
|
||||
@ -4,88 +4,136 @@ object SNEntryDlg: TSNEntryDlg
|
||||
Top = 376
|
||||
Width = 247
|
||||
ActiveControl = SNText
|
||||
AutoSize = True
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Serial Number w/Modifer'
|
||||
ClientHeight = 195
|
||||
ClientWidth = 247
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
LCLVersion = '2.3.0.0'
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = SNText
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 64
|
||||
Width = 16
|
||||
Height = 15
|
||||
Top = 66
|
||||
Width = 15
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'SN'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = CodeText
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 90
|
||||
Width = 26
|
||||
Height = 15
|
||||
Top = 97
|
||||
Width = 28
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Code'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 40
|
||||
Height = 14
|
||||
Top = 7
|
||||
Width = 160
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 34
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 178
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Call your Vendor NOW to register!'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = ModString
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 37
|
||||
Width = 38
|
||||
Height = 15
|
||||
Top = 35
|
||||
Width = 45
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Modifier'
|
||||
ParentColor = False
|
||||
end
|
||||
object SNText: TEdit
|
||||
Left = 52
|
||||
AnchorSideLeft.Control = ModString
|
||||
AnchorSideTop.Control = ModString
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 61
|
||||
Height = 23
|
||||
Top = 60
|
||||
Top = 62
|
||||
Width = 121
|
||||
BorderSpacing.Top = 8
|
||||
TabOrder = 1
|
||||
end
|
||||
object CodeText: TEdit
|
||||
Left = 52
|
||||
AnchorSideLeft.Control = SNText
|
||||
AnchorSideTop.Control = SNText
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 61
|
||||
Height = 23
|
||||
Top = 86
|
||||
Top = 93
|
||||
Width = 175
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
TabOrder = 2
|
||||
end
|
||||
object OKBtn: TBitBtn
|
||||
Left = 23
|
||||
AnchorSideTop.Control = CancelBtn
|
||||
AnchorSideRight.Control = Bevel1
|
||||
Left = 26
|
||||
Height = 33
|
||||
Top = 118
|
||||
Top = 128
|
||||
Width = 89
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Bottom = 8
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
TabOrder = 3
|
||||
end
|
||||
object CancelBtn: TBitBtn
|
||||
Left = 127
|
||||
AnchorSideLeft.Control = Bevel1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = CodeText
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 131
|
||||
Height = 33
|
||||
Top = 118
|
||||
Top = 128
|
||||
Width = 89
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Bottom = 8
|
||||
Kind = bkCancel
|
||||
NumGlyphs = 0
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ModString: TEdit
|
||||
Left = 52
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 61
|
||||
Height = 23
|
||||
Top = 33
|
||||
Top = 31
|
||||
Width = 121
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
Left = 115
|
||||
Height = 37
|
||||
Top = 125
|
||||
Width = 16
|
||||
Shape = bsSpacer
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,25 +1,46 @@
|
||||
{ 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#150#1#6'Height'#3#195#0#3'Top'
|
||||
+#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#7'Caption'#6#23'Seria'
|
||||
+'l Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247#0#10'Fon'
|
||||
+'t.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
|
||||
+#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'
|
||||
+#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5
|
||||
+'Width'#2#16#7'Caption'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
|
||||
+'Left'#2#8#6'Height'#2#14#3'Top'#2'Z'#5'Width'#2#26#7'Caption'#6#4'Code'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'('#6'Height'#2#14#3'Top'#2
|
||||
+#7#5'Width'#3#160#0#7'Caption'#6'!Call your Vendor NOW to register!'#11'Pare'
|
||||
+'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'%'#5
|
||||
+'Width'#2'&'#7'Caption'#6#8'Modifier'#11'ParentColor'#8#0#0#5'TEdit'#6'SNTex'
|
||||
+'t'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'<'#5'Width'#2'y'#8'TabOrder'#2#1#0#0
|
||||
+#5'TEdit'#8'CodeText'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'V'#5'Width'#3#175
|
||||
+#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'OKBtn'#4'Left'#2#23#6'Height'#2'!'#3'Top'
|
||||
+#2'v'#5'Width'#2'Y'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
|
||||
+'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#2''#6'Height'#2'!'#3'Top'
|
||||
+#2'v'#5'Width'#2'Y'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnClick'#7#14'C'
|
||||
+'ancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#4'Left'#2'4'#6'Hei'
|
||||
+'ght'#2#23#3'Top'#2'!'#5'Width'#2'y'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2
|
||||
+#0#0#0#0
|
||||
+#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#8'AutoSize'#9#11'Bord'
|
||||
+'erStyle'#7#8'bsDialog'#7'Caption'#6#23'Serial Number w/Modifer'#12'ClientHe'
|
||||
+'ight'#3#195#0#11'ClientWidth'#3#247#0#10'Font.Color'#7#7'clBlack'#8'OnCreat'
|
||||
+'e'#7#10'FormCreate'#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'Anchor'
|
||||
+'SideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
|
||||
+#8#6'Height'#2#15#3'Top'#2'B'#5'Width'#2#15#18'BorderSpacing.Left'#2#8#7'Cap'
|
||||
+'tion'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.C'
|
||||
+'ontrol'#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'a'#5'Width'#2#28
|
||||
+#18'BorderSpacing.Left'#2#8#7'Caption'#6#4'Code'#11'ParentColor'#8#0#0#6'TLa'
|
||||
+'bel'#6'Label3'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'
|
||||
+#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2'"'#6'Height'#2
|
||||
+#15#3'Top'#2#8#5'Width'#3#178#0#17'BorderSpacing.Top'#2#8#7'Caption'#6'!Call'
|
||||
+' your Vendor NOW to register!'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#22
|
||||
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'ModString'
|
||||
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'#'
|
||||
+#5'Width'#2'-'#18'BorderSpacing.Left'#2#8#7'Caption'#6#8'Modifier'#11'Parent'
|
||||
+'Color'#8#0#0#5'TEdit'#6'SNText'#22'AnchorSideLeft.Control'#7#9'ModString'#21
|
||||
+'AnchorSideTop.Control'#7#9'ModString'#18'AnchorSideTop.Side'#7#9'asrBottom'
|
||||
+#4'Left'#2'='#6'Height'#2#23#3'Top'#2'>'#5'Width'#2'y'#17'BorderSpacing.Top'
|
||||
+#2#8#8'TabOrder'#2#1#0#0#5'TEdit'#8'CodeText'#22'AnchorSideLeft.Control'#7#6
|
||||
+'SNText'#21'AnchorSideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'as'
|
||||
+'rBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2']'#5'Width'#3#175#0#17'Border'
|
||||
+'Spacing.Top'#2#8#19'BorderSpacing.Right'#2#8#8'TabOrder'#2#2#0#0#7'TBitBtn'
|
||||
+#5'OKBtn'#21'AnchorSideTop.Control'#7#9'CancelBtn'#23'AnchorSideRight.Contro'
|
||||
+'l'#7#6'Bevel1'#4'Left'#2#26#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#7'A'
|
||||
+'nchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#4'b'
|
||||
+'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc'
|
||||
+'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
|
||||
+'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
|
||||
+'Left'#3#131#0#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#17'BorderSpacing.'
|
||||
+'Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14
|
||||
+'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#22'AnchorSideLeft'
|
||||
+'.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
|
||||
+'op.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'='#6
|
||||
+'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'BorderSpacing.Left'#2#8#17'Border'
|
||||
+'Spacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#6'TBevel'#6
|
||||
+'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'a'
|
||||
+'srCenter'#4'Left'#2's'#6'Height'#2'%'#3'Top'#2'}'#5'Width'#2#16#5'Shape'#7#8
|
||||
+'bsSpacer'#0#0#0
|
||||
]);
|
||||
|
||||
@ -4,13 +4,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;
|
||||
|
||||
Reference in New Issue
Block a user