pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

OnGuard: Replace in all demo projects .lrs resource by .res resource. Less hints and warnings.

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

15
components/onguard/examples/exusg2/exusg2.lpi
View File

@ -56,13 +56,14 @@
<UnitName Value="Exusg2u"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="78"/>
<CursorPos X="54" Y="94"/>
<TopLine Value="46"/>
<CursorPos X="11" Y="50"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<JumpHistory Count="5" HistoryIndex="4">
<Position1>
<Filename Value="exusg2u.pas"/>
<Caret Line="102" Column="28" TopLine="85"/>
@ -75,6 +76,14 @@
<Filename Value="exusg2u.pas"/>
<Caret Line="94" Column="25" TopLine="85"/>
</Position3>
<Position4>
<Filename Value="exusg2u.pas"/>
<Caret Line="142" Column="46" TopLine="111"/>
</Position4>
<Position5>
<Filename Value="exusg2u.pas"/>
<Caret Line="154" TopLine="119"/>
</Position5>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

25
components/onguard/examples/exusg2/exusg2u.lrs
View File

@ -1,25 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'K'#1#6'Height'#3#155#0#3'Top'#3#225#0#5'W'
+'idth'#3#218#0#18'HorzScrollBar.Page'#3#217#0#18'VertScrollBar.Page'#3#154#0
+#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#18'Usage Code Example'#12'ClientHeight'#3#155#0#11'ClientWidth'#3
+#218#0#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLab'
+'el'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'
+#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2'A'#6'Height'#2#15#3'Top'#2'G'#5'Width'#2'Y'#7'Captio'
+'n'#6#17'Available Runs: 0'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMe'
+'mo'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#7#5'Owner'#4'Left'#2#6#6'Height'#2';'#3'Top'#2#6#5'Width'#3#197#0#20'Border'
+'Spacing.Around'#2#6#13'Lines.Strings'#1#6'5If you can edit this, your progr'
+'am was allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0
+#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideL'
+'eft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSid'
+'eTop.Side'#7#9'asrBottom'#4'Left'#2'V'#6'Height'#2#26#3'Top'#2'\'#5'Width'#2
+'.'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#4'Kind'#7#7'bkClose'#8'TabOrd'
+'er'#2#1#0#0#12'TOgUsageCode'#12'OgUsageCode2'#9'OnChecked'#7#19'OgUsageCode'
+'2Checked'#8'OnGetKey'#7#18'OgUsageCode2GetKey'#9'OnGetCode'#7#19'OgUsageCod'
+'e2GetCode'#12'OnChangeCode'#7#22'OgUsageCode2ChangeCode'#4'Left'#2'X'#3'Top'
+#3#160#0#0#0#0
]);

20
components/onguard/examples/exusg2/exusg2u.pas
View File

@ -14,12 +14,8 @@ unit Exusg2u;
interface
uses
SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons, OnGuard,
LResources,
OgUtil,
IniFiles;
SysUtils,Classes,Controls, Forms, Dialogs, StdCtrls, Buttons, IniFiles,
OnGuard, OgUtil;
const
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
@ -51,7 +47,7 @@ var
implementation
{$R *.lfm}
{==========================================================================}
@ -100,8 +96,7 @@ begin
Exit;
end;
ogRunCountUsed : S := 'No more runs allowed' + #13
+ ' Register NOW ';
ogRunCountUsed : S := 'No more runs allowed.' + LineEnding + 'Register NOW';
ogInvalidCode : begin
if not (FileExists(TheDir + 'Usage2.ini')) then begin
@ -124,8 +119,7 @@ begin
S := 'Invalid Code';
end;
ogCodeExpired : S := 'Trial Run period expired' + #13
+ ' Register NOW ';
ogCodeExpired : S := 'Trial Run period expired.' + LineEnding + 'Register NOW';
end;
ShowMessage(S);
@ -153,9 +147,5 @@ begin
end;
initialization
{$i exusg2u.lrs}
end.