From 48284b663a710cd73e61cd6b45b166cddc8b1180 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 13 Nov 2003 17:00:43 +0000
Subject: [PATCH] made fpc RTTI property names nicer  from GongYu

git-svn-id: trunk@4798 -
---
 designer/propedits.pp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/designer/propedits.pp b/designer/propedits.pp
index b7b4db616b..40e6edf3b9 100644
--- a/designer/propedits.pp
+++ b/designer/propedits.pp
@@ -1952,6 +1952,15 @@ end;
 function TPropertyEditor.GetName:shortstring;
 begin
   Result:=FPropList^[0].PropInfo^.Name;
+  {$IFDEF Ver1_0}
+  // the 1.0.x fpc has only uppercase RTTI
+  // -> make it a little bit nicer
+  Result:=lowercase(Result);
+  if length(Result)>0 then
+    Result[1]:=upcase(Result[1]);
+  if (length(Result)>2) and (Result[1]='O') and (Result[2]='n') then
+    Result[3]:=upcase(Result[3]);
+  {$ENDIF}
 end;
 
 function TPropertyEditor.GetOrdValue:Longint;