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
@ -57,9 +57,10 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdmodu1"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="199"/>
|
||||
<CursorPos X="54" Y="211"/>
|
||||
<TopLine Value="177"/>
|
||||
<CursorPos X="3" Y="228"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -71,10 +72,7 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdmodu2"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="21"/>
|
||||
<CursorPos X="52" Y="38"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -160,123 +158,123 @@
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" TopLine="488"/>
|
||||
<Caret Line="516" TopLine="495"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" TopLine="489"/>
|
||||
<Caret Line="522" TopLine="495"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="512" TopLine="491"/>
|
||||
<Caret Line="517" TopLine="496"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="515" TopLine="494"/>
|
||||
<Caret Line="516" TopLine="495"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="516" TopLine="495"/>
|
||||
<Caret Line="522" TopLine="495"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="522" TopLine="495"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" TopLine="155"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="517" TopLine="496"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="177" TopLine="156"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="516" TopLine="495"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="179" TopLine="158"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="522" TopLine="495"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="167" Column="37" TopLine="160"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" TopLine="155"/>
|
||||
<Caret Line="182" TopLine="161"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="177" TopLine="156"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1179" TopLine="1158"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="179" TopLine="158"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1180" TopLine="1159"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="167" Column="37" TopLine="160"/>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1181" TopLine="1160"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="182" TopLine="161"/>
|
||||
<Caret Line="184" TopLine="163"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1179" TopLine="1158"/>
|
||||
<Caret Line="2085" TopLine="2064"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1180" TopLine="1159"/>
|
||||
<Caret Line="2086" TopLine="2065"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1181" TopLine="1160"/>
|
||||
<Caret Line="2087" Column="40" TopLine="2066"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="184" TopLine="163"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2085" TopLine="2064"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2086" TopLine="2065"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2087" Column="40" TopLine="2066"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2088" TopLine="2067"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="188" TopLine="137"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<Caret Line="24" Column="51" TopLine="20"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="211" Column="75" TopLine="206"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" TopLine="156"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="188" TopLine="137"/>
|
||||
<Caret Line="175" TopLine="155"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<Caret Line="24" Column="51" TopLine="20"/>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="178" Column="27" TopLine="156"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="211" Column="75" TopLine="206"/>
|
||||
<Caret Line="45" Column="14" TopLine="24"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" TopLine="156"/>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<Caret Line="37" Column="52" TopLine="20"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="175" TopLine="155"/>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<Caret Line="57" TopLine="22"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="178" Column="27" TopLine="156"/>
|
||||
<Caret Line="210" Column="26" TopLine="199"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="45" Column="14" TopLine="24"/>
|
||||
<Caret Line="212" Column="23" TopLine="200"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<Caret Line="37" Column="52" TopLine="20"/>
|
||||
<Caret Line="20" Column="28" TopLine="20"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
|
||||
@ -1,26 +0,0 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMain','FORMDATA',[
|
||||
'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0
|
||||
+#5'Width'#3#240#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#21
|
||||
+'Serial Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10
|
||||
+'Font.Color'#7#7'clBlack'#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14
|
||||
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'Anchor'
|
||||
+'SideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Anch'
|
||||
+'orSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
|
||||
+#2'b'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2','#9'Alignment'#7#8'taCenter'#7
|
||||
+'Caption'#6#10'Serial #: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'A'
|
||||
+'nchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
|
||||
+'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
|
||||
+'Left'#2'L'#6'Height'#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'
|
||||
+#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorS'
|
||||
+'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorS'
|
||||
+'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
|
||||
+#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#216#0#7'Anchors'#11#5'akTop'#6'a'
|
||||
+'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6':If you can '
|
||||
+'edit this, then your program was allowed to run'#8'WordWrap'#9#0#0#19'TOgSe'
|
||||
+'rialNumberCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCod'
|
||||
+'e1Checked'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'Og'
|
||||
+'SerialNumberCode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModi'
|
||||
+'fier'#4'Left'#2'8'#3'Top'#2'@'#0#0#0
|
||||
]);
|
||||
@ -45,18 +45,16 @@ type
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
procedure OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
procedure OgSerialNumberCode1Checked(Sender: TObject;
|
||||
Status: TCodeStatus);
|
||||
procedure OgSerialNumberCode1GetModifier(Sender: TObject;
|
||||
var Value: Longint);
|
||||
procedure OgSerialNumberCode1Checked(Sender: TObject; Status: TCodeStatus);
|
||||
procedure OgSerialNumberCode1GetModifier(Sender: TObject; var Value: Longint);
|
||||
private
|
||||
{ Private declarations }
|
||||
FExpired : Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
TheDir : string;
|
||||
IniSNVal : longint;
|
||||
IniFile : TIniFile;
|
||||
TheDir : string;
|
||||
IniSNVal : longint;
|
||||
IniFile : TIniFile;
|
||||
|
||||
function GetSNData(var S : string) : integer;
|
||||
end;
|
||||
@ -66,10 +64,10 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
LResources,Exdmodu2;
|
||||
{$R *.lfm}
|
||||
|
||||
{=======================================================================}
|
||||
uses
|
||||
Exdmodu2;
|
||||
|
||||
procedure TfrmMain.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
begin
|
||||
@ -81,10 +79,6 @@ begin
|
||||
if FExpired then Application.Terminate;
|
||||
end;
|
||||
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
|
||||
procedure TfrmMain.OgSerialNumberCode1GetModifier(Sender: TObject;
|
||||
var Value: Longint);
|
||||
begin
|
||||
@ -92,9 +86,6 @@ begin
|
||||
Value := GenerateMachineModifierPrim;
|
||||
end;
|
||||
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
procedure TfrmMain.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
var
|
||||
S1 : string;
|
||||
@ -144,8 +135,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
function TfrmMain.GetSNData(var S : string) : integer;
|
||||
{method used to ask for user input of serial number and release code}
|
||||
var
|
||||
@ -198,10 +187,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
procedure TfrmMain.OgSerialNumberCode1Checked(Sender: TObject;
|
||||
Status: TCodeStatus);
|
||||
procedure TfrmMain.OgSerialNumberCode1Checked(Sender: TObject; Status: TCodeStatus);
|
||||
var
|
||||
LI : longint;
|
||||
S : string;
|
||||
@ -238,13 +224,10 @@ begin
|
||||
|
||||
ogCodeExpired : S := 'Evaluation period expired';
|
||||
end;
|
||||
|
||||
ShowMessage(S);
|
||||
|
||||
FExpired := true;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i exdmodu1.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -1,51 +0,0 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TSNEntryDlg','FORMDATA',[
|
||||
'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'
|
||||
+#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#8'AutoSize'#9#11'Bord'
|
||||
+'erStyle'#7#8'bsDialog'#7'Caption'#6#23'Serial Number w/Modifer'#12'ClientHe'
|
||||
+'ight'#3#195#0#11'ClientWidth'#3#247#0#10'Font.Color'#7#7'clBlack'#8'OnCreat'
|
||||
+'e'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3'
|
||||
+'.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
|
||||
+'SideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
|
||||
+#8#6'Height'#2#15#3'Top'#2'B'#5'Width'#2#15#18'BorderSpacing.Left'#2#8#7'Cap'
|
||||
+'tion'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.C'
|
||||
+'ontrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop'
|
||||
+'.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'a'#5'Width'#2#28
|
||||
+#18'BorderSpacing.Left'#2#8#7'Caption'#6#4'Code'#11'ParentColor'#8#0#0#6'TLa'
|
||||
+'bel'#6'Label3'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'
|
||||
+#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2'"'#6'Height'#2
|
||||
+#15#3'Top'#2#8#5'Width'#3#178#0#17'BorderSpacing.Top'#2#8#7'Caption'#6'!Call'
|
||||
+' your Vendor NOW to register!'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#22
|
||||
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'ModString'
|
||||
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'#'
|
||||
+#5'Width'#2'-'#18'BorderSpacing.Left'#2#8#7'Caption'#6#8'Modifier'#11'Parent'
|
||||
+'Color'#8#0#0#5'TEdit'#6'SNText'#22'AnchorSideLeft.Control'#7#9'ModString'#21
|
||||
+'AnchorSideTop.Control'#7#9'ModString'#18'AnchorSideTop.Side'#7#9'asrBottom'
|
||||
+#4'Left'#2'='#6'Height'#2#23#3'Top'#2'>'#5'Width'#2'y'#17'BorderSpacing.Top'
|
||||
+#2#8#8'TabOrder'#2#1#0#0#5'TEdit'#8'CodeText'#22'AnchorSideLeft.Control'#7#6
|
||||
+'SNText'#21'AnchorSideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'as'
|
||||
+'rBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2']'#5'Width'#3#175#0#17'Border'
|
||||
+'Spacing.Top'#2#8#19'BorderSpacing.Right'#2#8#8'TabOrder'#2#2#0#0#7'TBitBtn'
|
||||
+#5'OKBtn'#21'AnchorSideTop.Control'#7#9'CancelBtn'#23'AnchorSideRight.Contro'
|
||||
+'l'#7#6'Bevel1'#4'Left'#2'E'#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2'.'#7'A'
|
||||
+'nchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Bottom'#2#8
|
||||
+#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'Canc'
|
||||
+'elBtn'#22'AnchorSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'a'
|
||||
+'srBottom'#21'AnchorSideTop.Control'#7#6'Bevel2'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrBottom'#4'Left'#3#131#0#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2'.'#8'Au'
|
||||
+'toSize'#9#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7
|
||||
+#8'bkCancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9
|
||||
+'ModString'#22'AnchorSideLeft.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7
|
||||
+#9'asrBottom'#21'AnchorSideTop.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7
|
||||
+#9'asrBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'Borde'
|
||||
+'rSpacing.Left'#2#8#17'BorderSpacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'T'
|
||||
+'abOrder'#2#0#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'
|
||||
+#19'AnchorSideLeft.Side'#7#9'asrCenter'#4'Left'#2's'#6'Height'#2#28#3'Top'#3
|
||||
+#136#0#5'Width'#2#16#5'Shape'#7#8'bsSpacer'#0#0#6'TBevel'#6'Bevel2'#22'Ancho'
|
||||
+'rSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#8'CodeText'#18'A'
|
||||
+'nchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#8'CodeText'
|
||||
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'#3
|
||||
+#128#0#5'Width'#3#228#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bor'
|
||||
+'derSpacing.Top'#2#12#5'Shape'#7#9'bsTopLine'#0#0#0
|
||||
]);
|
||||
@ -3,8 +3,7 @@ unit Exdmodu2;
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils,Classes,Controls,
|
||||
Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls;
|
||||
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
@ -35,12 +34,10 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
uses
|
||||
OnGuard,
|
||||
OgUtil;
|
||||
|
||||
OnGuard, OgUtil;
|
||||
|
||||
procedure TSNEntryDlg.CancelBtnClick(Sender: TObject);
|
||||
begin
|
||||
@ -55,8 +52,5 @@ begin
|
||||
ModString.Text := BufferToHex(LI, SizeOf(longint));
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i exdmodu2.lrs}
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user