home *** CD-ROM | disk | FTP | other *** search
/ Exame Informatica 142 / Exame Informatica 142.iso / Programas / Cerberus / CerberusSetup.exe / CerberusNET_Source / about.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2006-01-29  |  1.0 KB  |  52 lines
  1. {
  2.  (C) Paul Alan Freshney 2006
  3.  (Based on an Indy Client Demo)
  4.  
  5.   Last Modified: January 29th 2006
  6.  
  7.   This code is free to use as you wish. Please do not distribute this code without
  8.   authorisation from myself. We are free to distribute versions of CerberusNET as
  9.   you wish as long as you link to "www.paulalanfreshney.com/cerberus" somewhere
  10.   within the application!
  11.  
  12.   51
  13. }
  14.  
  15. unit about;
  16.  
  17. interface
  18.  
  19. uses
  20.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  21.   Dialogs, Buttons, StdCtrls, ExtCtrls;
  22.  
  23. type
  24.   TfrmAbout = class(TForm)
  25.     Image1: TImage;
  26.     Image2: TImage;
  27.     Label1: TLabel;
  28.     Label2: TLabel;
  29.     SpeedButton1: TSpeedButton;
  30.     Bevel1: TBevel;
  31.     Label3: TLabel;
  32.     procedure SpeedButton1Click(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   frmAbout: TfrmAbout;
  41.  
  42. implementation
  43.  
  44. {$R *.dfm}
  45.  
  46. procedure TfrmAbout.SpeedButton1Click(Sender: TObject);
  47.  begin
  48.   Close;
  49. end;
  50.  
  51. end.
  52.