home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_About.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-03  |  1KB  |  65 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {              About window                }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11. unit FR_About;
  12.  
  13. interface
  14.  
  15. {$I FR.inc}
  16.  
  17. uses
  18.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  19.   QExtCtrls, QStdCtrls, FR_Const;
  20.  
  21. type
  22.   TfrAboutForm = class(TForm)
  23.     Button1: TButton;
  24.     Label2: TLabel;
  25.     Label3: TLabel;
  26.     Image1: TImage;
  27.     Bevel2: TBevel;
  28.     Label5: TLabel;
  29.     PBox: TPaintBox;
  30.     Shape1: TShape;
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure PBoxPaint(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.     procedure Localize;
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40.  
  41. implementation
  42.  
  43. uses FR_Utils, FR_Ctrls;
  44.  
  45. {$R *.xfm}
  46.  
  47. procedure TfrAboutForm.Localize;
  48. begin
  49.   Caption := (S53540);
  50.   Button1.Caption := (SOk);
  51. end;
  52.  
  53. procedure TfrAboutForm.FormCreate(Sender: TObject);
  54. begin
  55.   Localize;
  56. end;
  57.  
  58. procedure TfrAboutForm.PBoxPaint(Sender: TObject);
  59. begin
  60.   frDrawTransparent(PBox.Canvas, 0, 0, Image1.Picture.Bitmap);
  61. end;
  62.  
  63. end.
  64.  
  65.