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

MG: added patch from Andrew

Browse Source 
git-svn-id: trunk@2670 -
This commit is contained in:
lazarus 2002-08-18 04:56:37 +00:00
parent dd48a75dad
commit a53ae09b87
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/graphics.pp
View File

@ -529,6 +529,8 @@ type
const Style : TBevelCut); const Style : TBevelCut);
Procedure Rectangle(X1,Y1,X2,Y2 : Integer); Procedure Rectangle(X1,Y1,X2,Y2 : Integer);
Procedure Rectangle(const Rect: TRect); Procedure Rectangle(const Rect: TRect);
Procedure RoundRect(X1, Y1, X2, Y2: Integer; RX,RY : Integer);
Procedure RoundRect(const Rect : TRect; RX,RY : Integer);
Procedure Line(X1,Y1,X2,Y2 : Integer); Procedure Line(X1,Y1,X2,Y2 : Integer);
Procedure MoveTo(X1,Y1 : Integer); Procedure MoveTo(X1,Y1 : Integer);
Procedure LineTo(X1,Y1 : Integer); Procedure LineTo(X1,Y1 : Integer);
@ -869,6 +871,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.45 2002/09/18 17:07:24 lazarus
MG: added patch from Andrew
Revision 1.44 2002/09/12 05:56:15 lazarus Revision 1.44 2002/09/12 05:56:15 lazarus
MG: gradient fill, minor issues from Andrew MG: gradient fill, minor issues from Andrew