diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-04 17:07:33 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-04 17:07:33 +0200 |
| commit | 2fbea91592ff8bfa552fa9b2ee9b71d813e5d8e8 (patch) | |
| tree | 09f3b00fa0748327170a4edc911e39edbc9bd1e4 /src | |
| parent | fa1a6f27733fe5f41b6bac714752c798c450a259 (diff) | |
| download | fpGUI-2fbea91592ff8bfa552fa9b2ee9b71d813e5d8e8.tar.xz | |
Replaced some RTL functions with fpGUI wrapper ones to handle Unicode text.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_base.pas | 2 | ||||
| -rw-r--r-- | src/gui/fpg_iniutils.pas | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index e4db5c7d..0ac42f04 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -2137,7 +2137,7 @@ var begin // Default location is in same directory as current running application // This location might change in the future. - ext := ExtractFileExt(ParamStr(0)); + ext := fpgExtractFileExt(ParamStr(0)); Result := fpgExtractFilePath(ParamStr(0)) + FPG_HELPVIEWER + ext; end; diff --git a/src/gui/fpg_iniutils.pas b/src/gui/fpg_iniutils.pas index 1c8fe45a..857ccf63 100644 --- a/src/gui/fpg_iniutils.pas +++ b/src/gui/fpg_iniutils.pas @@ -52,6 +52,7 @@ function gINI(const AFileName: string = ''): TfpgINIFile; implementation uses + fpg_base, fpg_main, fpg_constants, fpg_utils; @@ -71,12 +72,12 @@ end; constructor TfpgINIFile.CreateExt(const AFileName: string; AReadOnly: Boolean); var - lDir: string; - lFileName: string; + lDir: TfpgString; + lFileName: TfpgString; begin FReadOnly := AReadOnly; - lDir := ExtractFileDir(AFileName); - lFileName := ExtractFileName(AFileName); + lDir := fpgExtractFileDir(AFileName); + lFileName := fpgExtractFileName(AFileName); if lDir = '' then lDir := GetAppConfigDir(False); @@ -84,7 +85,7 @@ begin lDir := lDir + PathDelim; { We used a non-Global config dir, so should be able to create the dir } - if not ForceDirectories(lDir) then + if not fpgForceDirectories(lDir) then raise Exception.CreateFmt(rsErrFailedToCreateDir, [lDir]); |