home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_PageF.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-04  |  989b  |  50 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {             Dialog template              }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11. unit FR_PageF;
  12.  
  13. interface
  14.  
  15. {$I FR.inc}
  16.  
  17. uses
  18.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs;
  19.  
  20. type
  21.   TfrPageForm = class(TForm)
  22.   protected
  23.     procedure BoundsChanged; override;
  24.   public
  25.     { Public declarations }
  26.     constructor Create(AOwner: TComponent); override;
  27.   end;
  28.  
  29.  
  30. implementation
  31.  
  32. {$R *.xfm}
  33.  
  34. uses FR_Class;
  35.  
  36. constructor TfrPageForm.Create(AOwner: TComponent);
  37. begin
  38.   inherited Create(AOwner);
  39.   Parent := AOwner as TWinControl;
  40. end;
  41.  
  42. procedure TfrPageForm.BoundsChanged;
  43. begin
  44.   inherited;
  45.   if Assigned(OnResize) then
  46.     OnResize(nil);
  47. end;
  48.  
  49. end.
  50.