From 1f0c70508f16d0bb7d06fd0abecf0535b38a0a29 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 2 Oct 2013 07:52:30 +0000
Subject: [PATCH] * DisplayName should not set name

git-svn-id: trunk@25619 -
---
 packages/fcl-web/src/base/fphttp.pp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/packages/fcl-web/src/base/fphttp.pp b/packages/fcl-web/src/base/fphttp.pp
index b750b87967..cd5c78eaf6 100644
--- a/packages/fcl-web/src/base/fphttp.pp
+++ b/packages/fcl-web/src/base/fphttp.pp
@@ -435,16 +435,20 @@ end;
 
 function TCustomWebAction.GetDisplayName: String;
 begin
-  If (FName='') then
-    FName:=ClassName+IntToStr(self.Index);
   Result:=FName;
+  If (Result='') then
+    begin
+    Result:=ClassName+IntToStr(self.Index);
+    if Result[1]='T' then
+      Delete(Result,1,1)
+    end;
 end;
 
 Function TCustomWebAction.GetNamePath : String;
 begin
- If (FName='') then
-    FName:=ClassName+IntToStr(self.Index);
   Result:=FName;
+  If (Result='') then
+    FName:=ClassName+IntToStr(self.Index);
 end;
 
 procedure TCustomWebAction.SetDisplayName(const AValue: String);