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

LCL: fixed AsFirst for AddHandler of TCustomForm, TControl and TApplication

Browse Source 
git-svn-id: trunk@39786 -
This commit is contained in:
mattias 2013-01-06 19:10:21 +00:00
parent fce82b284a
commit 87703369e3
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -1470,7 +1470,7 @@ begin
if Handler.Code=nil then RaiseGDBException('TApplication.AddHandler');
if FApplicationHandlers[HandlerType]=nil then
FApplicationHandlers[HandlerType]:=TMethodList.Create;
FApplicationHandlers[HandlerType].Add(Handler,AsFirst);
FApplicationHandlers[HandlerType].Add(Handler,not AsFirst);
end;
procedure TApplication.RemoveHandler(HandlerType: TApplicationHandlerType;

2
lcl/include/control.inc
View File

@ -1823,7 +1823,7 @@ procedure TControl.AddHandler(HandlerType: TControlHandlerType;
begin
if FControlHandlers[HandlerType]=nil then
FControlHandlers[HandlerType]:=TMethodList.Create;
FControlHandlers[HandlerType].Add(AMethod);
FControlHandlers[HandlerType].Add(AMethod,not AsFirst);
end;
procedure TControl.RemoveHandler(HandlerType: TControlHandlerType;

2
lcl/include/customform.inc
View File

@ -857,7 +857,7 @@ begin
if Handler.Code=nil then RaiseGDBException('TCustomForm.AddHandler');
if FFormHandlers[HandlerType]=nil then
FFormHandlers[HandlerType]:=TMethodList.Create;
FFormHandlers[HandlerType].Add(Handler,AsFirst);
FFormHandlers[HandlerType].Add(Handler,not AsFirst);
end;
procedure TCustomForm.RemoveHandler(HandlerType: TFormHandlerType;

2
lcl/include/screen.inc
View File

@ -1032,7 +1032,7 @@ begin
RaiseGDBException('TScreen.AddHandler');
if FScreenHandlers[HandlerType] = nil then
FScreenHandlers[HandlerType] := TMethodList.Create;
FScreenHandlers[HandlerType].Add(Handler, AsFirst);
FScreenHandlers[HandlerType].Add(Handler, not AsFirst);
end;
procedure TScreen.RemoveHandler(HandlerType: TScreenNotification; const Handler: TMethod);