From 173c419faeb1c726f84127627dc8860f7538f5cf Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Thu, 4 Jul 2013 10:09:35 +0000
Subject: - langpackmgr tool update (Google Translate added) (by Jebifor)

git-svn-id: http://svn.miranda-ng.org/main/trunk@5230 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 tools/langpackmgr/Unit1.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'tools')

diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index 14423f3bae..0d077710b6 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -136,8 +136,16 @@ begin
 end;
 
 procedure TForm1.GClick(Sender: TObject);
+var str:string;
  begin
-   ShellExecute( Handle, 'open', 'http://translate.google.ru/#auto/', nil, nil, SW_NORMAL );
+ str:='http://translate.google.com/?hl=&ie=&langpair=auto&text=';
+for I := 0 to memo1.Lines.Count-1 do
+begin
+str:=str+memo1.Lines[i];
+if i<memo1.Lines.Count-1 then
+str:=str+'+%0A+';
+end;
+   ShellExecute(0, 'open',PChar(str), nil, nil, SW_SHOW);
 end;
 
 procedure tform1.refresh;
-- 
cgit v1.2.3