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

designer: fix memory leak in graphpropedits

Browse Source 
git-svn-id: trunk@13123 -
This commit is contained in:
paul 2007-12-03 07:06:49 +00:00
parent fa88d7904f
commit 835912fdc8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/graphpropedits.pas
View File

@ -179,8 +179,10 @@ begin
ABitmap := TBitmap(GetObjectValue(TBitmap)); ABitmap := TBitmap(GetObjectValue(TBitmap));
TheDialog := TGraphicPropertyEditorForm.Create(nil); TheDialog := TGraphicPropertyEditorForm.Create(nil);
try try
If (ABitmap <> nil) and not ABitmap.Empty then begin If (ABitmap <> nil) then
With TheDialog.Preview.Picture.Bitmap do begin begin
with TheDialog.Preview.Picture.Bitmap do
begin
Width := ABitmap.Width; Width := ABitmap.Width;
Height := ABitmap.Height; Height := ABitmap.Height;
Canvas.Brush.Color := clWhite; Canvas.Brush.Color := clWhite;