[lazarus] a patch about propedits.pp!

Florian Klaempfl Florian.Klaempfl at gmx.de
Sat Nov 8 03:20:57 EST 2003


GongYu wrote:
> hello everyone!
>  i modified the propedits.pp TMethodPropertyEditor.GetTrimmedEventName procedure
> now when you double click on property event page ,the procduced procedure name now like delphi
> for example:
> before modify
>  when you  dubleclick on form1 ,it show Form1CREATE
> after modify
>  when you  dubleclick on form1 ,it show Form1Create
> sorry for pool english!
> ps :
> anyone can tell me how to use diff?
>  
> function TMethodPropertyEditor.GetTrimmedEventName: shortstring;
> var
> tmp:string;
> begin
>   Result:=LowerCase(GetName);
>   if (Length(Result) >= 2)
>   and (Result[1] in ['o']) and (Result[2] in ['n'])
>   then
>     System.Delete(Result,1,2);
>   tmp:=leftstr(result,1);
>   System.Delete(Result,1,1);
>   Result:=Uppercase(tmp)+Result;
> end; 

This is solved when using FPC 1.9.x anyways since this version stores
properties etc. in rtti without upper casing them.







More information about the Lazarus mailing list