[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