paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix TControl handler methods and arguments. Issue #39974, patch by Don Siders.

Browse Source
This commit is contained in:
Juha 2022-11-02 19:46:16 +02:00
parent f4d0eeb099
commit f45f3610f4
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -1692,9 +1692,12 @@ type
procedure AddHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent; procedure AddHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent;
AsFirst: Boolean = false); AsFirst: Boolean = false);
procedure RemoveHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent); procedure RemoveHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent);
procedure AddHandlerOnEnabledChanging(const OnEnabledChangingEvent: TNotifyEvent;
AsFirst: Boolean = false);
procedure RemoveHandlerOnEnabledChanging(const OnEnabledChangingEvent: TNotifyEvent);
procedure AddHandlerOnEnabledChanged(const OnEnabledChangedEvent: TNotifyEvent; procedure AddHandlerOnEnabledChanged(const OnEnabledChangedEvent: TNotifyEvent;
AsFirst: Boolean = false); AsFirst: Boolean = false);
procedure RemoveHandlerOnEnableChanging(const OnEnableChangingEvent: TNotifyEvent); procedure RemoveHandlerOnEnabledChanged(const OnEnabledChangedEvent: TNotifyEvent);
procedure AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent; procedure AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent;
AsFirst: Boolean = false); AsFirst: Boolean = false);
procedure RemoveHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent); procedure RemoveHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent);

21
lcl/include/control.inc
View File

@ -4990,15 +4990,28 @@ begin
RemoveHandler(chtOnVisibleChanged,TMethod(OnVisibleChangedEvent)); RemoveHandler(chtOnVisibleChanged,TMethod(OnVisibleChangedEvent));
end; end;
procedure TControl.AddHandlerOnEnabledChanged(const OnEnabledChangedEvent: TNotifyEvent; AsFirst: Boolean); procedure TControl.AddHandlerOnEnabledChanging(
const OnEnabledChangingEvent: TNotifyEvent; AsFirst: Boolean);
begin
AddHandler(chtOnEnabledChanging,TMethod(OnEnabledChangingEvent),AsFirst);
end;
procedure TControl.RemoveHandlerOnEnabledChanging(
const OnEnabledChangingEvent: TNotifyEvent);
begin
RemoveHandler(chtOnEnabledChanging,TMethod(OnEnabledChangingEvent));
end;
procedure TControl.AddHandlerOnEnabledChanged(const OnEnabledChangedEvent: TNotifyEvent;
AsFirst: Boolean);
begin begin
AddHandler(chtOnEnabledChanged,TMethod(OnEnabledChangedEvent),AsFirst); AddHandler(chtOnEnabledChanged,TMethod(OnEnabledChangedEvent),AsFirst);
end; end;
procedure TControl.RemoveHandlerOnEnableChanging( procedure TControl.RemoveHandlerOnEnabledChanged(
const OnEnableChangingEvent: TNotifyEvent); const OnEnabledChangedEvent: TNotifyEvent);
begin begin
RemoveHandler(chtOnEnabledChanged,TMethod(OnEnableChangingEvent)); RemoveHandler(chtOnEnabledChanged,TMethod(OnEnabledChangedEvent));
end; end;
procedure TControl.AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent; AsFirst: Boolean); procedure TControl.AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent; AsFirst: Boolean);