Class: TCustomReportPage

TWinControl ----+
             |
     TCustomReportPage

Description:

Unit:
UCWReport (UCWReport.pas)

Constructors:

constructor Create(AOwner: TComponent); override;

Propertys:

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;

Methods:

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;
function SetBandPos(var Message: TWMMouse): Boolean;

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.