diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-04 17:06:33 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-04 17:06:33 +0200 |
commit | fa1a6f27733fe5f41b6bac714752c798c450a259 (patch) | |
tree | a7dfd7341f119e3c073d045afc5f786884e82600 /src/corelib/fpg_utils.pas | |
parent | 7ba60ed71babeca38e25da3637c4a4186dead2af (diff) | |
download | fpGUI-fa1a6f27733fe5f41b6bac714752c798c450a259.tar.xz |
Rearranged some constants and moved fpgAddColon() to fpg_utils unit.
* Also added some new constants for future use.
Diffstat (limited to 'src/corelib/fpg_utils.pas')
-rw-r--r-- | src/corelib/fpg_utils.pas | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas index a53c7efe..7c7869b4 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.pas @@ -41,6 +41,9 @@ function fpgAppendPathDelim(const Path: TfpgString): TfpgString; function fpgHasSubDirs(const Dir: TfpgString; AShowHidden: Boolean): Boolean; function fpgAllFilesMask: TfpgString; function fpgConvertLineEndings(const s: TfpgString): TfpgString; +{ This is so that when we support LTR and RTL languages, the colon will be + added at the correct place. } +function fpgAddColon(const AText: TfpgString): TfpgString; // RTL wrapper filesystem functions with platform independant encoding @@ -234,6 +237,12 @@ begin Inc(i); end; +function fpgAddColon(const AText: TfpgString): TfpgString; +begin + { TODO : Check language direction and add colon at appropriate end. This is very crude! } + Result := AText + ':'; +end; + end. |