paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Ondrej Pokorny to make some setter methods virtual (bug ID 30011)

Browse Source 
git-svn-id: trunk@33499 -
This commit is contained in:
michael 2016-04-14 17:15:51 +00:00
parent 2a1f2b9fd9
commit 4ca4697b6b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-pdf/src/fppdf.pp
View File

@ -515,10 +515,10 @@ type
Destructor Destroy; override;
Procedure AddObject(AObject : TPDFObject);
// Commands. These will create objects in the objects list of the page.
Procedure SetFont(AFontIndex : Integer; AFontSize : Integer);
Procedure SetFont(AFontIndex : Integer; AFontSize : Integer); virtual;
// used for stroking and nonstroking colors - purpose determined by the AStroke parameter
Procedure SetColor(AColor : TARGBColor; AStroke : Boolean = True);
Procedure SetPenStyle(AStyle : TPDFPenStyle);
Procedure SetColor(AColor : TARGBColor; AStroke : Boolean = True); virtual;
Procedure SetPenStyle(AStyle : TPDFPenStyle); virtual;
{ output coordinate is the font baseline. }
Procedure WriteText(X, Y: TPDFFloat; AText : UTF8String); overload;
Procedure WriteText(APos: TPDFCoord; AText : UTF8String); overload;