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
2023-02-20 17:36:51 +00:00
parent 91b3ac7ce0
commit e456d87021
100 changed files with 824 additions and 2317 deletions

View File

@ -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>

View File

@ -71,7 +71,7 @@ object Form1: TForm1
OnGetKey = OgDateCode1GetKey
OnGetCode = OgDateCode1GetCode
StoreCode = True
Left = 176
Top = 64
Left = 168
Top = 72
end
end

View File

@ -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
]);

View File

@ -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.