You've already forked lazarus-ccr
eed17766fe
- initial support for InvalidCount , which allow to run program even if trial rules are broken (but only exactly set count) - IDE serial number used instead of volume serial git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@921 8e941d3f-bd1b-0410-a28a-d453659cc2b4
61 lines
892 B
ObjectPascal
61 lines
892 B
ObjectPascal
unit Exdmodu2;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils,Classes,Controls,
|
|
Forms, Dialogs, StdCtrls, Buttons,LResources;
|
|
|
|
type
|
|
|
|
{ TSNEntryDlg }
|
|
|
|
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.
|