diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 12:43:41 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 12:43:41 +0200 |
| commit | d5b40c8714d023c4f8a1ecc33bbbbc146de1439b (patch) | |
| tree | 345c6303bd2a969c1c3e5e7a0a8e182f88f991fc | |
| parent | c4882172d63af82f9509288686bbae25acfcc2f8 (diff) | |
| download | fpGUI-d5b40c8714d023c4f8a1ecc33bbbbc146de1439b.tar.xz | |
Fix compilation error under Windows.
| -rw-r--r-- | src/corelib/fpg_utils.pas | 2 | ||||
| -rw-r--r-- | src/corelib/gdi/fpg_utils_impl.inc | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas index 43f73028..107fb262 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.pas @@ -192,7 +192,7 @@ begin break; until fpgFindNext(FileInfo) <> 0; finally - FindClose(FileInfo); + SysUtils.FindClose(FileInfo); end; end; end; diff --git a/src/corelib/gdi/fpg_utils_impl.inc b/src/corelib/gdi/fpg_utils_impl.inc index 08a3c3ad..e5125312 100644 --- a/src/corelib/gdi/fpg_utils_impl.inc +++ b/src/corelib/gdi/fpg_utils_impl.inc @@ -34,7 +34,7 @@ var begin // Don't assign the widestring to TSearchRec.name because it is of type // string, which will generate a conversion to the system encoding - Str := UTF8Decode(Filename); + Str := UTF8Decode(AFilename); FindHandle:=Windows.FindFirstFileW(PWideChar(Str), FindData); if FindHandle=Windows.Invalid_Handle_value then begin |