paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Move PrinterCanvas BeginDoc, NewPage and EndDoc to public section.

Browse Source 
git-svn-id: trunk@48970 -
This commit is contained in:
juha 2015-05-08 10:34:19 +00:00
parent e6c58df1a2
commit d2fcc0de8c
4 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/cairocanvas/cairocanvas.pas
View File

@ -69,9 +69,6 @@ type
function CreateCairoHandle: HDC; virtual; abstract; function CreateCairoHandle: HDC; virtual; abstract;
procedure DestroyCairoHandle; virtual; procedure DestroyCairoHandle; virtual;
procedure SetHandle(NewHandle: HDC); override; procedure SetHandle(NewHandle: HDC); override;
procedure BeginDoc; override;
procedure EndDoc; override;
procedure NewPage; override;
function GetClipRect: TRect; override; function GetClipRect: TRect; override;
procedure SetClipRect(const ARect: TRect); override; procedure SetClipRect(const ARect: TRect); override;
function GetClipping: Boolean; override; function GetClipping: Boolean; override;
@ -89,6 +86,9 @@ type
constructor Create(APrinter : TPrinter); override; constructor Create(APrinter : TPrinter); override;
constructor Create; overload; constructor Create; overload;
destructor Destroy; override; destructor Destroy; override;
procedure BeginDoc; override;
procedure EndDoc; override;
procedure NewPage; override;
procedure FillRect(const ARect: TRect); override; procedure FillRect(const ARect: TRect); override;
procedure Rectangle(X1,Y1,X2,Y2: Integer); override; procedure Rectangle(X1,Y1,X2,Y2: Integer); override;
procedure Polyline(Points: PPoint; NumPts: Integer); override; procedure Polyline(Points: PPoint; NumPts: Integer); override;

6
components/printers/cocoa/cocoaprintcanvas.pas
View File

@ -109,9 +109,6 @@ type
procedure DoLineTo(X1,Y1: Integer); override; procedure DoLineTo(X1,Y1: Integer); override;
procedure DoMoveTo({%H-}x, {%H-}y: integer); override; procedure DoMoveTo({%H-}x, {%H-}y: integer); override;
procedure SetHandle(NewHandle: HDC); override; procedure SetHandle(NewHandle: HDC); override;
procedure BeginDoc; override;
procedure EndDoc; override;
procedure NewPage; override;
function GetClipRect: TRect; override; function GetClipRect: TRect; override;
procedure SetClipRect(const ARect: TRect); override; procedure SetClipRect(const ARect: TRect); override;
function GetClipping: Boolean; override; function GetClipping: Boolean; override;
@ -129,6 +126,9 @@ type
constructor Create(APrinter : TPrinter); override; constructor Create(APrinter : TPrinter); override;
constructor Create; overload; constructor Create; overload;
destructor Destroy; override; destructor Destroy; override;
procedure BeginDoc; override;
procedure EndDoc; override;
procedure NewPage; override;
procedure FillRect(const ARect: TRect); override; procedure FillRect(const ARect: TRect); override;
procedure Rectangle(X1,Y1,X2,Y2: Integer); override; procedure Rectangle(X1,Y1,X2,Y2: Integer); override;
procedure Polyline(Points: PPoint; NumPts: Integer); override; procedure Polyline(Points: PPoint; NumPts: Integer); override;

10
lcl/postscriptcanvas.pas
View File

@ -133,18 +133,16 @@ Type
function GetClipping: Boolean; override; function GetClipping: Boolean; override;
procedure SetClipping(const AValue: boolean); override; procedure SetClipping(const AValue: boolean); override;
procedure BeginDoc; override;
procedure EndDoc; override;
procedure NewPage; override;
procedure DoMoveTo(X1,Y1: Integer); override; procedure DoMoveTo(X1,Y1: Integer); override;
procedure DoLineTo(X1,Y1: Integer); override; procedure DoLineTo(X1,Y1: Integer); override;
public public
constructor Create(APrinter : TPrinter); override; constructor Create(APrinter : TPrinter); override;
destructor Destroy; override; destructor Destroy; override;
procedure BeginDoc; override;
procedure EndDoc; override;
procedure NewPage; override;
procedure SaveToFile(aFileName : string); procedure SaveToFile(aFileName : string);
procedure Polyline(Points: PPoint; NumPts: Integer); override; procedure Polyline(Points: PPoint; NumPts: Integer); override;
procedure PolyBezier(Points: PPoint; NumPts: Integer; procedure PolyBezier(Points: PPoint; NumPts: Integer;

6
lcl/printers.pas
View File

@ -78,15 +78,15 @@ type
procedure SetXDPI(const AValue: Integer); procedure SetXDPI(const AValue: Integer);
procedure SetYDPI(const AValue: Integer); procedure SetYDPI(const AValue: Integer);
protected protected
procedure BeginDoc; virtual;
procedure NewPage; virtual;
procedure EndDoc; virtual;
function GetLeftMargin: Integer; function GetLeftMargin: Integer;
function GetTopMargin: Integer; function GetTopMargin: Integer;
function GetBottomMargin: Integer; function GetBottomMargin: Integer;
function GetRightMargin: Integer; function GetRightMargin: Integer;
public public
constructor Create(APrinter: TPrinter); virtual; constructor Create(APrinter: TPrinter); virtual;
procedure BeginDoc; virtual;
procedure NewPage; virtual;
procedure EndDoc; virtual;
procedure Changing; override; procedure Changing; override;
property Printer : TPrinter read fPrinter; property Printer : TPrinter read fPrinter;