paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 04:29:27 +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: trunk@59935 -
This commit is contained in:
wp 2018-12-29 19:25:14 +00:00
parent a2e9341eb3
commit c8835c761e
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 GetFontStyle: TChartFontStyles; virtual; abstract;
function GetRightToLeft: Boolean;
procedure LineTo(AX, AY: Integer); virtual; abstract;
procedure LineTo(const AP: TPoint);
procedure MoveTo(AX, AY: Integer); virtual; abstract;
procedure MoveTo(const AP: TPoint);
procedure LineTo(AX, AY: Integer); virtual; abstract; overload;
procedure LineTo(const AP: TPoint); overload;
procedure MoveTo(AX, AY: Integer); virtual; abstract; overload;
procedure MoveTo(const AP: TPoint); overload;
procedure Polygon(
const APoints: array of TPoint; AStartIndex, ANumPts: Integer); virtual; abstract;
procedure PutImage(AX, AY: Integer; AImage: TFPCustomImage); virtual;
@ -179,8 +179,8 @@ type
procedure SetRightToLeft(AValue: Boolean);
procedure SetTransparency(ATransparency: TChartTransparency);
procedure SetXor(AXor: Boolean);
function TextExtent(const AText: String; ATextFormat: TChartTextFormat = tfNormal): TPoint;
function TextExtent(AText: TStrings; ATextFormat: TChartTextFormat = tfNormal): TPoint;
function TextExtent(const AText: String; ATextFormat: TChartTextFormat = tfNormal): TPoint; overload;
function TextExtent(AText: TStrings; ATextFormat: TChartTextFormat = tfNormal): TPoint; overload;
function TextOut: TChartTextOut;
end;