paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCanvas: added line methods with TPoint

Browse Source 
git-svn-id: trunk@10286 -
This commit is contained in:
mattias 2006-12-04 00:43:43 +00:00
parent a6a3f56624
commit fe0a80e0e8
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/graphics.pp
View File

@ -965,6 +965,8 @@ type
procedure FrameRect(const ARect: TRect); virtual; // border using brush
procedure FrameRect(X1,Y1,X2,Y2: Integer); // border using brush
procedure Line(X1,Y1,X2,Y2: Integer); virtual; // short for MoveTo();LineTo(); // already in fpcanvas
procedure Line(const p1,p2: TPoint);
procedure Line(const Points: TRect);
procedure LineTo(X1,Y1: Integer); virtual; // already in fpcanvas
procedure MoveTo(X1,Y1: Integer); virtual; // already in fpcanvas
procedure RadialPie(x1, y1, x2, y2,

11
lcl/include/canvas.inc
View File

@ -1123,6 +1123,17 @@ begin
LineTo(X2, Y2);
end;
procedure TCanvas.Line(const p1, p2: TPoint);
begin
Line(p1.x,p1.y,p2.x,p2.y);
end;
procedure TCanvas.Line(const Points: TRect);
begin
with Points do
Line(Left,Top,Right,Bottom);
end;
{------------------------------------------------------------------------------
Function: TCanvas.GetColor