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
{ D�clarations priv�es }
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;
------------------------------------------------------------------------------
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
