summaryrefslogtreecommitdiff
path: root/src/corelib/gfx_constants.pas
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-03-04 13:38:17 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-03-04 13:38:17 +0000
commitb9a8fee7794d03513a6d8b7bfb3f77df811582da (patch)
tree4d3967e00bc835e79b48e6688d186b913ed98ec5 /src/corelib/gfx_constants.pas
parentcfbb1096706f6234cf8ac8fb0feefaae8b881ba9 (diff)
downloadfpGUI-b9a8fee7794d03513a6d8b7bfb3f77df811582da.tar.xz
* More more on the MiG Layout port.
* Added new resourcestring constants to the translation language files. * Localized all the GUI units.
Diffstat (limited to 'src/corelib/gfx_constants.pas')
-rw-r--r--src/corelib/gfx_constants.pas25
1 files changed, 21 insertions, 4 deletions
diff --git a/src/corelib/gfx_constants.pas b/src/corelib/gfx_constants.pas
index 79c0e798..e1b8d7b4 100644
--- a/src/corelib/gfx_constants.pas
+++ b/src/corelib/gfx_constants.pas
@@ -1,10 +1,12 @@
{
Constants used throughout fpGUI will be defined here. This includes
- language constants for localization. For now, localization is very simplistic
- and done at compile time. At a later date we can autodetect and autoselect
- the correct language resource at runtime.
+ language constants for localization.
- GetText might also be a better option.
+ You only need to changes these defines if you want the default fpGUI language
+ to be something other than English.
+
+ Soon the lang_*.inc files will be auto generated from the actual *.po files.
+ At which point only the .po files need to be maintained.
}
unit gfx_constants;
@@ -12,6 +14,9 @@ unit gfx_constants;
interface
+uses
+ gfxbase;
+
resourcestring
{ Define Compiler language symbol (eg: de for German) to include the correct
@@ -54,7 +59,19 @@ resourcestring
{$IFEND}
+{ 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;
+
+
implementation
+
+function fpgAddColon(const AText: TfpgString): TfpgString;
+begin
+ { TODO : Check language direction and add colon at appropriate end. }
+ result := AText + ':';
+end;
+
end.