paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 23:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

made fpc RTTI property names nicer from GongYu

Browse Source 
git-svn-id: trunk@4798 -
This commit is contained in:
mattias 2003-11-13 17:00:43 +00:00
parent aff3164655
commit 48284b663a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/propedits.pp
View File

@ -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;