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

lcl: fix TCanvas.DoLine

Browse Source 
git-svn-id: trunk@20506 -
This commit is contained in:
paul 2009-06-08 06:05:00 +00:00
parent d24d8ac07f
commit cfa6393564
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/canvas.inc
View File

@ -586,7 +586,7 @@ end;
procedure TCanvas.DoLine(x1, y1, x2, y2: integer); procedure TCanvas.DoLine(x1, y1, x2, y2: integer);
begin begin
MoveTo(x1,y1); MoveTo(x1,y1);
LineTo(x1,y1); LineTo(x2,y2);
end; end;
procedure TCanvas.DoCopyRect(x, y: integer; SrcCanvas: TFPCustomCanvas; procedure TCanvas.DoCopyRect(x, y: integer; SrcCanvas: TFPCustomCanvas;