hello everyone! i modified the propedits.pp TMethodPropertyEditor.GetTrimmedEventName…
Show quoted text 30 lines
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.
Right.
Nevertheless for 1.0.x for the biggest part of the methods it will create nicer names. So, I added it with an IFDEF.
Mattias
Show quoted text 6 lines
_________________________________________________________________
To unsubscribe: mail with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives