diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 09:35:21 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 09:35:21 +0200 |
commit | fd7913901deefb8204c386e01ab6b18b2cac6874 (patch) | |
tree | b1ba9652672362b83c1da9fbd9b72bc780754a3b /src/gui | |
parent | 540e3d91366a97c817775f2b99ccb41b9f00497d (diff) | |
download | fpGUI-fd7913901deefb8204c386e01ab6b18b2cac6874.tar.xz |
Use fpGUI wrapper functions instead of RTL functions directly.
fpGUI's wrapper functions handle unicode conversions from OS automatically.
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/fpg_dialogs.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas index 73c668c3..25f01da9 100644 --- a/src/gui/fpg_dialogs.pas +++ b/src/gui/fpg_dialogs.pas @@ -1369,7 +1369,7 @@ begin if (i >= 0) and (i < FFilterList.Count) then Result := FFilterList[i] else - Result := '*'; + Result := AllFilesMask; end; function TfpgFileDialog.RunOpenFile: boolean; @@ -1378,12 +1378,12 @@ var fname: string; begin FOpenMode := True; - sdir := ExtractFileDir(FileName); + sdir := fpgExtractFileDir(FileName); if sdir = '' then sdir := '.'; SetCurrentDirectory(sdir); - fname := ExtractFileName(FileName); + fname := fpgExtractFileName(FileName); if not HighlightFile(fname) then edFilename.Text := fname; |