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

fixed mem leak

Browse Source 
git-svn-id: trunk@7282 -
This commit is contained in:
mattias 2005-06-25 14:36:02 +00:00
parent fd711c2600
commit 7335ee16f1
1 changed files with 15 additions and 7 deletions

22
ideintf/graphpropedits.pas
View File

@ -451,13 +451,22 @@ var
Procedure LoadBitmap;
var
ext : String;
TempBitmap: TBitmap;
begin
Ext := ExtractFileExt(TheDialog.FileName);
ABitmap := TBitmap.Create;
if (AnsiCompareText(Ext, '.xpm') = 0)
or (AnsiCompareText(Ext, '.bmp') = 0) then begin
If FileExists(TheDialog.FileName) then
ABitmap.LoadFromFile(TheDialog.FileName);
if (CompareText(Ext, '.xpm') = 0)
or (CompareText(Ext, '.bmp') = 0) then begin
If FileExists(TheDialog.FileName) then begin
TempBitmap := TBitmap.Create;
try
// try to load
TempBitmap.LoadFromFile(TheDialog.FileName);
// no exception -> loading ok
ABitmap.Assign(TempBitmap);
finally
TempBitmap.Free;
end;
end;
end
else begin
ABitmap.Assign(TheDialog.Preview.Picture.Graphic);
@ -472,7 +481,7 @@ var
end;
begin
debugln('TButtonGlyphPropEditor.Edit');
//debugln('TButtonGlyphPropEditor.Edit');
ABitmap := TBitmap(GetObjectValue(TBitmap));
TheDialog := TGraphicPropertyEditorForm.Create(nil);
try
@ -490,7 +499,6 @@ begin
If TheDialog.Preview.Picture.Graphic <> nil then begin
if TheDialog.Modified then begin
LoadBitmap;
SetPtrValue(ABitmap);
end;
end
else begin