[lazarus] a patch about propedits.pp!

[Mattias Gaertner]

On Sat, 08 Nov 2003 09:29:26 +0100
Florian Klaempfl <Florian.Klaempfl at gmx.de> wrote:

> 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




> 
> 
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>    archives at http://www.lazarus.freepascal.org/mailarchives


--