diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-25 07:20:22 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-25 07:20:22 +0000 |
| commit | 5c41a80af782d5f6d8dfb36e5ce61fa935ed0580 (patch) | |
| tree | e9c9337a3e3a836f0c20f061ec1081d22666e4f8 /src/corelib | |
| parent | ccdd9caa8827cc117be6fb94920f82f26971e69c (diff) | |
| download | fpGUI-5c41a80af782d5f6d8dfb36e5ce61fa935ed0580.tar.xz | |
* Fixed a memory leak in the TfpgFileListBase class.
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/gfxbase.pas | 1 | ||||
| -rw-r--r-- | src/corelib/x11/fpgfx_package.pas | 7 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index f47f9b04..7023930f 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -1997,6 +1997,7 @@ begin ((e.EntryType = etFile) and not FileNameMatches(e.Name, FFileMask)) then begin // do not add this entry + e.Free; Result := nil; end else Result := e; diff --git a/src/corelib/x11/fpgfx_package.pas b/src/corelib/x11/fpgfx_package.pas index ea32e8cc..d7813dee 100644 --- a/src/corelib/x11/fpgfx_package.pas +++ b/src/corelib/x11/fpgfx_package.pas @@ -8,9 +8,10 @@ interface uses x11_xft, x11_keyconv, gfxbase, gfx_x11, fpgfx, gfx_stdimages, gfx_imgfmt_bmp, - gfx_widget, gfx_UTF8utils, gfx_extinterpolation, gfx_cmdlineparams, gfx_utils, - gfx_popupwindow, gfx_impl, gfx_command_intf, gfx_wuline, gfx_imagelist, - gfx_constants, gfx_pofiles, gfx_translations, gfx_stringhashlist; + gfx_widget, gfx_UTF8utils, gfx_extinterpolation, gfx_cmdlineparams, + gfx_utils, gfx_popupwindow, gfx_impl, gfx_command_intf, gfx_wuline, + gfx_imagelist, gfx_constants, gfx_pofiles, gfx_translations, + gfx_stringhashlist; implementation |