opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: Show queries with international characters correctly in process list.

Browse Source
This commit is contained in:
rosenfield.albert
2008-08-08 13:39:04 +00:00
parent 4c4387c155
commit 09cfeb65be
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/childwin.pas
View File

@ -2247,7 +2247,7 @@ begin
for i:=1 to ds.RecordCount do for i:=1 to ds.RecordCount do
begin begin
VTRowDataListProcesses[i-1].Captions := TStringList.Create; 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 if AnsiCompareText( ds.Fields[4].AsString, 'Killed') = 0 then
VTRowDataListProcesses[i-1].ImageIndex := 26 // killed VTRowDataListProcesses[i-1].ImageIndex := 26 // killed
else begin else begin
@ -2257,7 +2257,7 @@ begin
VTRowDataListProcesses[i-1].ImageIndex := 57 // running query VTRowDataListProcesses[i-1].ImageIndex := 57 // running query
end; end;
for j := 1 to 7 do 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; ds.Next;
end; end;
ds.Close; ds.Close;