home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 B / CHIP_HITWARE6_B.iso / biuro / BaseCalculator / Sources / About.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-11-06  |  1.8 KB  |  63 lines
  1. unit About;
  2.  
  3. {************************************************************************
  4. *                                                                       *
  5. *                           Calculator About Box                        *
  6. *                                                                       *
  7. ************************************************************************}
  8.  
  9. { Author:    John Zaitseff <J.Zaitseff@unsw.edu.au>
  10.   Date:      6th November, 1996.
  11.   Version:   1.2
  12.  
  13.   This file provides the user interface code to create a (very) simple
  14.   About dialog box.  Most of the "code" is actually written by Delphi
  15.   from ABOUT.DFM.
  16.  
  17.   This program, including this file, is under the terms of the GNU
  18.   General Public License.
  19. }
  20.  
  21. interface
  22.  
  23. uses
  24.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  25.   ExtCtrls, StdCtrls;
  26.  
  27. type
  28.   TAboutWin = class(TForm)
  29.                 OKButton    : TButton;
  30.                 HelpButton  : TButton;
  31.                 Panel       : TPanel;
  32.                 ProgramIcon : TImage;
  33.                 ProductName : TLabel;
  34.                 Version     : TLabel;
  35.                 Copyright   : TLabel;
  36.                 Comments1   : TLabel;
  37.                 Comments2   : TLabel;
  38.  
  39.                 procedure HelpButtonClick (Sender : TObject);
  40.               private
  41.                 { Private declarations }
  42.               public
  43.                 { Public declarations }
  44.               end;
  45.  
  46. var
  47.   AboutWin : TAboutWin;
  48.  
  49. implementation
  50.  
  51. {$R *.DFM}
  52.  
  53. { Display the program's License.  The help context is found
  54.   in the Object Inspector "HelpContext" property for AboutWin. }
  55. procedure TAboutWin.HelpButtonClick (Sender : TObject);
  56.  
  57. begin
  58.   Application.HelpContext(HelpContext)
  59. end;
  60.  
  61. end.
  62.  
  63.