paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 11:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Revert checking an event handler creation. Issue #41019.

Browse Source
This commit is contained in:
Juha 2024-07-13 22:35:22 +03:00
parent 17de96970d
commit ed4d485f1f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/propedits.pp
View File

@ -4854,7 +4854,6 @@ procedure TMethodPropertyEditor.Edit;
var var
NewMethodName: String; NewMethodName: String;
r: TModalResult; r: TModalResult;
m: TMethod;
begin begin
NewMethodName := GetValue; NewMethodName := GetValue;
{$IFDEF VerboseMethodPropEdit} {$IFDEF VerboseMethodPropEdit}
@ -4890,9 +4889,8 @@ begin
{$IFDEF VerboseMethodPropEdit} {$IFDEF VerboseMethodPropEdit}
debugln(['TMethodPropertyEditor.Edit CreateMethod "',NewMethodName,'"...']); debugln(['TMethodPropertyEditor.Edit CreateMethod "',NewMethodName,'"...']);
{$ENDIF} {$ENDIF}
m:=PropertyHook.CreateMethod(NewMethodName,GetPropType,GetComponent(0),GetPropertyPath(0)); SetMethodValue(PropertyHook.CreateMethod(NewMethodName, GetPropType,
if m.Code=nil then exit; GetComponent(0), GetPropertyPath(0)));
SetMethodValue(m);
{$IFDEF VerboseMethodPropEdit} {$IFDEF VerboseMethodPropEdit}
debugln(['TMethodPropertyEditor.Edit CHANGED new method=',GetValue]); debugln(['TMethodPropertyEditor.Edit CHANGED new method=',GetValue]);
{$ENDIF} {$ENDIF}