home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / navody / DICOMSRC.ZIP / About.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-06-08  |  851 b   |  48 lines
  1. unit About;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, StdCtrls, ExtCtrls, Controls, Buttons, Classes,Forms;
  7. //SysUtils;//, Classes, Graphics, Forms,Controls, StdCtrls, Buttons, ExtCtrls, Dialogs;
  8. const
  9.  
  10.      kRadCon = pi/180;
  11.      kMaxECAT = 512;
  12.      PixelCountMax = 32768;
  13. type
  14.  
  15.   xRGBTripleArray = ^TRGBTripleArray;
  16.   TRGBTripleArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;
  17.  
  18.   TAboutBox = class(TForm)
  19.     Panel1: TPanel;
  20.     Version: TLabel;
  21.     OKButton: TButton;
  22.     Image1: TImage;
  23.     SpeedButton1: TSpeedButton;
  24.     Label1: TLabel;
  25.     procedure OKButtonClick(Sender: TObject);
  26.  
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   AboutBox: TAboutBox;
  35.  
  36. implementation
  37.  
  38. uses Main;
  39.  
  40. {$R *.DFM}
  41. procedure TAboutBox.OKButtonClick(Sender: TObject);
  42. begin
  43.     Close;
  44. end;
  45.  
  46. end.
  47.  
  48.