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:
@ -59,8 +59,8 @@
|
||||
<UnitName Value="Exdtp21u"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="88"/>
|
||||
<CursorPos X="3" Y="108"/>
|
||||
<TopLine Value="69"/>
|
||||
<CursorPos X="3" Y="102"/>
|
||||
<UsageCount Value="836"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -74,7 +74,7 @@
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="16" HistoryIndex="15">
|
||||
<JumpHistory Count="17" HistoryIndex="16">
|
||||
<Position1>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="83" Column="17" TopLine="69"/>
|
||||
@ -139,6 +139,10 @@
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="106" Column="37" TopLine="87"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="123" TopLine="88"/>
|
||||
</Position17>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
@ -71,7 +71,7 @@ object Form1: TForm1
|
||||
OnGetKey = OgDateCode1GetKey
|
||||
OnGetCode = OgDateCode1GetCode
|
||||
StoreCode = True
|
||||
Left = 176
|
||||
Top = 64
|
||||
Left = 168
|
||||
Top = 72
|
||||
end
|
||||
end
|
||||
|
@ -1,30 +0,0 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'b'#1#6'Height'#3#155#0#3'Top'#3#23#1#5'Wi'
|
||||
+'dth'#3#228#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'For'
|
||||
+'m1'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#228#0#10'OnActivate'#7#12'Fo'
|
||||
+'rmActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6
|
||||
+'TLabel'#10'lblExpires'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideL'
|
||||
+'eft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSideT'
|
||||
+'op.Side'#7#9'asrBottom'#4'Left'#2'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2
|
||||
+'e'#7'Caption'#6#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8
|
||||
+'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9
|
||||
+'asrCenter'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrBottom'#4'Left'#2'['#6'Height'#2#26#3'Top'#2'`'#5'Width'#2'.'#8'AutoSize'
|
||||
+#9#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6
|
||||
+'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
|
||||
+'rol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.S'
|
||||
+'ide'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#204#0
|
||||
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12
|
||||
+#7'Caption'#6'5If you can edit this, your program was allowed to run'#8'Word'
|
||||
+'Wrap'#9#10'OnDblClick'#7#12'InfoDblClick'#0#0#6'TBevel'#6'Bevel1'#22'Anchor'
|
||||
+'SideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#10'lblExpires'#18'A'
|
||||
+'nchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#2'Q'
|
||||
+#5'Width'#3#204#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpa'
|
||||
+'cing.Top'#2#12#5'Shape'#7#9'bsTopLine'#0#0#11'TOgDateCode'#11'OgDateCode1'#9
|
||||
+'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateCode1GetKey'#9'O'
|
||||
+'nGetCode'#7#18'OgDateCode1GetCode'#9'StoreCode'#9#4'Left'#3#176#0#3'Top'#2
|
||||
+'@'#0#0#0
|
||||
]);
|
@ -8,10 +8,8 @@ unit Exdtp21u;
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils,Classes,Controls,
|
||||
Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls, OnGuard,
|
||||
OgUtil,
|
||||
IniFiles;
|
||||
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
|
||||
OnGuard, OgUtil;
|
||||
|
||||
const
|
||||
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
|
||||
@ -43,9 +41,10 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
|
||||
{==========================================================================}
|
||||
uses
|
||||
IniFiles;
|
||||
|
||||
procedure TForm1.OgDateCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
begin
|
||||
@ -59,17 +58,14 @@ end;
|
||||
|
||||
procedure TForm1.InfoDblClick(Sender: TObject);
|
||||
begin
|
||||
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
|
||||
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
|
||||
end;
|
||||
|
||||
{==========================================================================}
|
||||
|
||||
procedure TForm1.OgDateCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
var
|
||||
IniFile : TIniFile;
|
||||
S : string;
|
||||
SD,
|
||||
ED : TDateTime;
|
||||
SD, ED : TDateTime;
|
||||
L : integer;
|
||||
begin
|
||||
{force the INI file to be in the same directory as the application}
|
||||
@ -98,8 +94,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
{==========================================================================}
|
||||
|
||||
procedure TForm1.OgDateCode1Checked(Sender: TObject; Status: TCodeStatus);
|
||||
var
|
||||
S : string;
|
||||
@ -120,7 +114,5 @@ begin
|
||||
FExpired := true;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i exdtp21u.lrs}
|
||||
|
||||
end.
|
||||
|
Reference in New Issue
Block a user