home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / qrctrls.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  25KB  |  767 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Qrctrls.pas' rev: 5.00
  6.  
  7. #ifndef QrctrlsHPP
  8. #define QrctrlsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <QRExpr.hpp>    // Pascal unit
  14. #include <qr3const.hpp>    // Pascal unit
  15. #include <QuickRpt.hpp>    // Pascal unit
  16. #include <QRPrntr.hpp>    // Pascal unit
  17. #include <RichEdit.hpp>    // Pascal unit
  18. #include <ComCtrls.hpp>    // Pascal unit
  19. #include <DBTables.hpp>    // Pascal unit
  20. #include <Db.hpp>    // Pascal unit
  21. #include <Printers.hpp>    // Pascal unit
  22. #include <Dialogs.hpp>    // Pascal unit
  23. #include <ExtCtrls.hpp>    // Pascal unit
  24. #include <Forms.hpp>    // Pascal unit
  25. #include <Buttons.hpp>    // Pascal unit
  26. #include <Graphics.hpp>    // Pascal unit
  27. #include <SysUtils.hpp>    // Pascal unit
  28. #include <StdCtrls.hpp>    // Pascal unit
  29. #include <Controls.hpp>    // Pascal unit
  30. #include <Classes.hpp>    // Pascal unit
  31. #include <Windows.hpp>    // Pascal unit
  32. #include <Messages.hpp>    // Pascal unit
  33. #include <SysInit.hpp>    // Pascal unit
  34. #include <System.hpp>    // Pascal unit
  35.  
  36. //-- user supplied -----------------------------------------------------------
  37.  
  38. namespace Qrctrls
  39. {
  40. //-- type declarations -------------------------------------------------------
  41. typedef void __fastcall (__closure *TQRLabelOnPrintEvent)(System::TObject* sender, AnsiString &Value
  42.     );
  43.  
  44. class DELPHICLASS TQRCustomLabel;
  45. class PASCALIMPLEMENTATION TQRCustomLabel : public Quickrpt::TQRPrintable 
  46. {
  47.     typedef Quickrpt::TQRPrintable inherited;
  48.     
  49. private:
  50.     bool FCaptionBased;
  51.     bool DoneFormat;
  52.     bool FAutoSize;
  53.     bool FAutoStretch;
  54.     AnsiString FCaption;
  55.     int FCurrentLine;
  56.     AnsiString FPrintCaption;
  57.     int FFontSize;
  58.     Classes::TStrings* FFormattedLines;
  59.     Classes::TStrings* FLines;
  60.     TQRLabelOnPrintEvent FOnPrint;
  61.     bool FWordWrap;
  62.     bool UpdatingBounds;
  63.     AnsiString __fastcall GetCaption();
  64.     virtual bool __fastcall GetCaptionBased(void);
  65.     void __fastcall SetAutoStretch(bool Value);
  66.     void __fastcall SetCaption(AnsiString Value);
  67.     void __fastcall SetLines(Classes::TStrings* Value);
  68.     void __fastcall SetWordWrap(bool Value);
  69.     void __fastcall PaintToCanvas(Graphics::TCanvas* aCanvas, const Windows::TRect &aRect, bool CanExpand
  70.         , int LineHeight);
  71.     void __fastcall PrintToCanvas(Graphics::TCanvas* aCanvas, Extended aLeft, Extended aTop, Extended aWidth
  72.         , Extended aHeight, Extended LineHeight, bool CanExpand);
  73.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  74.     
  75. protected:
  76.     virtual void __fastcall FormatLines(void);
  77.     virtual void __fastcall Loaded(void);
  78.     virtual void __fastcall SetName(const AnsiString Value);
  79.     virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  80.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  81.     virtual void __fastcall ReadFontSize(Classes::TReader* Reader);
  82.     virtual void __fastcall WriteFontSize(Classes::TWriter* Writer);
  83.     virtual void __fastcall Paint(void);
  84.     virtual void __fastcall Prepare(void);
  85.     virtual void __fastcall Unprepare(void);
  86.     virtual void __fastcall Print(int OfsX, int OfsY);
  87.     virtual void __fastcall SetAlignment(Classes::TAlignment Value);
  88.     __property TQRLabelOnPrintEvent OnPrint = {read=FOnPrint, write=FOnPrint};
  89.     
  90. public:
  91.     __fastcall virtual TQRCustomLabel(Classes::TComponent* AOwner);
  92.     __fastcall virtual ~TQRCustomLabel(void);
  93.     DYNAMIC Classes::TAlignment __fastcall GetControlsAlignment(void);
  94.     __property bool CaptionBased = {read=GetCaptionBased, nodefault};
  95.     __property Alignment ;
  96.     __property bool AutoSize = {read=FAutoSize, write=FAutoSize, nodefault};
  97.     __property bool AutoStretch = {read=FAutoStretch, write=SetAutoStretch, nodefault};
  98.     __property AnsiString Caption = {read=GetCaption, write=SetCaption, stored=true};
  99.     __property Color ;
  100.     __property Font ;
  101.     __property Classes::TStrings* Lines = {read=FLines, write=SetLines};
  102.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, nodefault};
  103. public:
  104.     #pragma option push -w-inl
  105.     /* TWinControl.CreateParented */ inline __fastcall TQRCustomLabel(HWND ParentWindow) : Quickrpt::TQRPrintable(
  106.         ParentWindow) { }
  107.     #pragma option pop
  108.     
  109. };
  110.  
  111.  
  112. class DELPHICLASS TQRLabel;
  113. class PASCALIMPLEMENTATION TQRLabel : public TQRCustomLabel 
  114. {
  115.     typedef TQRCustomLabel inherited;
  116.     
  117. protected:
  118.     virtual TMetaClass* __fastcall GetEditorClass(void);
  119.     
  120. __published:
  121.     __property Alignment ;
  122.     __property AlignToBand ;
  123.     __property AutoSize ;
  124.     __property AutoStretch ;
  125.     __property BiDiMode ;
  126.     __property ParentBiDiMode ;
  127.     __property Caption ;
  128.     __property Color ;
  129.     __property Font ;
  130.     __property OnPrint ;
  131.     __property ParentFont ;
  132.     __property Transparent ;
  133.     __property WordWrap ;
  134. public:
  135.     #pragma option push -w-inl
  136.     /* TQRCustomLabel.Create */ inline __fastcall virtual TQRLabel(Classes::TComponent* AOwner) : TQRCustomLabel(
  137.         AOwner) { }
  138.     #pragma option pop
  139.     #pragma option push -w-inl
  140.     /* TQRCustomLabel.Destroy */ inline __fastcall virtual ~TQRLabel(void) { }
  141.     #pragma option pop
  142.     
  143. public:
  144.     #pragma option push -w-inl
  145.     /* TWinControl.CreateParented */ inline __fastcall TQRLabel(HWND ParentWindow) : TQRCustomLabel(ParentWindow
  146.         ) { }
  147.     #pragma option pop
  148.     
  149. };
  150.  
  151.  
  152. class DELPHICLASS TQRMemo;
  153. class PASCALIMPLEMENTATION TQRMemo : public TQRCustomLabel 
  154. {
  155.     typedef TQRCustomLabel inherited;
  156.     
  157. protected:
  158.     virtual bool __fastcall GetCaptionBased(void);
  159.     
  160. public:
  161.     virtual void __fastcall Paint(void);
  162.     virtual void __fastcall Print(int OfsX, int OfsY);
  163.     
  164. __published:
  165.     __property Alignment ;
  166.     __property AlignToBand ;
  167.     __property AutoSize ;
  168.     __property AutoStretch ;
  169.     __property BiDiMode ;
  170.     __property ParentBiDiMode ;
  171.     __property Color ;
  172.     __property Font ;
  173.     __property Lines ;
  174.     __property ParentFont ;
  175.     __property Transparent ;
  176.     __property WordWrap ;
  177. public:
  178.     #pragma option push -w-inl
  179.     /* TQRCustomLabel.Create */ inline __fastcall virtual TQRMemo(Classes::TComponent* AOwner) : TQRCustomLabel(
  180.         AOwner) { }
  181.     #pragma option pop
  182.     #pragma option push -w-inl
  183.     /* TQRCustomLabel.Destroy */ inline __fastcall virtual ~TQRMemo(void) { }
  184.     #pragma option pop
  185.     
  186. public:
  187.     #pragma option push -w-inl
  188.     /* TWinControl.CreateParented */ inline __fastcall TQRMemo(HWND ParentWindow) : TQRCustomLabel(ParentWindow
  189.         ) { }
  190.     #pragma option pop
  191.     
  192. };
  193.  
  194.  
  195. class DELPHICLASS TQRDBText;
  196. class PASCALIMPLEMENTATION TQRDBText : public TQRCustomLabel 
  197. {
  198.     typedef TQRCustomLabel inherited;
  199.     
  200. private:
  201.     Stdctrls::TEdit* ComboBox;
  202.     Db::TField* Field;
  203.     int FieldNo;
  204.     bool FieldOK;
  205.     System::SmallString<30>  DataSourceName;
  206.     Db::TDataSet* FDataSet;
  207.     AnsiString FDataField;
  208.     AnsiString FMask;
  209.     bool IsMemo;
  210.     void __fastcall SetDataSet(Db::TDataSet* Value);
  211.     void __fastcall SetDataField(AnsiString Value);
  212.     void __fastcall SetMask(AnsiString Value);
  213.     
  214. protected:
  215.     virtual bool __fastcall GetCaptionBased(void);
  216.     virtual void __fastcall Loaded(void);
  217.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  218.         );
  219.     virtual void __fastcall Prepare(void);
  220.     virtual void __fastcall Print(int OfsX, int OfsY);
  221.     virtual void __fastcall Unprepare(void);
  222.     
  223. public:
  224.     __fastcall virtual TQRDBText(Classes::TComponent* AOwner);
  225.     DYNAMIC bool __fastcall UseRightToLeftAlignment(void);
  226.     
  227. __published:
  228.     __property Alignment ;
  229.     __property AlignToBand ;
  230.     __property AutoSize ;
  231.     __property AutoStretch ;
  232.     __property BiDiMode ;
  233.     __property ParentBiDiMode ;
  234.     __property Color ;
  235.     __property Db::TDataSet* DataSet = {read=FDataSet, write=SetDataSet};
  236.     __property AnsiString DataField = {read=FDataField, write=SetDataField};
  237.     __property Font ;
  238.     __property AnsiString Mask = {read=FMask, write=SetMask};
  239.     __property OnPrint ;
  240.     __property ParentFont ;
  241.     __property Transparent ;
  242.     __property WordWrap ;
  243. public:
  244.     #pragma option push -w-inl
  245.     /* TQRCustomLabel.Destroy */ inline __fastcall virtual ~TQRDBText(void) { }
  246.     #pragma option pop
  247.     
  248. public:
  249.     #pragma option push -w-inl
  250.     /* TWinControl.CreateParented */ inline __fastcall TQRDBText(HWND ParentWindow) : TQRCustomLabel(ParentWindow
  251.         ) { }
  252.     #pragma option pop
  253.     
  254. };
  255.  
  256.  
  257. class DELPHICLASS TQRExpr;
  258. class PASCALIMPLEMENTATION TQRExpr : public TQRCustomLabel 
  259. {
  260.     typedef TQRCustomLabel inherited;
  261.     
  262. private:
  263.     Qrexpr::TQREvaluator* Evaluator;
  264.     AnsiString FExpression;
  265.     AnsiString FMask;
  266.     Classes::TComponent* FMaster;
  267.     bool FResetAfterPrint;
  268.     Qrexpr::TQREvResult __fastcall GetValue();
  269.     void __fastcall SetExpression(AnsiString Value);
  270.     void __fastcall SetMask(AnsiString Value);
  271.     
  272. protected:
  273.     virtual void __fastcall Prepare(void);
  274.     virtual void __fastcall Unprepare(void);
  275.     virtual void __fastcall QRNotification(System::TObject* Sender, Quickrpt::TQRNotifyOperation Operation
  276.         );
  277.     virtual void __fastcall Print(int OfsX, int OfsY);
  278.     void __fastcall SetMaster(Classes::TComponent* AComponent);
  279.     
  280. public:
  281.     __fastcall virtual TQRExpr(Classes::TComponent* AOwner);
  282.     __fastcall virtual ~TQRExpr(void);
  283.     void __fastcall Reset(void);
  284.     __property Qrexpr::TQREvResult Value = {read=GetValue};
  285.     
  286. __published:
  287.     __property Alignment ;
  288.     __property AlignToBand ;
  289.     __property AutoSize ;
  290.     __property AutoStretch ;
  291.     __property BiDiMode ;
  292.     __property ParentBiDiMode ;
  293.     __property Font ;
  294.     __property Color ;
  295.     __property Classes::TComponent* Master = {read=FMaster, write=SetMaster};
  296.     __property OnPrint ;
  297.     __property ParentFont ;
  298.     __property bool ResetAfterPrint = {read=FResetAfterPrint, write=FResetAfterPrint, nodefault};
  299.     __property Transparent ;
  300.     __property WordWrap ;
  301.     __property AnsiString Expression = {read=FExpression, write=SetExpression};
  302.     __property AnsiString Mask = {read=FMask, write=SetMask};
  303. public:
  304.     #pragma option push -w-inl
  305.     /* TWinControl.CreateParented */ inline __fastcall TQRExpr(HWND ParentWindow) : TQRCustomLabel(ParentWindow
  306.         ) { }
  307.     #pragma option pop
  308.     
  309. };
  310.  
  311.  
  312. #pragma option push -b-
  313. enum TQRSysDataType { qrsTime, qrsDate, qrsDateTime, qrsPageNumber, qrsReportTitle, qrsDetailCount, 
  314.     qrsDetailNo };
  315. #pragma option pop
  316.  
  317. class DELPHICLASS TQRSysData;
  318. class PASCALIMPLEMENTATION TQRSysData : public TQRCustomLabel 
  319. {
  320.     typedef TQRCustomLabel inherited;
  321.     
  322. private:
  323.     TQRSysDataType FData;
  324.     AnsiString FText;
  325.     void __fastcall SetData(TQRSysDataType Value);
  326.     HIDESBASE void __fastcall SetText(AnsiString Value);
  327.     void __fastcall CreateCaption(void);
  328.     
  329. protected:
  330.     virtual void __fastcall Print(int OfsX, int OfsY);
  331.     
  332. public:
  333.     __fastcall virtual TQRSysData(Classes::TComponent* AOwner);
  334.     
  335. __published:
  336.     __property Alignment ;
  337.     __property AlignToBand ;
  338.     __property AutoSize ;
  339.     __property BiDiMode ;
  340.     __property ParentBiDiMode ;
  341.     __property Color ;
  342.     __property TQRSysDataType Data = {read=FData, write=SetData, nodefault};
  343.     __property Font ;
  344.     __property OnPrint ;
  345.     __property ParentFont ;
  346.     __property AnsiString Text = {read=FText, write=SetText};
  347.     __property Transparent ;
  348. public:
  349.     #pragma option push -w-inl
  350.     /* TQRCustomLabel.Destroy */ inline __fastcall virtual ~TQRSysData(void) { }
  351.     #pragma option pop
  352.     
  353. public:
  354.     #pragma option push -w-inl
  355.     /* TWinControl.CreateParented */ inline __fastcall TQRSysData(HWND ParentWindow) : TQRCustomLabel(ParentWindow
  356.         ) { }
  357.     #pragma option pop
  358.     
  359. };
  360.  
  361.  
  362. #pragma option push -b-
  363. enum TQRShapeType { qrsRectangle, qrsCircle, qrsVertLine, qrsHorLine, qrsTopAndBottom, qrsRightAndLeft 
  364.     };
  365. #pragma option pop
  366.  
  367. class DELPHICLASS TQRShape;
  368. class PASCALIMPLEMENTATION TQRShape : public Quickrpt::TQRPrintable 
  369. {
  370.     typedef Quickrpt::TQRPrintable inherited;
  371.     
  372. private:
  373.     TQRShapeType FShape;
  374.     Graphics::TBrush* FBrush;
  375.     Graphics::TPen* FPen;
  376.     void __fastcall SetBrush(Graphics::TBrush* Value);
  377.     void __fastcall SetPen(Graphics::TPen* Value);
  378.     void __fastcall SetShape(TQRShapeType Value);
  379.     
  380. protected:
  381.     virtual void __fastcall Paint(void);
  382.     virtual void __fastcall Print(int OfsX, int OfsY);
  383.     void __fastcall StyleChanged(System::TObject* sender);
  384.     
  385. public:
  386.     __fastcall virtual TQRShape(Classes::TComponent* AOwner);
  387.     __fastcall virtual ~TQRShape(void);
  388.     
  389. __published:
  390.     __property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
  391.     __property Height ;
  392.     __property Graphics::TPen* Pen = {read=FPen, write=SetPen};
  393.     __property TQRShapeType Shape = {read=FShape, write=SetShape, nodefault};
  394.     __property Width ;
  395. public:
  396.     #pragma option push -w-inl
  397.     /* TWinControl.CreateParented */ inline __fastcall TQRShape(HWND ParentWindow) : Quickrpt::TQRPrintable(
  398.         ParentWindow) { }
  399.     #pragma option pop
  400.     
  401. };
  402.  
  403.  
  404. class DELPHICLASS TQRImage;
  405. class PASCALIMPLEMENTATION TQRImage : public Quickrpt::TQRPrintable 
  406. {
  407.     typedef Quickrpt::TQRPrintable inherited;
  408.     
  409. private:
  410.     Graphics::TPicture* FPicture;
  411.     bool FAutoSize;
  412.     bool FStretch;
  413.     bool FCenter;
  414.     Graphics::TCanvas* __fastcall GetCanvas(void);
  415.     void __fastcall PictureChanged(System::TObject* Sender);
  416.     HIDESBASE void __fastcall SetAutoSize(bool Value);
  417.     void __fastcall SetCenter(bool Value);
  418.     void __fastcall SetPicture(Graphics::TPicture* Value);
  419.     void __fastcall SetStretch(bool Value);
  420.     
  421. protected:
  422.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  423.     virtual void __fastcall Paint(void);
  424.     virtual void __fastcall Print(int OfsX, int OfsY);
  425.     
  426. public:
  427.     __fastcall virtual TQRImage(Classes::TComponent* AOwner);
  428.     __fastcall virtual ~TQRImage(void);
  429.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  430.     
  431. __published:
  432.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
  433.     __property bool Center = {read=FCenter, write=SetCenter, default=0};
  434.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
  435.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  436. public:
  437.     #pragma option push -w-inl
  438.     /* TWinControl.CreateParented */ inline __fastcall TQRImage(HWND ParentWindow) : Quickrpt::TQRPrintable(
  439.         ParentWindow) { }
  440.     #pragma option pop
  441.     
  442. };
  443.  
  444.  
  445. class DELPHICLASS TQRDBImage;
  446. class PASCALIMPLEMENTATION TQRDBImage : public Quickrpt::TQRPrintable 
  447. {
  448.     typedef Quickrpt::TQRPrintable inherited;
  449.     
  450. private:
  451.     Db::TField* FField;
  452.     Db::TDataSet* FDataSet;
  453.     AnsiString FDataField;
  454.     Graphics::TPicture* FPicture;
  455.     bool FStretch;
  456.     bool FCenter;
  457.     bool FPictureLoaded;
  458.     void __fastcall PictureChanged(System::TObject* Sender);
  459.     void __fastcall SetCenter(bool Value);
  460.     void __fastcall SetDataField(const AnsiString Value);
  461.     void __fastcall SetDataSet(Db::TDataSet* Value);
  462.     void __fastcall SetPicture(Graphics::TPicture* Value);
  463.     void __fastcall SetStretch(bool Value);
  464.     
  465. protected:
  466.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  467.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  468.         );
  469.     virtual void __fastcall Paint(void);
  470.     virtual void __fastcall Prepare(void);
  471.     virtual void __fastcall Print(int OfsX, int OfsY);
  472.     virtual void __fastcall UnPrepare(void);
  473.     
  474. public:
  475.     __fastcall virtual TQRDBImage(Classes::TComponent* AOwner);
  476.     __fastcall virtual ~TQRDBImage(void);
  477.     void __fastcall LoadPicture(void);
  478.     __property Db::TField* Field = {read=FField};
  479.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
  480.     
  481. __published:
  482.     __property bool Center = {read=FCenter, write=SetCenter, default=1};
  483.     __property AnsiString DataField = {read=FDataField, write=SetDataField};
  484.     __property Db::TDataSet* DataSet = {read=FDataSet, write=SetDataSet};
  485.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  486. public:
  487.     #pragma option push -w-inl
  488.     /* TWinControl.CreateParented */ inline __fastcall TQRDBImage(HWND ParentWindow) : Quickrpt::TQRPrintable(
  489.         ParentWindow) { }
  490.     #pragma option pop
  491.     
  492. };
  493.  
  494.  
  495. class DELPHICLASS TQRRichEdit;
  496. class PASCALIMPLEMENTATION TQRRichEdit : public Comctrls::TCustomRichEdit 
  497. {
  498.     typedef Comctrls::TCustomRichEdit inherited;
  499.     
  500. public:
  501.     __property BorderStyle ;
  502. public:
  503.     #pragma option push -w-inl
  504.     /* TCustomRichEdit.Create */ inline __fastcall virtual TQRRichEdit(Classes::TComponent* AOwner) : Comctrls::TCustomRichEdit(
  505.         AOwner) { }
  506.     #pragma option pop
  507.     #pragma option push -w-inl
  508.     /* TCustomRichEdit.Destroy */ inline __fastcall virtual ~TQRRichEdit(void) { }
  509.     #pragma option pop
  510.     
  511. public:
  512.     #pragma option push -w-inl
  513.     /* TWinControl.CreateParented */ inline __fastcall TQRRichEdit(HWND ParentWindow) : Comctrls::TCustomRichEdit(
  514.         ParentWindow) { }
  515.     #pragma option pop
  516.     
  517. };
  518.  
  519.  
  520. class DELPHICLASS TQRCustomRichText;
  521. class PASCALIMPLEMENTATION TQRCustomRichText : public Quickrpt::TQRPrintable 
  522. {
  523.     typedef Quickrpt::TQRPrintable inherited;
  524.     
  525. private:
  526.     int LastChar;
  527.     bool FAutoStretch;
  528.     Comctrls::TRichEdit* FParentRichEdit;
  529.     TQRRichEdit* FRichEdit;
  530.     Classes::TAlignment __fastcall GetAlignment(void);
  531.     Graphics::TColor __fastcall GetColor(void);
  532.     Graphics::TFont* __fastcall GetFont(void);
  533.     Classes::TStrings* __fastcall GetLines(void);
  534.     virtual void __fastcall SetAlignment(Classes::TAlignment Value);
  535.     HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
  536.     HIDESBASE void __fastcall SetFont(Graphics::TFont* Value);
  537.     void __fastcall SetLines(Classes::TStrings* Value);
  538.     void __fastcall SetParentRichEdit(Comctrls::TRichEdit* Value);
  539.     
  540. protected:
  541.     __property Classes::TStrings* Lines = {read=GetLines, write=SetLines};
  542.     __property Comctrls::TRichEdit* ParentRichEdit = {read=FParentRichEdit, write=SetParentRichEdit};
  543.     virtual void __fastcall Print(int OfsX, int OfsY);
  544.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  545.     
  546. public:
  547.     __fastcall virtual TQRCustomRichText(Classes::TComponent* AOwner);
  548.     __fastcall virtual ~TQRCustomRichText(void);
  549.     DYNAMIC Classes::TAlignment __fastcall GetControlsAlignment(void);
  550.     
  551. __published:
  552.     __property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
  553.     __property bool AutoStretch = {read=FAutoStretch, write=FAutoStretch, nodefault};
  554.     __property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
  555.     __property Graphics::TFont* Font = {read=GetFont, write=SetFont};
  556. public:
  557.     #pragma option push -w-inl
  558.     /* TWinControl.CreateParented */ inline __fastcall TQRCustomRichText(HWND ParentWindow) : Quickrpt::TQRPrintable(
  559.         ParentWindow) { }
  560.     #pragma option pop
  561.     
  562. };
  563.  
  564.  
  565. class DELPHICLASS TQRRichText;
  566. class PASCALIMPLEMENTATION TQRRichText : public TQRCustomRichText 
  567. {
  568.     typedef TQRCustomRichText inherited;
  569.     
  570. __published:
  571.     __property Lines ;
  572.     __property ParentRichEdit ;
  573. public:
  574.     #pragma option push -w-inl
  575.     /* TQRCustomRichText.Create */ inline __fastcall virtual TQRRichText(Classes::TComponent* AOwner) : 
  576.         TQRCustomRichText(AOwner) { }
  577.     #pragma option pop
  578.     #pragma option push -w-inl
  579.     /* TQRCustomRichText.Destroy */ inline __fastcall virtual ~TQRRichText(void) { }
  580.     #pragma option pop
  581.     
  582. public:
  583.     #pragma option push -w-inl
  584.     /* TWinControl.CreateParented */ inline __fastcall TQRRichText(HWND ParentWindow) : TQRCustomRichText(
  585.         ParentWindow) { }
  586.     #pragma option pop
  587.     
  588. };
  589.  
  590.  
  591. class DELPHICLASS TQRDBRichText;
  592. class PASCALIMPLEMENTATION TQRDBRichText : public TQRCustomRichText 
  593. {
  594.     typedef TQRCustomRichText inherited;
  595.     
  596. private:
  597.     Db::TField* Field;
  598.     AnsiString FDataField;
  599.     Db::TDataSet* FDataSet;
  600.     
  601. protected:
  602.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  603.         );
  604.     void __fastcall SetDataSet(Db::TDataSet* Value);
  605.     virtual void __fastcall Prepare(void);
  606.     virtual void __fastcall Unprepare(void);
  607.     virtual void __fastcall Print(int OfsX, int OfsY);
  608.     
  609. __published:
  610.     __property AnsiString DataField = {read=FDataField, write=FDataField};
  611.     __property Db::TDataSet* DataSet = {read=FDataSet, write=SetDataSet};
  612. public:
  613.     #pragma option push -w-inl
  614.     /* TQRCustomRichText.Create */ inline __fastcall virtual TQRDBRichText(Classes::TComponent* AOwner)
  615.          : TQRCustomRichText(AOwner) { }
  616.     #pragma option pop
  617.     #pragma option push -w-inl
  618.     /* TQRCustomRichText.Destroy */ inline __fastcall virtual ~TQRDBRichText(void) { }
  619.     #pragma option pop
  620.     
  621. public:
  622.     #pragma option push -w-inl
  623.     /* TWinControl.CreateParented */ inline __fastcall TQRDBRichText(HWND ParentWindow) : TQRCustomRichText(
  624.         ParentWindow) { }
  625.     #pragma option pop
  626.     
  627. };
  628.  
  629.  
  630. class DELPHICLASS TQRMerger;
  631. class PASCALIMPLEMENTATION TQRMerger : public System::TObject 
  632. {
  633.     typedef System::TObject inherited;
  634.     
  635. private:
  636.     Classes::TStrings* FOrgLines;
  637.     Classes::TStrings* FStrippedLines;
  638.     Classes::TStrings* FMergedLines;
  639.     bool FMerged;
  640.     bool FPrepared;
  641.     Classes::TList* Expressions;
  642.     Classes::TList* FDataSets;
  643.     
  644. protected:
  645.     Classes::TStrings* __fastcall GetOrgLines(void);
  646.     Classes::TStrings* __fastcall GetMergedLines(void);
  647.     void __fastcall SetOrgLines(Classes::TStrings* Value);
  648.     
  649. public:
  650.     __fastcall TQRMerger(void);
  651.     __fastcall virtual ~TQRMerger(void);
  652.     void __fastcall Prepare(void);
  653.     void __fastcall Merge(void);
  654.     void __fastcall Unprepare(void);
  655.     __property Classes::TStrings* Lines = {read=GetOrgLines, write=SetOrgLines};
  656.     __property Classes::TStrings* MergedLines = {read=GetMergedLines};
  657.     __property bool Merged = {read=FMerged, nodefault};
  658.     __property bool Prepared = {read=FPrepared, nodefault};
  659.     __property Classes::TList* DataSets = {read=FDataSets, write=FDataSets};
  660. };
  661.  
  662.  
  663. class DELPHICLASS TQRExprMemo;
  664. class PASCALIMPLEMENTATION TQRExprMemo : public TQRCustomLabel 
  665. {
  666.     typedef TQRCustomLabel inherited;
  667.     
  668. private:
  669.     TQRMerger* Merger;
  670.     bool FRemoveBlankLines;
  671.     
  672. protected:
  673.     virtual bool __fastcall GetCaptionBased(void);
  674.     virtual void __fastcall Prepare(void);
  675.     virtual void __fastcall Unprepare(void);
  676.     virtual void __fastcall Print(int OfsX, int OfsY);
  677.     virtual void __fastcall Paint(void);
  678.     
  679. public:
  680.     __fastcall virtual TQRExprMemo(Classes::TComponent* AOwner);
  681.     
  682. __published:
  683.     __property bool RemoveBlankLines = {read=FRemoveBlankLines, write=FRemoveBlankLines, nodefault};
  684.     __property Alignment ;
  685.     __property AlignToBand ;
  686.     __property AutoSize ;
  687.     __property AutoStretch ;
  688.     __property Color ;
  689.     __property Font ;
  690.     __property Lines ;
  691.     __property ParentFont ;
  692.     __property Transparent ;
  693.     __property WordWrap ;
  694. public:
  695.     #pragma option push -w-inl
  696.     /* TQRCustomLabel.Destroy */ inline __fastcall virtual ~TQRExprMemo(void) { }
  697.     #pragma option pop
  698.     
  699. public:
  700.     #pragma option push -w-inl
  701.     /* TWinControl.CreateParented */ inline __fastcall TQRExprMemo(HWND ParentWindow) : TQRCustomLabel(
  702.         ParentWindow) { }
  703.     #pragma option pop
  704.     
  705. };
  706.  
  707.  
  708. #pragma option push -b-
  709. enum TQRCalcOperation { qrcSum, qrcCount, qrcMax, qrcMin, qrcAverage };
  710. #pragma option pop
  711.  
  712. class DELPHICLASS TQRDBCalc;
  713. class PASCALIMPLEMENTATION TQRDBCalc : public TQRExpr 
  714. {
  715.     typedef TQRExpr inherited;
  716.     
  717. private:
  718.     AnsiString FDataField;
  719.     Db::TDataSource* FDataSource;
  720.     TQRCalcOperation FOperation;
  721.     Quickrpt::TQRBand* FResetBand;
  722.     
  723. protected:
  724.     AnsiString __fastcall GetPrintMask();
  725.     void __fastcall SetDataField(AnsiString Value);
  726.     void __fastcall SetOperation(TQRCalcOperation Value);
  727.     void __fastcall SetPrintMask(AnsiString Value);
  728.     
  729. __published:
  730.     __property AnsiString DataField = {read=FDataField, write=SetDataField};
  731.     __property Db::TDataSource* DataSource = {read=FDataSource, write=FDataSource};
  732.     __property OnPrint ;
  733.     __property TQRCalcOperation Operation = {read=FOperation, write=SetOperation, nodefault};
  734.     __property ParentFont ;
  735.     __property AnsiString PrintMask = {read=GetPrintMask, write=SetPrintMask};
  736.     __property Quickrpt::TQRBand* ResetBand = {read=FResetBand, write=FResetBand};
  737. public:
  738.     #pragma option push -w-inl
  739.     /* TQRExpr.Create */ inline __fastcall virtual TQRDBCalc(Classes::TComponent* AOwner) : TQRExpr(AOwner
  740.         ) { }
  741.     #pragma option pop
  742.     #pragma option push -w-inl
  743.     /* TQRExpr.Destroy */ inline __fastcall virtual ~TQRDBCalc(void) { }
  744.     #pragma option pop
  745.     
  746. public:
  747.     #pragma option push -w-inl
  748.     /* TWinControl.CreateParented */ inline __fastcall TQRDBCalc(HWND ParentWindow) : TQRExpr(ParentWindow
  749.         ) { }
  750.     #pragma option pop
  751.     
  752. };
  753.  
  754.  
  755. //-- var, const, procedure ---------------------------------------------------
  756.  
  757. }    /* namespace Qrctrls */
  758. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  759. using namespace Qrctrls;
  760. #endif
  761. #pragma option pop    // -w-
  762. #pragma option pop    // -Vx
  763.  
  764. #pragma delphiheader end.
  765. //-- end unit ----------------------------------------------------------------
  766. #endif    // Qrctrls
  767.