git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@601 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/onguard/examples/codegen/codegenu.pas

@@ -0,0 +1,67 @@
+unit CODEGENU;
+
+{$MODE Delphi}
+
+interface
+
+uses
+  LCLIntf,
+  SysUtils, Classes, Forms, Dialogs,
+  Buttons,LResources,StdCtrls, onguard,ogutil;
+
+type
+  TCodeGenFrm = class(TForm)
+    GenerateBtn: TButton;
+    CodeEd: TEdit;
+    Label2: TLabel;
+    CloseBtn: TBitBtn;
+    CopySb: TSpeedButton;
+    OgMakeCodes1: TOgMakeCodes;
+    procedure CopySbClick(Sender: TObject);
+    procedure GenerateBtnClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CodeGenFrm: TCodeGenFrm;
+
+implementation
+
+
+procedure TCodeGenFrm.CopySbClick(Sender: TObject);
+var
+  OldSelStart : Integer;
+begin
+  OldSelStart := CodeEd.SelStart;
+  CodeEd.SelStart := 0;
+  CodeEd.SelLength := MaxInt;
+  CodeEd.CopyToClipboard;
+  CodeEd.SelStart := OldSelStart;
+  CodeEd.SelLength := 0;
+end;
+
+procedure TCodeGenFrm.GenerateBtnClick(Sender: TObject);
+const
+  CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);
+var
+  Work : TCode;
+begin
+  {set default key to use}
+  OgMakeCodes1.SetKey(CKey);
+  if OgMakeCodes1.Execute then begin
+    {get the code}
+    OgMakeCodes1.GetCode(Work);
+    {display the code}
+    CodeEd.Text := OgUtil.BufferToHex(Work, SizeOf(Work));
+  end;
+
+
+end;
+
+initialization
+  {$i CODEGENU.lrs}
+
+end.