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

win32 interface: fixed memleak when showing an open file dialog

Browse Source 
git-svn-id: trunk@11058 -
This commit is contained in:
vincents 2007-05-03 07:01:52 +00:00
parent 5c4e0e65c5
commit bfe4a7f795
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -482,15 +482,16 @@ end;
class procedure TWin32WSSaveDialog.DestroyHandle(const ACommonDialog: TCommonDialog);
var
OPENFILE: LPOPENFILENAME;
OpenFile: LPOPENFILENAME;
begin
if ACommonDialog.Handle <> 0 then
begin
OPENFILE := LPOPENFILENAME(ACommonDialog.Handle);
if OPENFILE^.lCustData <> 0 then
OpenFile := LPOPENFILENAME(ACommonDialog.Handle);
if OpenFile^.lCustData <> 0 then
Dispose(POpenFileDialogRec(OPENFILE^.lCustData));
StrDispose(OpenFile^.lpStrFilter);
FreeMem(OpenFile^.lpStrFile);
FreeMem(OpenFile);
end;
end;
@ -519,6 +520,7 @@ begin
Dispose(POpenFileDialogRec(OPENFILE^.lCustData));
StrDispose(OpenFile^.lpStrFilter);
FreeMem(OpenFile^.lpStrFile);
FreeMem(OpenFile);
end;
end;