[lazarus] a patch about propedits.pp!

GongYu 425009 at sina.com
Sat Nov 8 02:36:24 EST 2003


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; 

 				
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡GongYu
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡425009 at sina.com
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡2003-11-08








More information about the Lazarus mailing list