[JVCL-Checkins] SF.net SVN: jvcl:[12969] trunk/jvcl/run/JvTypes.pas

[<jfu...@us...>]

Revision: 12969
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12969&view=rev
Author:   jfudickar
Date:     2011-01-28 00:14:55 +0000 (Fri, 28 Jan 2011)

Log Message:
-----------
Mantis 0005460: Warning W1058 for all calls to NameThread(ThreadName) 

Modified Paths:
--------------
    trunk/jvcl/run/JvTypes.pas

Modified: trunk/jvcl/run/JvTypes.pas
===================================================================
--- trunk/jvcl/run/JvTypes.pas	2011-01-13 16:47:01 UTC (rev 12968)
+++ trunk/jvcl/run/JvTypes.pas	2011-01-28 00:14:55 UTC (rev 12969)
@@ -644,7 +644,10 @@
     {$IFNDEF DELPHI2010_UP}
     procedure NameThreadForDebugging(AThreadName: AnsiString; AThreadID: LongWord = $FFFFFFFF);
     {$ENDIF}
-    procedure NameThread(AThreadName: AnsiString; AThreadID: LongWord = $FFFFFFFF); virtual;
+    procedure NameThread(AThreadName: AnsiString; AThreadID: LongWord = $FFFFFFFF); {$IFDEF SUPPORTS_UNICODE_STRING} overload; {$ENDIF} virtual;
+    {$IFDEF SUPPORTS_UNICODE_STRING}
+    procedure NameThread(AThreadName: String; AThreadID: LongWord = $FFFFFFFF); overload;
+    {$ENDIF}
     property ThreadName: String read GetThreadName write SetThreadName;
   end;
 
@@ -812,6 +815,13 @@
     JvCustomThreadNamingProc(aThreadName, AThreadID);
 end;
 
+{$IFDEF SUPPORTS_UNICODE_STRING}
+procedure TJvCustomThread.NameThread(AThreadName: String; AThreadID: LongWord = $FFFFFFFF);
+begin
+  NameThread(AnsiString(AThreadName), AThreadId);
+end;
+{$ENDIF}
+
 procedure TJvCustomThread.SetThreadName(const Value: String);
 begin
   FThreadName := Value;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.