TWinControl ----+ | TCustomReportPage
Description:
Unit:
UCWReport (UCWReport.pas)
Constructors:
Propertys:
Methods:
constructor Create(AOwner:
TComponent); override;
property AUpdating: Boolean read
FUpdating write FUpdating;
property AlignRect: TRect read
GetAlignRect;
property Printing: Boolean read
fPrinting write FPrinting;
property Bands[Index: Integer]:
TCWBand read GetBand;
property BandCount: Integer read
GetBandCount;
property BandList: TList read
FBandList;
property PageCount: Integer read
GetPageCount;
property PageList[Index: Integer]:
TList read GetPageList;
property PageIndex : Integer read
FPageIndex write SetPageIndex stored false;
property CurrentPage: Integer read
FCurrentPage write FCurrentPage;
property CurrentBandRect: TRect read
FCurrentBandRect write SetCurrentBandRect;
property ShowBounds: Boolean read
GetShowBounds write SetShowBounds;
property ShowMargins: Boolean read
FShowMargins write SetShowMargins;
property Align;
property Color;
property OnClick;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDrag;
function StringValue: String;
procedure WMLButtonDown(var
Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMRButtonDown(var
Message: TWMRButtonDown); message WM_RBUTTONDOWN;
procedure WMMButtonDown(var
Message: TWMMButtonDown); message WM_MBUTTONDOWN;
procedure WMLButtonDblClk(var
Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
procedure WMRButtonDblClk(var
Message: TWMRButtonDblClk); message WM_RBUTTONDBLCLK;
procedure WMMButtonDblClk(var
Message: TWMMButtonDblClk); message WM_MBUTTONDBLCLK;
procedure WMAfterPaint(var
Message: TWMPaint); message WM_AFTERPAINT;
procedure WMMouseMove(var Message:
TWMMouseMove);
procedure WMPaint(var Message:
TWMPaint); message WM_PAINT;
procedure CMDesignHitTest(var Msg:
TCMDesignHitTest); message CM_DESIGNHITTEST;
procedure CreateParams(var Params:
TCreateParams); override;
procedure CreateBandBitmap(Band:
TCWBand);
procedure DestroyBandBitmap;
procedure PaintMetaFile(DC: HDC;
R: TRect);
procedure DrawBand(DC: HDC; BI:
TBandItem);
function GetBandBounds(Band:
TCWBand): TRect;
procedure PaintWindow(DC: HDC);
override;
procedure Notification(AComponent:
TComponent; Operation: TOperation); override;
function GetNextBand( Band:
TCWBand; AChildList: TList; Check: Boolean ): TCWBand;
function TopOfChild(Band:
TCWBand;var ARect: TRect): TCWBand;
function AllDatasets: TList;
function GetAlignRect: TRect;
procedure AlignControls(AControl:
TControl; var Rect: TRect); override;
destructor Destroy; override;
function GetBandatPos(P: TPoint;
Move: Boolean; Msg: TWMMouse): TControl;
Mit dieser Funktion können Sie bestimmen ob an dem angegebenen Punkt ein Band angezeigt wird.
Wird Move = true übergeben wird der Band zu seiner angezeigten Position verschoben.
Ist die Angezeigte Position nicht die des Bands, so wird BoundRect.Left auf -10000 d.h. außerhalb des sichtbaren Bereichs gesetzt.
function SetBandPos(var Message:
TWMMouse): Boolean;
Gibt true zurück wenn GetBandatPos mit Move = true erfolgreich war.