paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 04:19: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
NewMethodName: String;
r: TModalResult;
m: TMethod;
begin
NewMethodName := GetValue;
{$IFDEF VerboseMethodPropEdit}
@ -4890,9 +4889,8 @@ begin
{$IFDEF VerboseMethodPropEdit}
debugln(['TMethodPropertyEditor.Edit CreateMethod "',NewMethodName,'"...']);
{$ENDIF}
m:=PropertyHook.CreateMethod(NewMethodName,GetPropType,GetComponent(0),GetPropertyPath(0));
if m.Code=nil then exit;
SetMethodValue(m);
SetMethodValue(PropertyHook.CreateMethod(NewMethodName, GetPropType,
GetComponent(0), GetPropertyPath(0)));
{$IFDEF VerboseMethodPropEdit}
debugln(['TMethodPropertyEditor.Edit CHANGED new method=',GetValue]);
{$ENDIF}