From 09cfeb65bedfc3a125a34fcf5a14b1877e45f4ae Mon Sep 17 00:00:00 2001
From: "rosenfield.albert"
 <rosenfield.albert@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Fri, 8 Aug 2008 13:39:04 +0000
Subject: [PATCH] Bugfix: Show queries with international characters correctly
 in process list.

---
 source/childwin.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 8e3c5bd3..9efb053f 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -2247,7 +2247,7 @@ begin
     for i:=1 to ds.RecordCount do
     begin
       VTRowDataListProcesses[i-1].Captions := TStringList.Create;
-      VTRowDataListProcesses[i-1].Captions.Add( ds.Fields[0].AsString );
+      VTRowDataListProcesses[i-1].Captions.Add( ds.Fields[0].AsWideString );
       if AnsiCompareText( ds.Fields[4].AsString, 'Killed') = 0 then
         VTRowDataListProcesses[i-1].ImageIndex := 26  // killed
       else begin
@@ -2257,7 +2257,7 @@ begin
           VTRowDataListProcesses[i-1].ImageIndex := 57 // running query
       end;
       for j := 1 to 7 do
-        VTRowDataListProcesses[i-1].Captions.Add(ds.Fields[j].AsString);
+        VTRowDataListProcesses[i-1].Captions.Add(ds.Fields[j].AsWideString);
       ds.Next;
     end;
     ds.Close;