You've already forked lazarus-ccr
OnGuard: Replace in all demo projects .lrs resource by .res resource. Less hints and warnings.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8724 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -1,56 +0,0 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#237#0#6'Height'#3#243#0#3'Top'#3#152#0#5
|
||||
+'Width'#3' '#1#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0
|
||||
+#13'ActiveControl'#7#9'MachineID'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'
|
||||
+#7'Caption'#6#24' Special Code Generator '#12'ClientHeight'#3#243#0#11'Clien'
|
||||
+'tWidth'#3' '#1#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorS'
|
||||
+'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'MachineID'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#20#5
|
||||
+'Width'#2'<'#7'Caption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#0#0#7'TButton'#6'GenBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#19'Anc'
|
||||
+'horSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'U'#6'Height'#2#25#3'Top'#3#161
|
||||
+#0#5'Width'#2'`'#17'BorderSpacing.Top'#2#16#20'BorderSpacing.Bottom'#2#8#25
|
||||
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7
|
||||
+#11'GenBtnClick'#8'TabOrder'#2#1#0#0#5'TEdit'#9'MachineID'#22'AnchorSideLeft'
|
||||
+'.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
|
||||
+'op.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'Anchor'
|
||||
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2'\'#6'Height'#2#23#3'Top'#2#16#5'Wi'
|
||||
+'dth'#3#158#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing'
|
||||
+'.Left'#2#16#17'BorderSpacing.Top'#2#16#9'MaxLength'#2#8#8'TabOrder'#2#0#0#0
|
||||
+#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'#4'Left'#2#16
|
||||
+#6'Height'#2'Y'#3'Top'#2'8'#5'Width'#3#234#0#8'AutoSize'#9#18'BorderSpacing.'
|
||||
+'Left'#2#16#19'BorderSpacing.Right'#2#16#7'Caption'#6#8'Features'#12'ClientH'
|
||||
+'eight'#2'E'#11'ClientWidth'#3#230#0#8'TabOrder'#2#2#0#9'TCheckBox'#7'ReqFea'
|
||||
+'t'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9
|
||||
+'GroupBox1'#4'Left'#2' '#6'Height'#2#19#3'Top'#2#0#5'Width'#2'A'#18'BorderSp'
|
||||
+'acing.Left'#2' '#7'Caption'#6#8'Required'#7'Checked'#9#7'Enabled'#8#5'State'
|
||||
+#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'HelpFeat'#22'AnchorSideLe'
|
||||
+'ft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#7'ReqFeat'#18'Anchor'
|
||||
+'SideTop.Side'#7#9'asrBottom'#4'Left'#2' '#6'Height'#2#19#3'Top'#2#19#5'Widt'
|
||||
+'h'#2'+'#18'BorderSpacing.Left'#2' '#7'Caption'#6#4'Help'#8'TabOrder'#2#1#0#0
|
||||
+#9'TCheckBox'#12'ExamplesFeat'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21
|
||||
+'AnchorSideTop.Control'#7#8'HelpFeat'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
|
||||
+'Left'#2' '#6'Height'#2#19#3'Top'#2'&'#5'Width'#2'D'#18'BorderSpacing.Left'#2
|
||||
+' '#20'BorderSpacing.Bottom'#2#12#7'Caption'#6#8'Examples'#8'TabOrder'#2#2#0
|
||||
+#0#9'TCheckBox'#6'DBFeat'#22'AnchorSideLeft.Control'#7#12'ExamplesFeat'#19'A'
|
||||
+'nchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'ReqFeat'#4
|
||||
+'Left'#3#132#0#6'Height'#2#19#3'Top'#2#0#5'Width'#2'B'#18'BorderSpacing.Left'
|
||||
+#2' '#19'BorderSpacing.Right'#2' '#7'Caption'#6#8'Database'#8'TabOrder'#2#3#0
|
||||
+#0#9'TCheckBox'#7'FaxFeat'#22'AnchorSideLeft.Control'#7#12'ExamplesFeat'#19
|
||||
+'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#8'HelpFeat'
|
||||
+#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2#19#5'Width'#2'$'#18'BorderSpacing.L'
|
||||
+'eft'#2' '#7'Caption'#6#3'Fax'#8'TabOrder'#2#4#0#0#9'TCheckBox'#11'GoodiesFe'
|
||||
+'at'#22'AnchorSideLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7
|
||||
+#9'asrBottom'#21'AnchorSideTop.Control'#7#12'ExamplesFeat'#4'Left'#3#132#0#6
|
||||
+'Height'#2#19#3'Top'#2'&'#5'Width'#2'='#18'BorderSpacing.Left'#2' '#19'Borde'
|
||||
+'rSpacing.Right'#2' '#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#0#0#0#5'TEdit'
|
||||
+#11'CodeDisplay'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.'
|
||||
+'Control'#7#6'GenBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
|
||||
+'ht.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
|
||||
+#16#6'Height'#2#23#3'Top'#3#194#0#5'Width'#3#234#0#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#16#5'Color'#7#6'clAqua'#8'T'
|
||||
+'abOrder'#2#3#0#0#0
|
||||
]);
|
||||
@ -18,8 +18,8 @@ unit Exslcod1;
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, Controls, Forms, Dialogs,Buttons,
|
||||
OnGuard, OgUtil, StdCtrls,LResources{, Mask};
|
||||
SysUtils, Classes, Controls, Forms, Dialogs, Buttons, StdCtrls,
|
||||
OnGuard, OgUtil;
|
||||
|
||||
type
|
||||
|
||||
@ -49,7 +49,7 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
const
|
||||
DemoKey: TKey = ($F1,$46,$8D,$E4,
|
||||
@ -67,7 +67,7 @@ const
|
||||
procedure TForm1.GenBtnClick(Sender: TObject);
|
||||
var
|
||||
Key: TKey;
|
||||
Modifier: Longint;
|
||||
Modifier: Longint = 0;
|
||||
Code: TCode;
|
||||
Expires: TDateTime;
|
||||
Value: longint;
|
||||
@ -87,11 +87,9 @@ begin
|
||||
Value := Value + FaxMask;
|
||||
If GoodiesFeat.Checked then
|
||||
Value := Value + GoodiesMask;
|
||||
Code := Default(TCode);
|
||||
InitSpecialCode(Key, Value, Expires, Code);
|
||||
CodeDisplay.Text := BufferToHex(Code, SizeOf(Code));
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i exslcod1.lrs}
|
||||
|
||||
end.
|
||||
|
||||
@ -59,8 +59,8 @@
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exslcod1"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="32"/>
|
||||
<CursorPos X="11" Y="53"/>
|
||||
<TopLine Value="58"/>
|
||||
<CursorPos X="26" Y="90"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -72,7 +72,7 @@
|
||||
<DefaultSyntaxHighlighter Value="LFM"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<JumpHistory Count="7" HistoryIndex="6">
|
||||
<Position1>
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<Caret Line="68" Column="34" TopLine="27"/>
|
||||
@ -85,6 +85,22 @@
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<Caret Line="68" Column="34" TopLine="32"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<Caret Line="52" Column="11" TopLine="32"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<Caret Line="73" TopLine="37"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<Caret Line="74" Column="27" TopLine="58"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<Caret Line="70" Column="24" TopLine="58"/>
|
||||
</Position7>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
||||
Reference in New Issue
Block a user