You've already forked lazarus-ccr
58 lines
872 B
ObjectPascal
58 lines
872 B
ObjectPascal
|
unit Exdmodu2;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils,Classes,Controls,
|
||
|
|
Forms, Dialogs, StdCtrls, Buttons,LResources;
|
||
|
|
|
||
|
|
type
|
||
|
|
TSNEntryDlg = class(TForm)
|
||
|
|
Label1: TLabel;
|
||
|
|
Label2: TLabel;
|
||
|
|
SNText: TEdit;
|
||
|
|
CodeText: TEdit;
|
||
|
|
OKBtn: TBitBtn;
|
||
|
|
CancelBtn: TBitBtn;
|
||
|
|
Label3: TLabel;
|
||
|
|
Label4: TLabel;
|
||
|
|
ModString: TEdit;
|
||
|
|
procedure CancelBtnClick(Sender: TObject);
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
SNEntryDlg: TSNEntryDlg;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
uses
|
||
|
|
OnGuard,
|
||
|
|
OgUtil;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TSNEntryDlg.CancelBtnClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TSNEntryDlg.FormCreate(Sender: TObject);
|
||
|
|
var
|
||
|
|
LI : longint;
|
||
|
|
begin
|
||
|
|
LI := GenerateMachineModifierPrim;
|
||
|
|
ModString.Text := BufferToHex(LI, SizeOf(longint));
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
{$i exdmodu2.lrs}
|
||
|
|
|
||
|
|
|
||
|
|
end.
|