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
43 lines
667 B
ObjectPascal
43 lines
667 B
ObjectPascal
{form used for Serial Number/ReleaseCode input}
|
|
unit Exsrnmu2;
|
|
|
|
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;
|
|
procedure CancelBtnClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
SNEntryDlg: TSNEntryDlg;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TSNEntryDlg.CancelBtnClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|