paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 10:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCanvas: added LineTo(p: TPoint)

Browse Source 
git-svn-id: trunk@20477 -
This commit is contained in:
mattias 2009-06-06 15:34:46 +00:00
parent 36ea04d805
commit 8e4bea4234
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/graphics.pp
View File

@ -1086,6 +1086,7 @@ type
procedure Line(const p1,p2: TPoint);
procedure Line(const Points: TRect);
procedure LineTo(X1,Y1: Integer); virtual; // already in fpcanvas
procedure LineTo(p: TPoint); overload; // already in fpcanvas
procedure MoveTo(X1,Y1: Integer); virtual; // already in fpcanvas
procedure RadialPie(x1, y1, x2, y2,
StartAngle16Deg, EndAngle16Deg: Integer); virtual;

5
lcl/include/canvas.inc
View File

@ -1258,6 +1258,11 @@ begin
Changed;
end;
procedure TCanvas.LineTo(p: TPoint);
begin
LineTo(p.x,p.y);
end;
{------------------------------------------------------------------------------
Method: TCanvas.Line