home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_Reg.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-13  |  2KB  |  87 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {            Registration unit             }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11.  
  12. unit FR_Reg;
  13.  
  14. interface
  15.  
  16. {$I FR.inc}
  17.  
  18. procedure Register;
  19.  
  20. implementation
  21.  
  22. uses
  23.   Classes, DesignIntf, DesignEditors,
  24.   QDialogs, FR_Class, FR_DSet, FR_DBSet,
  25.   FR_ChBox, FR_Shape
  26. {$IFNDEF KYLIXBUG}
  27. , FR_BarC
  28. {$ENDIF}
  29. , FR_RRect,
  30.   FR_Desgn, FR_View, FR_Dock, FR_Ctrls, FR_Utils, FR_PTabl,
  31.   FR_E_TXT, FR_E_RTF, FR_E_CSV, FR_E_HTM, FR_Const, FR_DCtrl;
  32.  
  33. {-----------------------------------------------------------------------}
  34. type
  35.   TfrRepEditor = class(TComponentEditor)
  36.     procedure ExecuteVerb(Index: Integer); override;
  37.     function GetVerb(Index: Integer): String; override;
  38.     function GetVerbCount: Integer; override;
  39.     procedure DoDesign;
  40.   end;
  41.  
  42.  
  43. procedure TfrRepEditor.ExecuteVerb(Index: Integer);
  44. begin
  45.   DoDesign;
  46. end;
  47.  
  48. function TfrRepEditor.GetVerb(Index: Integer): String;
  49. begin
  50.   Result := (SDesignReport);
  51. end;
  52.  
  53. function TfrRepEditor.GetVerbCount: Integer;
  54. begin
  55.   Result := 1;
  56. end;
  57.  
  58. procedure TfrRepEditor.DoDesign;
  59. begin
  60.   TfrReport(Component).DesignReport;
  61.   if TfrReport(Component).StoreInDFM then
  62.     if TfrReport(Component).ComponentModified then
  63.       Designer.Modified;
  64. end;
  65.  
  66.  
  67. //--------------------------------------------------------------------------
  68. procedure Register;
  69. begin
  70.   RegisterComponents('FastReport',
  71.     [TfrReport, TfrCompositeReport, TfrDBDataSet, TfrUserDataset,
  72.      TfrCheckBoxObject, TfrShapeObject
  73. {$IFNDEF KYLIXBUG}
  74.    , TfrBarCodeObject
  75. {$ENDIF}
  76.    , TfrRoundRectObject,
  77.      TfrTextExport, TfrRTFExport, TfrCSVExport, TfrHTMExport,
  78.      TfrDesigner, TfrPreview, TfrDialogControls, TfrPrintTable, TfrPrintGrid]);
  79.   RegisterComponents('FR Tools',
  80.     [TfrSpeedButton, TfrDock, TfrToolBar, TfrTBToolBar,
  81.      TfrTBButton, TfrTBSeparator, TfrTBPanel,
  82.      TfrComboEdit, TfrComboBox, TfrFontComboBox]);
  83.   RegisterComponentEditor(TfrReport, TfrRepEditor);
  84. end;
  85.  
  86. end.
  87.