Class TEasyReport (unit EasyReport)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

This is no a good way but I need it to restore clipping


Functions

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;


Properties

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


Events

event OnAfterPrint : TNotifyEvent


event OnBeforePrint : TNotifyEvent


event OnDetailPrint : TPrintDetailEvent


Variables

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;



Constructors


constructor Create(AOwner: TComponent);

This is no a good way but I need it to restore clipping


Functions


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;


Properties


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


Events


event OnAfterPrint : TNotifyEvent


event OnBeforePrint : TNotifyEvent


event OnDetailPrint : TPrintDetailEvent


Variables


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;