Class TEasyReport (unit EasyReport) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- This is no a good way but I need it to restore clipping
procedure CenterText(x1,x2,y:integer;c:string);
destructor Destroy;
procedure LeftText(x,y:integer;c:string);
Lets make it easier to write text
procedure Print;
Do de printing
procedure RightText(x,y:integer;c:string);
procedure Notification(AComponent:TComponent;Operation:TOperation);
If we get notified on disposal clear the print object
function HorzUnitsToPixels(Value:Single):Integer;
We need unit convertions (both Horizontal and Vertical
function LastPage:Boolean;
Just visivility
procedure PrintColumnFooter;
Also if assigned then print
procedure PrintColumnHeader;
procedure PrintDetail;
Fill then detail area
procedure PrintPageFooter;
procedure PrintPageHeader;
procedure PrintSumary;
procedure PrintTitle;
If assigned then print
procedure ReduceMargin;
We are done, anithing else?
procedure SetColumnClipRect(Rect:TRect;Column:Integer);
Ok we have columns, so clip them from the detail area
procedure SetColumnFooterPrint(Value:TEasyPrintArea);
procedure SetColumnHeaderPrint(Value:TEasyPrintArea);
procedure SetColumns(Value:Integer);
procedure SetPageFooterPrint(Value:TEasyPrintArea);
procedure SetPageHeaderPrint(Value:TEasyPrintArea);
procedure SetSumaryPrint(Value:TEasyPrintArea);
procedure SetTitlePrint(Value:TEasyPrintArea);
When adding a print object tell it to inform when is disposed
function VertUnitsToPixels(Value:Single):Integer;
property ColumnFooterPrint : TEasyPrintArea
property ColumnHeaderPrint : TEasyPrintArea
property Columns : Integer
property ColumnSpace : Single
property IsLastPage : TPrintInformation
property Margins : TMargins
property Options : TEasyReportOptions
property PageFooterPrint : TEasyPrintArea
property PageHeaderPrint : TEasyPrintArea
property SumaryPrint : TEasyPrintArea
property TitlePrint : TEasyPrintArea
property Units : TUnits
event OnAfterPrint : TNotifyEvent
event OnBeforePrint : TNotifyEvent
event OnDetailPrint : TPrintDetailEvent
fAfterPrint : TNotifyEvent;
fBeforePrint : TNotifyEvent;
fColumnFooterPrint : TEasyPrintArea;
fColumnHeaderPrint : TEasyPrintArea;
fColumns : Integer;
fColumnSpace : Single;
fDetailPrint : TPrintDetailEvent;
fIsLastPage : TPrintInformation;
fMargins : TMargins;
fOptions : TEasyReportOptions;
fPageFooterPrint : TEasyPrintArea;
fPageHeaderPrint : TEasyPrintArea;
fSumaryPrint : TEasyPrintArea;
fTitlePrint : TEasyPrintArea;
fUnits : TUnits;
constructor Create(AOwner: TComponent);
This is no a good way but I need it to restore clipping
procedure CenterText(x1,x2,y:integer;c:string);
destructor Destroy;
procedure LeftText(x,y:integer;c:string);
Lets make it easier to write text
procedure Print;
Do de printing
procedure RightText(x,y:integer;c:string);
procedure Notification(AComponent:TComponent;Operation:TOperation);
If we get notified on disposal clear the print object
function HorzUnitsToPixels(Value:Single):Integer;
We need unit convertions (both Horizontal and Vertical
function LastPage:Boolean;
Just visivility
procedure PrintColumnFooter;
Also if assigned then print
procedure PrintColumnHeader;
procedure PrintDetail;
Fill then detail area
procedure PrintPageFooter;
procedure PrintPageHeader;
procedure PrintSumary;
procedure PrintTitle;
If assigned then print
procedure ReduceMargin;
We are done, anithing else?
procedure SetColumnClipRect(Rect:TRect;Column:Integer);
Ok we have columns, so clip them from the detail area
procedure SetColumnFooterPrint(Value:TEasyPrintArea);
procedure SetColumnHeaderPrint(Value:TEasyPrintArea);
procedure SetColumns(Value:Integer);
procedure SetPageFooterPrint(Value:TEasyPrintArea);
procedure SetPageHeaderPrint(Value:TEasyPrintArea);
procedure SetSumaryPrint(Value:TEasyPrintArea);
procedure SetTitlePrint(Value:TEasyPrintArea);
When adding a print object tell it to inform when is disposed
function VertUnitsToPixels(Value:Single):Integer;
property ColumnFooterPrint : TEasyPrintArea
property ColumnHeaderPrint : TEasyPrintArea
property Columns : Integer
property ColumnSpace : Single
property IsLastPage : TPrintInformation
property Margins : TMargins
property Options : TEasyReportOptions
property PageFooterPrint : TEasyPrintArea
property PageHeaderPrint : TEasyPrintArea
property SumaryPrint : TEasyPrintArea
property TitlePrint : TEasyPrintArea
property Units : TUnits
event OnAfterPrint : TNotifyEvent
event OnBeforePrint : TNotifyEvent
event OnDetailPrint : TPrintDetailEvent
fAfterPrint : TNotifyEvent;
fBeforePrint : TNotifyEvent;
fColumnFooterPrint : TEasyPrintArea;
fColumnHeaderPrint : TEasyPrintArea;
fColumns : Integer;
fColumnSpace : Single;
fDetailPrint : TPrintDetailEvent;
fIsLastPage : TPrintInformation;
fMargins : TMargins;
fOptions : TEasyReportOptions;
fPageFooterPrint : TEasyPrintArea;
fPageHeaderPrint : TEasyPrintArea;
fSumaryPrint : TEasyPrintArea;
fTitlePrint : TEasyPrintArea;
fUnits : TUnits;