From 8a04d28a5a8414d4f07c4fe06b8707d16046d6fc Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 19 Feb 2023 22:58:04 +0000
Subject: [PATCH] OnGuard: Fix compilation back to Laz 1.4.4/FPC 2.6.4 (oldest
 one tested). Move TOgModifierProperty in unit ogreg.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8718 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../onguard/examples/codegen/codegen.lpi      |  88 ++++----
 .../onguard/examples/codegen/codegen.lpr      |   3 +
 components/onguard/packages/tponguard.pas     |   1 -
 components/onguard/source/ogreg.pas           |   2 +-
 components/onguard/source/qonguard2.lfm       |   4 -
 components/onguard/source/qonguard2.lrs       | 211 +++++++++---------
 6 files changed, 147 insertions(+), 162 deletions(-)

diff --git a/components/onguard/examples/codegen/codegen.lpi b/components/onguard/examples/codegen/codegen.lpi
index 7a1af2e26..f35570f33 100644
--- a/components/onguard/examples/codegen/codegen.lpi
+++ b/components/onguard/examples/codegen/codegen.lpi
@@ -1,14 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="12"/>
+    <Version Value="10"/>
     <PathDelim Value="\"/>
     <General>
       <Flags>
         <LRSInOutputDirectory Value="False"/>
-        <CompatibilityMode Value="True"/>
       </Flags>
-      <Scaled Value="True"/>
+      <MainUnit Value="0"/>
       <UseXPManifest Value="True"/>
     </General>
     <BuildModes Count="1">
@@ -20,16 +19,9 @@
     </PublishOptions>
     <RunParams>
       <local>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <FormatVersion Value="1"/>
+        <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 &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
-          </local>
-        </Mode0>
-      </Modes>
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
@@ -45,7 +37,8 @@
         <Filename Value="codegen.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="CodeGen"/>
-        <CursorPos X="73" Y="15"/>
+        <IsVisibleTab Value="True"/>
+        <CursorPos X="27" Y="9"/>
         <UsageCount Value="28"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -124,9 +117,8 @@
       </Unit9>
       <Unit10>
         <Filename Value="..\..\source\onguard.pas"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="922"/>
+        <TopLine Value="913"/>
         <CursorPos X="6" Y="940"/>
         <UsageCount Value="11"/>
         <Loaded Value="True"/>
@@ -244,7 +236,7 @@
         <Loaded Value="True"/>
       </Unit25>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
         <Filename Value="..\..\source\qonguard2.pas"/>
         <Caret Line="504" Column="3" TopLine="500"/>
@@ -266,104 +258,100 @@
       </Position5>
       <Position6>
         <Filename Value="..\..\source\ogfirst.pas"/>
-        <Caret Line="152" Column="16" TopLine="165"/>
+        <Caret Line="69" Column="9" TopLine="50"/>
       </Position6>
       <Position7>
         <Filename Value="..\..\source\ogfirst.pas"/>
-        <Caret Line="69" Column="9" TopLine="50"/>
+        <Caret Line="86" Column="11" TopLine="55"/>
       </Position7>
       <Position8>
         <Filename Value="..\..\source\ogfirst.pas"/>
-        <Caret Line="86" Column="11" TopLine="55"/>
+        <Caret Line="97" Column="9" TopLine="78"/>
       </Position8>
       <Position9>
         <Filename Value="..\..\source\ogfirst.pas"/>
-        <Caret Line="97" Column="9" TopLine="78"/>
+        <Caret Line="152" Column="9" TopLine="133"/>
       </Position9>
       <Position10>
-        <Filename Value="..\..\source\ogfirst.pas"/>
-        <Caret Line="152" Column="9" TopLine="133"/>
+        <Filename Value="..\..\source\ogproexe.pas"/>
+        <Caret Line="675" Column="24" TopLine="643"/>
       </Position10>
       <Position11>
         <Filename Value="..\..\source\ogproexe.pas"/>
-        <Caret Line="675" Column="24" TopLine="643"/>
+        <Caret Line="262" Column="9" TopLine="243"/>
       </Position11>
       <Position12>
         <Filename Value="..\..\source\ogproexe.pas"/>
-        <Caret Line="262" Column="9" TopLine="243"/>
+        <Caret Line="377" Column="9" TopLine="358"/>
       </Position12>
       <Position13>
         <Filename Value="..\..\source\ogproexe.pas"/>
-        <Caret Line="377" Column="9" TopLine="358"/>
+        <Caret Line="532" Column="9" TopLine="513"/>
       </Position13>
       <Position14>
         <Filename Value="..\..\source\ogproexe.pas"/>
-        <Caret Line="532" Column="9" TopLine="513"/>
+        <Caret Line="663" Column="9" TopLine="644"/>
       </Position14>
       <Position15>
-        <Filename Value="..\..\source\ogproexe.pas"/>
-        <Caret Line="663" Column="9" TopLine="644"/>
+        <Filename Value="..\..\source\ogsrmgr.pas"/>
+        <Caret Line="482" Column="18" TopLine="456"/>
       </Position15>
       <Position16>
         <Filename Value="..\..\source\ogsrmgr.pas"/>
-        <Caret Line="482" Column="18" TopLine="456"/>
+        <Caret Line="100" Column="9" TopLine="81"/>
       </Position16>
       <Position17>
         <Filename Value="..\..\source\ogsrmgr.pas"/>
-        <Caret Line="100" Column="9" TopLine="81"/>
+        <Caret Line="142" Column="9" TopLine="123"/>
       </Position17>
       <Position18>
         <Filename Value="..\..\source\ogsrmgr.pas"/>
-        <Caret Line="142" Column="9" TopLine="123"/>
+        <Caret Line="190" Column="9" TopLine="172"/>
       </Position18>
       <Position19>
         <Filename Value="..\..\source\ogsrmgr.pas"/>
-        <Caret Line="190" Column="9" TopLine="172"/>
+        <Caret Line="228" Column="9" TopLine="209"/>
       </Position19>
       <Position20>
         <Filename Value="..\..\source\ogsrmgr.pas"/>
-        <Caret Line="228" Column="9" TopLine="209"/>
+        <Caret Line="482" Column="9" TopLine="456"/>
       </Position20>
       <Position21>
-        <Filename Value="..\..\source\ogsrmgr.pas"/>
-        <Caret Line="482" Column="9" TopLine="456"/>
+        <Filename Value="..\..\source\ogutil.pas"/>
+        <Caret Line="55" Column="9" TopLine="36"/>
       </Position21>
       <Position22>
         <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="545" Column="18" TopLine="690"/>
+        <Caret Line="77" Column="11" TopLine="58"/>
       </Position22>
       <Position23>
         <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="55" Column="9" TopLine="36"/>
+        <Caret Line="304" Column="19" TopLine="288"/>
       </Position23>
       <Position24>
         <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="77" Column="11" TopLine="58"/>
+        <Caret Line="548" Column="9" TopLine="529"/>
       </Position24>
       <Position25>
         <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="304" Column="19" TopLine="288"/>
+        <Caret Line="847" Column="18" TopLine="831"/>
       </Position25>
       <Position26>
         <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="548" Column="9" TopLine="529"/>
+        <Caret Line="1159" Column="18" TopLine="1143"/>
       </Position26>
       <Position27>
         <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="847" Column="18" TopLine="831"/>
+        <Caret Line="1271" Column="6" TopLine="1247"/>
       </Position27>
       <Position28>
-        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="1159" Column="18" TopLine="1143"/>
-      </Position28>
-      <Position29>
-        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="1271" Column="6" TopLine="1247"/>
-      </Position29>
-      <Position30>
         <Filename Value="..\..\source\onguard.inc"/>
         <Caret Line="50" Column="19" TopLine="31"/>
-      </Position30>
+      </Position28>
+      <Position29>
+        <Filename Value="codegen.lpr"/>
+        <Caret Line="15" Column="73"/>
+      </Position29>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/components/onguard/examples/codegen/codegen.lpr b/components/onguard/examples/codegen/codegen.lpr
index b1cb52412..b613c1e03 100644
--- a/components/onguard/examples/codegen/codegen.lpr
+++ b/components/onguard/examples/codegen/codegen.lpr
@@ -6,6 +6,7 @@ program CodeGen;
 
 uses
   Interfaces,
+  LCLVersion,
   Forms,
   CodeGenU in 'CODEGENU.pas' {CodeGenFrm}, tponguard;
 
@@ -13,7 +14,9 @@ uses
 {$R *.res}
 
 begin
+  {$IF LCL_FullVersion >= 3000000}
   Application.Scaled:=True;
+  {$ENDIF}
   Application.Title:='';
   Application.Initialize;
   Application.CreateForm(TCodeGenFrm, CodeGenFrm);
diff --git a/components/onguard/packages/tponguard.pas b/components/onguard/packages/tponguard.pas
index 8391b9277..f63957445 100644
--- a/components/onguard/packages/tponguard.pas
+++ b/components/onguard/packages/tponguard.pas
@@ -4,7 +4,6 @@
 
 unit tponguard;
 
-{$warn 5023 off : no warning about unused units}
 interface
 
 uses
diff --git a/components/onguard/source/ogreg.pas b/components/onguard/source/ogreg.pas
index ecd70ca22..ea70d7a13 100644
--- a/components/onguard/source/ogreg.pas
+++ b/components/onguard/source/ogreg.pas
@@ -44,7 +44,7 @@ procedure Register;
 implementation
 
 uses
-  System.UITypes, Classes, Forms,
+  Classes, Controls, Forms,
   qogabout0, ogconst,ognetwrk, ogproexe,                  {AH.01}
   onguard,                                                         {AH.01}
   qonguard2,                                                       {AH.01}
diff --git a/components/onguard/source/qonguard2.lfm b/components/onguard/source/qonguard2.lfm
index e9f25b02a..fb325fea3 100644
--- a/components/onguard/source/qonguard2.lfm
+++ b/components/onguard/source/qonguard2.lfm
@@ -380,9 +380,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
     Caption = '&Key used to encode'
     ClientHeight = 219
     ClientWidth = 536
-    Color = clBtnFace
-    ParentBackground = False
-    ParentColor = False
     TabOrder = 3
     object GenerateKeySb: TSpeedButton
       AnchorSideTop.Control = BlockKeyEd
@@ -576,7 +573,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
     Caption = 'Generate Code'
     ClientHeight = 47
     ClientWidth = 536
-    ParentBackground = False
     TabOrder = 4
     object RegCodeCopySb: TSpeedButton
       AnchorSideTop.Control = GenerateBtn
diff --git a/components/onguard/source/qonguard2.lrs b/components/onguard/source/qonguard2.lrs
index f1ad921c8..481a06d7d 100644
--- a/components/onguard/source/qonguard2.lrs
+++ b/components/onguard/source/qonguard2.lrs
@@ -108,110 +108,109 @@ LazarusResources.Add('TCodeGenerateFrm','FORMDATA',[
   +#23'AnchorSideRight.Control'#7#8'CodesNbk'#20'AnchorSideRight.Side'#7#9'asrB'
   +'ottom'#4'Left'#2#6#6'Height'#3#239#0#3'Top'#3#142#0#5'Width'#3#28#2#7'Ancho'
   +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#19'&Key u'
-  +'sed to encode'#12'ClientHeight'#3#219#0#11'ClientWidth'#3#24#2#5'Color'#7#9
-  +'clBtnFace'#16'ParentBackground'#8#11'ParentColor'#8#8'TabOrder'#2#3#0#12'TS'
-  +'peedButton'#13'GenerateKeySb'#21'AnchorSideTop.Control'#7#10'BlockKeyEd'#18
-  +'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#11'ModStri'
-  +'ngEd'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#242#1#6'Height'#2#23
-  +#4'Hint'#6#12'Generate key'#3'Top'#3#180#0#5'Width'#2#23#7'Anchors'#11#5'akT'
-  +'op'#7'akRight'#0#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0
-  +#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
-  +#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255
-  +#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136
-  +#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
-  +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136
-  +#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0
-  +#136#8#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0
-  +#0#0#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136
-  +#128#0#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136
-  +#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
-  +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136
-  +#136#136#136#136#128#0#0#0#7'OnClick'#7#18'GenerateKeySbClick'#0#0#6'TLabel'
-  +#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Contro'
-  ,'l'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'H'
-  +'eight'#2#15#3'Top'#2'o'#5'Width'#2'0'#18'BorderSpacing.Left'#2#16#17'Border'
-  +'Spacing.Top'#2#16#7'Caption'#6#9'Modifier:'#11'ParentColor'#8#0#0#6'TLabel'
-  +#6'Label5'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7
-  +#10'ModifierEd'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'
-  +#2#15#3'Top'#3#163#0#5'Width'#2#22#17'BorderSpacing.Top'#2#12#7'Caption'#6#4
-  +'Key:'#11'ParentColor'#8#0#0#9'TCheckBox'#12'NoModifierCb'#22'AnchorSideLeft'
-  +'.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#4'Left'#2
-  +#16#6'Height'#2#19#3'Top'#2#6#5'Width'#2'R'#18'BorderSpacing.Left'#2#16#17'B'
-  +'orderSpacing.Top'#2#6#7'Caption'#6#11'No modifier'#7'Checked'#9#7'OnClick'#7
-  +#13'ModifierClick'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'
-  +#17'MachineModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'#19'Anch'
-  +'orSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#12'NoModifierCb'
-  +#4'Left'#3#146#0#6'Height'#2#19#3'Top'#2#6#5'Width'#2'p'#18'BorderSpacing.Le'
-  +'ft'#2'0'#7'Caption'#6#16'Machine modifier'#7'OnClick'#7#13'ModifierClick'#8
-  +'TabOrder'#2#1#0#0#9'TCheckBox'#16'UniqueModifierCb'#22'AnchorSideLeft.Contr'
-  +'ol'#7#17'MachineModifierCb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Ancho'
-  +'rSideTop.Control'#7#12'NoModifierCb'#4'Left'#3'2'#1#6'Height'#2#19#3'Top'#2
-  +#6#5'Width'#2'h'#18'BorderSpacing.Left'#2'0'#7'Caption'#6#15'Unique modifier'
-  +#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#0#0#9'TCheckBox'#14'DateModi'
-  +'fierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'#21'AnchorSideTop.Cont'
-  +'rol'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#16#6'He'
-  +'ight'#2#19#3'Top'#2''''#5'Width'#2'Z'#7'Caption'#6#13'Date modifier'#7'OnCl'
-  +'ick'#7#13'ModifierClick'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'StringModifier'
-  +'Cb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'#21'AnchorSideTop.Control'
-  +#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#16#6'Heig'
-  +'ht'#2#19#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6#15'String Modifier'#7'OnCli'
-  +'ck'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModDateEd'#22'Anchor'
-  +'SideLeft.Control'#7#17'MachineModifierCb'#21'AnchorSideTop.Control'#7#17'Ma'
-  +'chineModifierCb'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#146#0#6'He'
-  +'ight'#2#23#3'Top'#2'%'#5'Width'#2'b'#17'BorderSpacing.Top'#2#12#8'OnChange'
-  +#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#6#0#0
-  +#5'TEdit'#11'ModStringEd'#22'AnchorSideLeft.Control'#7#9'ModDateEd'#21'Ancho'
-  +'rSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
-  +'nchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBott'
-  +'om'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#3'w'#1#7'Anchors'#11
-  +#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#17'BorderSpacing.Top'#2#12#19
-  +'BorderSpacing.Right'#2#15#8'OnChange'#7#13'ModifierClick'#8'TabOrder'#2#8#0
-  +#0#5'TEdit'#10'ModifierEd'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorS'
-  +'ideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
-  +#16#6'Height'#2#23#3'Top'#3#128#0#5'Width'#3#169#0#17'BorderSpacing.Top'#2#2
-  +#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPress'
-  +#8'TabOrder'#2#5#0#0#5'TEdit'#10'BlockKeyEd'#22'AnchorSideLeft.Control'#7#6
-  +'Label1'#21'AnchorSideTop.Control'#7#6'Label5'#18'AnchorSideTop.Side'#7#9'as'
-  +'rBottom'#23'AnchorSideRight.Control'#7#13'GenerateKeySb'#4'Left'#2#16#6'Hei'
-  +'ght'#2#23#3'Top'#3#180#0#5'Width'#3#222#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
-  +'akRight'#0#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#4#20'BorderS'
-  +'pacing.Bottom'#2#16#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#7#0#0#0#9'T'
-  +'GroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorS'
-  +'ideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anc'
-  +'horSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'
-  +#4'Left'#2#6#6'Height'#2'C'#3'Top'#3#131#1#5'Width'#3#28#2#7'Anchors'#11#5'a'
-  +'kTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Capt'
-  +'ion'#6#13'Generate Code'#12'ClientHeight'#2'/'#11'ClientWidth'#3#24#2#16'Pa'
-  +'rentBackground'#8#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCodeCopySb'#21'A'
-  +'nchorSideTop.Control'#7#11'GenerateBtn'#18'AnchorSideTop.Side'#7#9'asrCente'
-  +'r'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Side'#7#9
-  +'asrBottom'#4'Left'#3#241#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboa'
-  +'rd'#3'Top'#2#7#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderS'
-  +'pacing.Right'#2#16#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'
-  +#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
-  +#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255
-  +#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136
-  ,#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'
-  +#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0
-  +#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0
-  +#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15
-  +'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'
-  +#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136
-  +#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136
-  +#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
-  +#136#136#128#0#0#0#7'OnClick'#7#18'RegCodeCopySbClick'#0#0#7'TButton'#11'Gen'
-  +'erateBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#21'AnchorSideTop.Contro'
-  +'l'#7#9'GroupBox2'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#13'Generate code'#3
-  +'Top'#2#6#5'Width'#2'M'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#6
-  +#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
-  +#9'&Generate'#7'Default'#9#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0
-  +#0#0#5'TEdit'#9'RegCodeEd'#22'AnchorSideLeft.Control'#7#11'GenerateBtn'#19'A'
-  +'nchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'GenerateB'
-  +'tn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#13
-  +'RegCodeCopySb'#4'Left'#2'a'#6'Height'#2#23#3'Top'#2#7#5'Width'#3#140#1#7'An'
-  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#19'Bo'
-  +'rderSpacing.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoC'
-  +'hanged'#8'TabOrder'#2#1#0#0#0#0
+  +'sed to encode'#12'ClientHeight'#3#219#0#11'ClientWidth'#3#24#2#8'TabOrder'#2
+  +#3#0#12'TSpeedButton'#13'GenerateKeySb'#21'AnchorSideTop.Control'#7#10'Block'
+  +'KeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7
+  +#11'ModStringEd'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#242#1#6'H'
+  +'eight'#2#23#4'Hint'#6#12'Generate key'#3'Top'#3#180#0#5'Width'#2#23#7'Ancho'
+  +'rs'#11#5'akTop'#7'akRight'#0#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0
+  +#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0
+  +#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0
+  +#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136
+  +#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
+  +#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0
+  +#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0
+  +#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0
+  +#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152
+  +#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0
+  +#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136
+  +#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0
+  +#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18'GenerateKeySb'
+  +'Click'#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21
+  +'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrBott'
+  ,'om'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'o'#5'Width'#2'0'#18'BorderSpacing.'
+  +'Left'#2#16#17'BorderSpacing.Top'#2#16#7'Caption'#6#9'Modifier:'#11'ParentCo'
+  +'lor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6'Label1'#21'An'
+  +'chorSideTop.Control'#7#10'ModifierEd'#18'AnchorSideTop.Side'#7#9'asrBottom'
+  +#4'Left'#2#16#6'Height'#2#15#3'Top'#3#163#0#5'Width'#2#22#17'BorderSpacing.T'
+  +'op'#2#12#7'Caption'#6#4'Key:'#11'ParentColor'#8#0#0#9'TCheckBox'#12'NoModif'
+  +'ierCb'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7
+  +#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#6#5'Width'#2'R'#18'Border'
+  +'Spacing.Left'#2#16#17'BorderSpacing.Top'#2#6#7'Caption'#6#11'No modifier'#7
+  +'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7#9'cbChecked'#8'TabOrde'
+  +'r'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#22'AnchorSideLeft.Control'#7
+  +#12'NoModifierCb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co'
+  +'ntrol'#7#12'NoModifierCb'#4'Left'#3#146#0#6'Height'#2#19#3'Top'#2#6#5'Width'
+  +#2'p'#18'BorderSpacing.Left'#2'0'#7'Caption'#6#16'Machine modifier'#7'OnClic'
+  +'k'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16'UniqueModifierCb'
+  +#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#19'AnchorSideLeft.Side'#7
+  +#9'asrBottom'#21'AnchorSideTop.Control'#7#12'NoModifierCb'#4'Left'#3'2'#1#6
+  +'Height'#2#19#3'Top'#2#6#5'Width'#2'h'#18'BorderSpacing.Left'#2'0'#7'Caption'
+  +#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#0#0#9
+  +'TCheckBox'#14'DateModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'
+  +#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7#9'asrCent'
+  +'er'#4'Left'#2#16#6'Height'#2#19#3'Top'#2''''#5'Width'#2'Z'#7'Caption'#6#13
+  +'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#3#0#0#9'TCheckB'
+  +'ox'#16'StringModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'#21'A'
+  +'nchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrCente'
+  +'r'#4'Left'#2#16#6'Height'#2#19#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6#15'St'
+  +'ring Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9
+  +'ModDateEd'#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#21'AnchorSide'
+  +'Top.Control'#7#17'MachineModifierCb'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+  +'Left'#3#146#0#6'Height'#2#23#3'Top'#2'%'#5'Width'#2'b'#17'BorderSpacing.Top'
+  +#2#12#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8
+  +'TabOrder'#2#6#0#0#5'TEdit'#11'ModStringEd'#22'AnchorSideLeft.Control'#7#9'M'
+  +'odDateEd'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7
+  +#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.'
+  +'Side'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#3
+  +'w'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#17'BorderS'
+  +'pacing.Top'#2#12#19'BorderSpacing.Right'#2#15#8'OnChange'#7#13'ModifierClic'
+  +'k'#8'TabOrder'#2#8#0#0#5'TEdit'#10'ModifierEd'#22'AnchorSideLeft.Control'#7
+  +#6'Label1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9
+  +'asrBottom'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#128#0#5'Width'#3#169#0#17'B'
+  +'orderSpacing.Top'#2#2#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7
+  +#18'ModifierEdKeyPress'#8'TabOrder'#2#5#0#0#5'TEdit'#10'BlockKeyEd'#22'Ancho'
+  +'rSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#6'Label5'#18'Anc'
+  +'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'GenerateKe'
+  +'ySb'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#180#0#5'Width'#3#222#1#7'Anchors'
+  +#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#19'BorderSpaci'
+  +'ng.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChanged'#8
+  +'TabOrder'#2#7#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#9
+  +'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7
+  +#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.'
+  +'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'C'#3'Top'#3#131#1#5'Width'#3#28
+  +#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpac'
+  +'ing.Top'#2#6#7'Caption'#6#13'Generate Code'#12'ClientHeight'#2'/'#11'Client'
+  +'Width'#3#24#2#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCodeCopySb'#21'Ancho'
+  +'rSideTop.Control'#7#11'GenerateBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23
+  +'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Side'#7#9'asrBot'
+  +'tom'#4'Left'#3#241#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard'#3
+  +'Top'#2#7#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing'
+  +'.Right'#2#16#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
+  +'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
+  +#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
+  +#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
+  +#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0
+  ,#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244
+  +#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244
+  +#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'
+  +#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136
+  +#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0
+  +#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0
+  +#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+  +#136#128#0#0#0#7'OnClick'#7#18'RegCodeCopySbClick'#0#0#7'TButton'#11'Generat'
+  +'eBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7
+  +#9'GroupBox2'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#13'Generate code'#3'Top'#2
+  +#6#5'Width'#2'M'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#6#20'Bor'
+  +'derSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'&G'
+  +'enerate'#7'Default'#9#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#0#0
+  +#5'TEdit'#9'RegCodeEd'#22'AnchorSideLeft.Control'#7#11'GenerateBtn'#19'Ancho'
+  +'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'GenerateBtn'
+  +#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#13'RegC'
+  +'odeCopySb'#4'Left'#2'a'#6'Height'#2#23#3'Top'#2#7#5'Width'#3#140#1#7'Anchor'
+  +'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#19'Border'
+  +'Spacing.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChang'
+  +'ed'#8'TabOrder'#2#1#0#0#0#0
 ]);