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

TAChart: Add missing overload directives in TBasicDrawer class (Issue #34774, patch by Jonas Maebe)

Browse Source 
git-svn-id: branches/fixes_2_0@59957 -
This commit is contained in:
mattias 2018-12-31 12:46:29 +00:00
parent a9797882f4
commit ad85cd6fe1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tadrawutils.pas
View File

@ -163,10 +163,10 @@ type
function GetFontSize: Integer; virtual; abstract; function GetFontSize: Integer; virtual; abstract;
function GetFontStyle: TChartFontStyles; virtual; abstract; function GetFontStyle: TChartFontStyles; virtual; abstract;
function GetRightToLeft: Boolean; function GetRightToLeft: Boolean;
procedure LineTo(AX, AY: Integer); virtual; abstract; procedure LineTo(AX, AY: Integer); virtual; abstract; overload;
procedure LineTo(const AP: TPoint); procedure LineTo(const AP: TPoint); overload;
procedure MoveTo(AX, AY: Integer); virtual; abstract; procedure MoveTo(AX, AY: Integer); virtual; abstract; overload;
procedure MoveTo(const AP: TPoint); procedure MoveTo(const AP: TPoint); overload;
procedure Polygon( procedure Polygon(
const APoints: array of TPoint; AStartIndex, ANumPts: Integer); virtual; abstract; const APoints: array of TPoint; AStartIndex, ANumPts: Integer); virtual; abstract;
procedure PutImage(AX, AY: Integer; AImage: TFPCustomImage); virtual; procedure PutImage(AX, AY: Integer; AImage: TFPCustomImage); virtual;
@ -179,8 +179,8 @@ type
procedure SetRightToLeft(AValue: Boolean); procedure SetRightToLeft(AValue: Boolean);
procedure SetTransparency(ATransparency: TChartTransparency); procedure SetTransparency(ATransparency: TChartTransparency);
procedure SetXor(AXor: Boolean); procedure SetXor(AXor: Boolean);
function TextExtent(const AText: String; ATextFormat: TChartTextFormat = tfNormal): TPoint; function TextExtent(const AText: String; ATextFormat: TChartTextFormat = tfNormal): TPoint; overload;
function TextExtent(AText: TStrings; ATextFormat: TChartTextFormat = tfNormal): TPoint; function TextExtent(AText: TStrings; ATextFormat: TChartTextFormat = tfNormal): TPoint; overload;
function TextOut: TChartTextOut; function TextOut: TChartTextOut;
end; end;