home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / ABOUT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-28  |  1KB  |  67 lines
  1. //---------------------------------------------------------------------------
  2. // Borland C++Builder
  3. // Copyright (c) 1987, 1997 Borland International Inc.  All Rights Reserved.
  4. //---------------------------------------------------------------------------
  5. // About.pas
  6. //
  7. // VCL Class Browser
  8. //---------------------------------------------------------------------------
  9. unit about;
  10.  
  11. interface
  12.  
  13. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  14.   Buttons, ExtCtrls;
  15.  
  16. type
  17.   TAboutBox = class(TForm)
  18.     Panel1: TPanel;
  19.     ProgramIcon: TImage;
  20.     ProductName: TLabel;
  21.     Version: TLabel;
  22.     Copyright: TLabel;
  23.     Comments: TLabel;
  24.     OKButton: TButton;
  25.     Label1: TLabel;
  26.     Label2: TLabel;
  27.     procedure OKButtonClick(Sender: TObject);
  28.     procedure FormDblClick(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure ProgramIconDblClick(Sender: TObject);
  31.   private
  32.     Footnote:Boolean;
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   AboutBox: TAboutBox;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TAboutBox.OKButtonClick(Sender: TObject);
  45. begin
  46. Close;
  47. end;
  48.  
  49. procedure TAboutBox.FormDblClick(Sender: TObject);
  50.    begin
  51.    Footnote:=true;
  52.    end;
  53.  
  54. procedure TAboutBox.FormCreate(Sender: TObject);
  55.    begin
  56.    Footnote:=false;
  57.    end;
  58.  
  59. procedure TAboutBox.ProgramIconDblClick(Sender: TObject);
  60.    begin
  61.    if Footnote=true then Comments.Show;
  62.    Footnote:=false;
  63.    end;
  64.  
  65. end.
  66.  
  67.