From 3fbccdd74b795ef225296c151afd689bf2128de9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 23 Nov 2010 11:02:58 +0000
Subject: [PATCH] LCL: added dbgs for TMethod

git-svn-id: trunk@28432 -
---
 lcl/lclproc.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 08bfe818b1..f5b140e422 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -257,6 +257,7 @@ function DbgS(const p: pointer): string; overload;
 function DbgS(const e: extended; MaxDecimals: integer = 999): string; overload;
 function DbgS(const b: boolean): string; overload;
 function DbgS(const s: TComponentState): string; overload;
+function DbgS(const m: TMethod): string; overload;
 function DbgSName(const p: TObject): string; overload;
 function DbgSName(const p: TClass): string; overload;
 function DbgStr(const StringWithSpecialChars: string): string; overload;
@@ -2550,6 +2551,19 @@ begin
   Result:='['+Result+']';
 end;
 
+function DbgS(const m: TMethod): string;
+var
+  o: TObject;
+  aMethodName: ShortString;
+begin
+  o:=TObject(m.Data);
+  Result:=dbgsname(o)+'.'+dbgs(m.Code);
+  if (o<>nil) and (m.Code<>nil) then begin
+    aMethodName:=o.MethodName(m.Code);
+    Result:=Result+'='''+aMethodName+'''';
+  end;
+end;
+
 function DbgSName(const p: TObject): string;
 begin
   if p=nil then