You've already forked lazarus-ccr
e456d87021
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8724 8e941d3f-bd1b-0410-a28a-d453659cc2b4
57 lines
904 B
ObjectPascal
57 lines
904 B
ObjectPascal
unit Exdmodu2;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;
|
|
|
|
type
|
|
|
|
{ TSNEntryDlg }
|
|
|
|
TSNEntryDlg = class(TForm)
|
|
Bevel1: TBevel;
|
|
Bevel2: TBevel;
|
|
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
|
|
|
|
{$R *.lfm}
|
|
|
|
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;
|
|
|
|
|
|
end.
|