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
Binary file not shown.
@ -58,8 +58,8 @@
|
||||
<UnitName Value="Exnetu"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="119"/>
|
||||
<CursorPos X="59" Y="142"/>
|
||||
<TopLine Value="133"/>
|
||||
<CursorPos X="26" Y="165"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -83,7 +83,7 @@
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<JumpHistory Count="5" HistoryIndex="4">
|
||||
<Position1>
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<Caret Line="141" Column="59" TopLine="118"/>
|
||||
@ -96,6 +96,14 @@
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<Caret Line="141" Column="59" TopLine="118"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<Caret Line="145" Column="21" TopLine="119"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<Caret Line="163" TopLine="128"/>
|
||||
</Position5>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
||||
@ -1,56 +0,0 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3'='#1#3'Top'#3#146#0#5'Wid'
|
||||
+'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#8
|
||||
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Exam'
|
||||
+'ple'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#234#1#8'OnCreate'#7#10'FormC'
|
||||
+'reate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLa'
|
||||
+'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Con'
|
||||
+'trol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'He'
|
||||
+'ight'#2#15#3'Top'#3#244#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Cap'
|
||||
+'tion'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'La'
|
||||
+'bel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'a'
|
||||
+'srBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'Bord'
|
||||
+'erSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Labe'
|
||||
+'l1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'Co'
|
||||
+'deBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Height'#2#15#3
|
||||
+'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6#16'0000000'
|
||||
+'000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'
|
||||
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4
|
||||
+'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'
|
||||
+#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClic'
|
||||
+'k'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorS'
|
||||
+'ideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
|
||||
+'SideRight.Control'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
|
||||
+#3#147#1#6'Height'#2#25#3'Top'#3#239#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7
|
||||
+'akRight'#0#17'BorderSpacing.Top'#2#10#20'BorderSpacing.Bottom'#2#12#4'Kind'
|
||||
+#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.C'
|
||||
+'ontrol'#7#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'
|
||||
+#1#6'Height'#2#25#3'Top'#3#239#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRi'
|
||||
+'ght'#0#19'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
|
||||
+'ion'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6
|
||||
+'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
|
||||
+'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
|
||||
+'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6
|
||||
+'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLef'
|
||||
+'t'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The la'
|
||||
+'bel at the bottom of this form indicates the status of the code. An invalid'
|
||||
+' code indicates that the code is either the incorrect type or that none has'
|
||||
+' been entered. '#13#10#13#10'If the proper code has not been entered or the'
|
||||
+' ONGUARD.INI file was deleted, the message will say that the code is invali'
|
||||
+'d.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN pr'
|
||||
+'ogram can be used to generate the proper "Usage" code). '#13#10#13#10'The "'
|
||||
+'Remove Code" button can be used to remove the entered code from the INI fil'
|
||||
+'e. Doing so will cause the TOgNetCode component to report that the code is '
|
||||
+'invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBe'
|
||||
+'vel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Contro'
|
||||
+'l'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
|
||||
+'ol'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'
|
||||
+#2#3#3'Top'#3#226#0#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
|
||||
+'ght'#0#5'Shape'#7#9'bsTopLine'#0#0#10'TOgNetCode'#10'OgNetCode1'#9'OnChecke'
|
||||
+'d'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#8'Fi'
|
||||
+'leName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0
|
||||
]);
|
||||
@ -4,8 +4,8 @@ unit Exnetu;
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes,Controls, Forms, Dialogs,
|
||||
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil, OgNetWrk;
|
||||
SysUtils, Classes,Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
|
||||
OnGuard, OgUtil, OgNetWrk;
|
||||
|
||||
type
|
||||
|
||||
@ -39,6 +39,10 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
uses
|
||||
IniFiles;
|
||||
|
||||
|
||||
procedure TForm1.CodeChecked(Sender: TObject; Status: TCodeStatus);
|
||||
@ -97,6 +101,7 @@ begin
|
||||
Ini := TIniFile.Create('ONGUARD.INI');
|
||||
try
|
||||
{store the code in the ini file if it looks OK}
|
||||
Work := Default(TCode);
|
||||
if HexToBuffer(S, Work, SizeOf(Work)) then begin
|
||||
{save the value}
|
||||
Ini.WriteString('Codes', 'NetCode', S);
|
||||
@ -156,11 +161,10 @@ procedure TForm1.FormCreate(Sender: TObject);
|
||||
var
|
||||
Code : TCode;
|
||||
begin
|
||||
{force code label to update}
|
||||
{force code label to update}
|
||||
Code := Default(TCode);
|
||||
GetCode(Self, Code);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i exnetu.lrs}
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user