paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-12 03:46:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

Allows directly setting the core fpcanvas properties in subclasses

Browse Source 
git-svn-id: trunk@16303 -
This commit is contained in:
sekelsenmat 2010-11-04 16:18:51 +00:00
parent f5751d81db
commit 584fa63ea4
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-image/src/fpcanvas.pp
View File

@ -194,14 +194,6 @@ type
FClipping,
FManageResources: boolean;
FRemovingHelpers : boolean;
FDefaultFont,
FFont : TFPCustomFont;
FDefaultBrush,
FBrush : TFPCustomBrush;
FDefaultPen,
FPen : TFPCustomPen;
FPenPos : TPoint;
FClipRect : TRect;
FHelpers : TList;
FLocks : integer;
FInterpolation : TFPCustomInterpolation;
@ -216,6 +208,11 @@ type
function GetBrush : TFPCustomBrush;
function GetPen : TFPCustomPen;
protected
FDefaultFont, FFont : TFPCustomFont;
FDefaultBrush, FBrush : TFPCustomBrush;
FDefaultPen, FPen : TFPCustomPen;
FPenPos : TPoint;
FClipRect : TRect;
function DoCreateDefaultFont : TFPCustomFont; virtual; abstract;
function DoCreateDefaultPen : TFPCustomPen; virtual; abstract;
function DoCreateDefaultBrush : TFPCustomBrush; virtual; abstract;