* Updated translation files with new resource string constant.

* Added a new unit gfx_stringhashlist which is used in gfx_pofiles
* Fixed a bug in gfx_pofiles unit so that translation lookups can be
  done via the resourcestring constants. This is required if the
  default fpGUI language is changed at compile time.
* Completed the Afrikaans translation.

3 files changed, 24 insertions, 3 deletions

diff --git a/examples/gui/fontselect/fontselect.lpi b/examples/gui/fontselect/fontselect.lpi
index d97b57fa..9e24bba9 100644
--- a/examples/gui/fontselect/fontselect.lpi
+++ b/examples/gui/fontselect/fontselect.lpi
@@ -32,12 +32,17 @@
         <MinVersion Minor="5" Valid="True"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="1">
+    <Units Count="2">
       <Unit0>
         <Filename Value="fontselect.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="fontselect"/>
       </Unit0>
+      <Unit1>
+        <Filename Value="strconstants.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="strconstants"/>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/examples/gui/fontselect/fontselect.lpr b/examples/gui/fontselect/fontselect.lpr
index 0c2187b5..ce5e301a 100644
--- a/examples/gui/fontselect/fontselect.lpr
+++ b/examples/gui/fontselect/fontselect.lpr
@@ -14,7 +14,8 @@ uses
   gui_listbox,
   gui_edit,
   gui_label,
-  gfx_constants;
+  gfx_constants,
+  strconstants;
 
 
 type
@@ -31,6 +32,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   end;
+  
 
 { TMainForm }
 
@@ -63,7 +65,7 @@ end;
 constructor TMainForm.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
-  WindowTitle := 'Font selection test';
+  WindowTitle := rsTitle;
   SetPosition(100, 100, 500, 400);
   
   btnSelectFont := CreateButton(self, 10, 10, 110, rsSelectAFont, @btnSelectFontClick);
diff --git a/examples/gui/fontselect/strconstants.pas b/examples/gui/fontselect/strconstants.pas
new file mode 100644
index 00000000..15151839
--- /dev/null
+++ b/examples/gui/fontselect/strconstants.pas
@@ -0,0 +1,14 @@
+unit strconstants;
+
+{$mode objfpc}{$H+}
+
+interface
+
+resourcestring
+  rsTitle = 'Font selection test';
+
+
+implementation
+
+end.
+