home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / Format / REGISTER.PAS < prev    next >
Pascal/Delphi Source File  |  1995-06-04  |  2KB  |  62 lines
  1. unit Register;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, SysUtils, Label3d;
  7.  
  8. type
  9.   TRegisterDlg = class(TForm)
  10.     Bevel1: TBevel;
  11.     ProgramIcon: TImage;
  12.     Bevel2: TBevel;
  13.     Label7: TLabel;
  14.     Components: TLabel;
  15.     Label8: TLabel;
  16.     RegistrationInfo: TLabel;
  17.     OkBtn: TBitBtn;
  18.     Label3D1: TLabel3D;
  19.     Label3D2: TLabel3D;
  20.     Label3D3: TLabel3D;
  21.     Label3D4: TLabel3D;
  22.     ProgramName: TLabel3D;
  23.     Version: TLabel3D;
  24.     Label3D5: TLabel3D;
  25.     procedure OKBtnClick(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   RegisterDlg: TRegisterDlg;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TRegisterDlg.OKBtnClick(Sender: TObject);
  41. begin
  42.    Close;
  43. end;
  44.  
  45. procedure TRegisterDlg.FormCreate(Sender: TObject);
  46. begin
  47. {Get program icon}
  48.     ProgramIcon.Picture.Graphic := Application.Icon;
  49.     {Set Aboutbox Program Name & Version}
  50.     RegisterDlg.ProgramName.Caption := ExtractFileName(Application.EXEName);
  51.     RegisterDlg.Version.Caption := 'Version 1.0';
  52.     RegisterDlg.Components.Caption := 'Requires the GrafLite Shareware Visual Component to recompile '+
  53.                                       'as written.  If the shareware component is not '+
  54.                                       'available, delete all references to GraphicLight in the project.';
  55.     RegisterDlg.RegistrationInfo.Caption := 'This is a freeware program to promote the shareing of source code '+
  56.                                             'on the Borland Forum on Compuserve.  '+
  57.                                             '  Formatting code based on a unit provided by Henning Jorgensen of Denmark.'+
  58.                                             '  The author assumes no responsibity for use or misuse of this program.';
  59. end;
  60.  
  61. end.
  62.