[tuxdroid-svn] r5162 - software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser

[jerome <c2m...@c2...>]

Author: jerome
Date: 2009-07-24 13:28:21 +0200 (Fri, 24 Jul 2009)
New Revision: 5162

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.dcu
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Added based on user language help.

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.dcu
===================================================================
(Binary files differ)

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-24 11:20:51 UTC (rev 5161)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-24 11:28:21 UTC (rev 5162)
@@ -31,6 +31,8 @@
   knowed_server   : boolean;
   knowed_activity : boolean;
 
+  knowed_language : string;
+
 implementation
 
 
@@ -42,6 +44,8 @@
   knowed_dongle := false;
   knowed_server := false;
   knowed_activity := false;
+
+  knowed_language := 'en';
 end;
 
 //Return true if the tuxdroidserver is started, false if not.
@@ -170,6 +174,17 @@
     on e : Exception do
       values.Add('off');
   end;
+
+  //Getting current user language.
+  try
+    beginPos := Pos('<language>', aString) + Length('<language>');
+    endPos := Pos('</language>', aString);
+    knowed_language := Copy(aString, beginPos, endPos - beginPos);
+  except
+    on e : Exception do
+      knowed_language := 'en';
+  end;
+
 end;
 
 
@@ -293,7 +308,7 @@
 const
   command_language = '';
 begin
-  {TODO}
+  result := knowed_language;
 end;
 
 

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
===================================================================
(Binary files differ)

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-24 11:20:51 UTC (rev 5161)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-24 11:28:21 UTC (rev 5162)
@@ -29,7 +29,7 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Menus, ImgList, IEDownload,
   ExtCtrls, EwbControlComponent, AppEvnts, StdCtrls, ComCtrls, ShellAPI, TuxUtils,
-  Registry;
+  Registry, CommCtrl;
 
 const wm_AppelMessage = wm_user + 1;
 
@@ -56,7 +56,7 @@
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;
       const pDisp: IDispatch; var URL: OleVariant);
     procedure ConnectionCheckerTimer(Sender: TObject);
-
+                         
   private
     { Darations priv }
     procedure WMAppelMessage(var msg : TMessage); message wm_AppelMessage;
@@ -145,8 +145,25 @@
 
 //Tray icon 'help' click.
 procedure TForm1.Help1Click(Sender: TObject);
+var
+  language : string;
+  adress   : string;
 begin
-  Form1.OpenUrl('http://www.kysoh.com/documentation/');
+  language := TuxUtils.getUserLanguage();
+
+  if language = 'nl' then
+    adress := 'http://www.kysoh.com/documentatie?set_language=nl'
+  else if language = 'fr' then
+    adress := 'http://www.kysoh.com/documentation-3?set_language=fr'
+  else if language = 'es' then
+    adress := 'http://www.kysoh.com/documentacion?set_language=es'
+  else if language = 'it' then
+    adress := 'http://www.kysoh.com/documentazione?set_language=it'
+  else
+    adress := 'http://www.kysoh.com/documentation?set_language=en';
+
+  Form1.OpenUrl(adress);
+
 end;