From 11e7f9d82ddd7c4e327a3fcbb262b553b2c0ecc1 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 13 Sep 2007 23:17:51 +0000
Subject: [PATCH] Replace obsolete function "CompareText" by similar working
 "AnsiCompareText". See also:
 http://www.delphibasics.co.uk/RTL.asp?Name=CompareText

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

diff --git a/source/childwin.pas b/source/childwin.pas
index ea349281..f2421193 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -2686,7 +2686,7 @@ begin
     begin
       VTRowDataListProcesses[i-1].Captions := TStringList.Create;
       VTRowDataListProcesses[i-1].Captions.Add( ds.Fields[0].AsString );
-      if CompareText( ds.Fields[4].AsString, 'Killed') = 0 then
+      if AnsiCompareText( ds.Fields[4].AsString, 'Killed') = 0 then
         VTRowDataListProcesses[i-1].ImageIndex := 83  // killed
       else
         VTRowDataListProcesses[i-1].ImageIndex := 82; // running
@@ -6140,7 +6140,7 @@ begin
   end
   else begin
     // Compare Strings
-    Result := CompareText( CellText1, CellText2 );
+    Result := AnsiCompareText( CellText1, CellText2 );
   end;
 end;