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

MG: fixed memleaks

Browse Source 
git-svn-id: trunk@2688 -
This commit is contained in:
lazarus 2002-08-18 04:56:46 +00:00
parent b75696868d
commit abb554d4ed
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/graphics.pp
View File

@ -527,10 +527,10 @@ type
Procedure BrushCopy(Dest : TRect; InternalImages: TBitmap; Src : TRect;
TransparentColor :TColor);
constructor Create;
destructor Destroy; override;
procedure Chord(x,y,width,height,angle1,angle2 : Integer);
procedure Chord(x,y,width,height,SX,SY,EX,EY : Integer);
Procedure CopyRect(const Dest : TRect; Canvas : TCanvas; const Source : TRect);
destructor Destroy; override;
Procedure Draw(X,Y: Integer; Graphic : TGraphic);
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);
procedure Ellipse(x1, y1, x2, y2: Integer);
@ -911,6 +911,9 @@ end.
{ =============================================================================
$Log$
Revision 1.54 2002/10/27 11:51:34 lazarus
MG: fixed memleaks
Revision 1.53 2002/10/26 15:15:46 lazarus
MG: broke LCL<->interface circles