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

33
components/onguard/examples/exselapi/exselap1.lrs
View File

@ -1,33 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3'%'#1#3'Top'#3'B'#1#5'Wi'
+'dth'#3'e'#1#8'AutoSize'#9#7'Caption'#6#10'ExSelAPI: '#12'ClientHeight'#3'%'
+#1#11'ClientWidth'#3'e'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'
+#10'LCLVersion'#6#7'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Co'
+'ntrol'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'z'#6'Heigh'
+'t'#2#25#3'Top'#3#242#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14
+'ModifyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Co'
+'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'He'
+'ight'#3#210#0#3'Top'#2#16#5'Width'#3'E'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12'&'#2#0#0'This exampl'
+'e uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to'
+' implement a limited use "demo" application which allows only the required '
+'features.'#13#10#13#10'The program can be run 3 times and then a special co'
+'de st be obtained to register the program and to enable various features. '
+#13#10#13#10'A machine modifier is used to prevent the application from bein'
+'g copied and run on another machine. '#13#10#13#10'To obtain the release co'
+'de you need to run the companion example EXSLCODE. The release codes will b'
+'e stored in a data file called EXSELECT.DAT'#5'Color'#7#6'clAqua'#11'Parent'
+'Color'#8#8'WordWrap'#9#0#0#9'TMainMenu'#9'MainMenu1'#4'Left'#2' '#3'Top'#3
+#168#0#0#9'TMenuItem'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuIte'
+'m'#16'FeaturesRequired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuIt'
+'em'#12'FeaturesHelp'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16
+'FeaturesExamples'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16
+'FeaturesDatabase'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11
+'FeaturesFax'#7'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesG'
+'oodies'#7'Caption'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#0
]);

17
components/onguard/examples/exselapi/exselap1.pas
View File

@ -21,8 +21,8 @@ unit Exselap1;
interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Menus,Buttons,LResources,OgUtil,OnGuard;
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Menus, Buttons,
OgUtil, OnGuard;
type
@ -54,16 +54,16 @@ var
implementation
{$R *.lfm}
const
{ The key was created by a separate program (CODEGEN) and is generic
the examples, EXSELECT, EXSELAPI, and EXSLCODE }
{ The key was created by a separate program (CODEGEN) and is generic
the examples, EXSELECT, EXSELAPI, and EXSLCODE }
TheKey: TKey = ($F1,$46,$8D,$E4,$70,$AE,$92,$DC,
$13,$1A,$03,$C4,$44,$25,$72,$F5);
{ Initial code has 3 uses embedded }
InitCode : string = '13B1A08BD78AFCD3';
{ Initial code has 3 uses embedded }
InitCode : string = '13B1A08BD78AFCD3';
CodeFile : string = 'ExSelect.Dat';
DemoCaption : string = 'ExSelApi: Demo runs left = ';
RegisteredCap : string = 'ExSelApi: Registered';
@ -246,7 +246,4 @@ begin
end;
initialization
{$i exselap1.lrs}
end.

33
components/onguard/examples/exselapi/exselapi.lpi
View File

@ -59,8 +59,8 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exselap1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="50"/>
<CursorPos X="24" Y="71"/>
<TopLine Value="45"/>
<CursorPos X="38" Y="59"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -108,7 +108,7 @@
<UsageCount Value="10"/>
</Unit8>
</Units>
<JumpHistory Count="7" HistoryIndex="6">
<JumpHistory Count="11" HistoryIndex="10">
<Position1>
<Filename Value="exselap1.pas"/>
<Caret Line="155" Column="45" TopLine="43"/>
@ -136,6 +136,22 @@
<Filename Value="exselap1.pas"/>
<Caret Line="70" Column="3" TopLine="49"/>
</Position7>
<Position8>
<Filename Value="exselap1.pas"/>
<Caret Line="86" Column="41" TopLine="50"/>
</Position8>
<Position9>
<Filename Value="exselap1.pas"/>
<Caret Line="248" TopLine="213"/>
</Position9>
<Position10>
<Filename Value="exselap1.pas"/>
<Caret Line="114" TopLine="142"/>
</Position10>
<Position11>
<Filename Value="exselap1.pas"/>
<Caret Line="249" Column="5" TopLine="213"/>
</Position11>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
@ -166,21 +182,14 @@
</Linking>
</CompilerOptions>
<Debugging>
<BreakPoints Count="2">
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="exselap1.pas"/>
<Line Value="114"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/onguard.pas"/>
<Line Value="1010"/>
</Item2>
</Item1>
</BreakPoints>
<Watches Count="1">
<Item1>