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

LCL: renamed addhandler parameter AsLast to AsFirst, because this is more intuitive

Browse Source 
git-svn-id: trunk@25768 -
This commit is contained in:
mattias 2010-05-30 13:59:44 +00:00
parent d475d6b745
commit 525e8f2516
7 changed files with 106 additions and 105 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/linkscanner.pas
View File

@ -989,10 +989,11 @@ var
MacroID: LongInt;
p: PChar;
begin
//DebugLn(' TLinkScanner.ReadNextToken SrcPos=',SrcPos,' SrcLen=',SrcLen,' "',copy(Src,SrcPos,5),'"');
//DebugLn([' TLinkScanner.ReadNextToken SrcPos=',SrcPos,' SrcLen=',SrcLen,' "',copy(Src,SrcPos,5),'"']);
{$IFOPT R+}{$DEFINE RangeChecking}{$ENDIF}
{$R-}
if (SrcPos>SrcLen) and ReturnFromIncludeFileAndIsEnd then exit;
//DebugLn([' TLinkScanner.ReadNextToken SrcPos=',SrcPos,' SrcLen=',SrcLen,' "',copy(Src,SrcPos,5),'"']);
// Skip all spaces and comments
p:=@Src[SrcPos];
while true do begin

12
lcl/controls.pp
View File

@ -1186,7 +1186,7 @@ type
procedure VisibleChanging; virtual;
procedure VisibleChanged; virtual;
procedure AddHandler(HandlerType: TControlHandlerType;
const AMethod: TMethod; AsLast: boolean = false);
const AMethod: TMethod; AsFirst: boolean = false);
procedure RemoveHandler(HandlerType: TControlHandlerType;
const AMethod: TMethod);
procedure DoCallNotifyHandler(HandlerType: TControlHandlerType);
@ -1340,19 +1340,19 @@ type
// Event lists
procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
procedure AddHandlerOnResize(const OnResizeEvent: TNotifyEvent;
AsLast: boolean = false);
AsFirst: boolean = false);
procedure RemoveHandlerOnResize(const OnResizeEvent: TNotifyEvent);
procedure AddHandlerOnChangeBounds(const OnChangeBoundsEvent: TNotifyEvent;
AsLast: boolean = false);
AsFirst: boolean = false);
procedure RemoveHandlerOnChangeBounds(const OnChangeBoundsEvent: TNotifyEvent);
procedure AddHandlerOnVisibleChanging(const OnVisibleChangingEvent: TNotifyEvent;
AsLast: boolean = false);
AsFirst: boolean = false);
procedure RemoveHandlerOnVisibleChanging(const OnVisibleChangingEvent: TNotifyEvent);
procedure AddHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent;
AsLast: boolean = false);
AsFirst: boolean = false);
procedure RemoveHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent);
procedure AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent;
AsLast: boolean = false);
AsFirst: boolean = false);
procedure RemoveHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent);
public
// standard properties, which should be supported by all descendants

58
lcl/forms.pp
View File

@ -493,7 +493,7 @@ type
procedure CMActivate(var Message: TLMessage); message CM_ACTIVATE;
procedure CMDeactivate(var Message: TLMessage); message CM_DEACTIVATE;
procedure AddHandler(HandlerType: TFormHandlerType;
const Handler: TMethod; AsLast: Boolean);
const Handler: TMethod; AsFirst: Boolean);
procedure RemoveHandler(HandlerType: TFormHandlerType;
const Handler: TMethod);
function FindDefaultForActiveControl: TWinControl;
@ -603,12 +603,12 @@ type
// handlers
procedure AddHandlerFirstShow(OnFirstShowHandler: TNotifyEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
procedure RemoveHandlerFirstShow(OnFirstShowHandler: TNotifyEvent);
procedure AddHandlerClose(OnCloseHandler: TCloseEvent; AsLast: Boolean=true);
procedure AddHandlerClose(OnCloseHandler: TCloseEvent; AsFirst: Boolean=true);
procedure RemoveHandlerClose(OnCloseHandler: TCloseEvent);
procedure AddHandlerCreate(OnCreateHandler: TNotifyEvent; AsLast: Boolean=true);
procedure AddHandlerCreate(OnCreateHandler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveHandlerCreate(OnCreateHandler: TNotifyEvent);
public
// drag and dock
@ -956,7 +956,7 @@ type
procedure UpdateMonitors;
procedure RestoreLastActive;
procedure AddHandler(HandlerType: TScreenNotification;
const Handler: TMethod; AsLast: Boolean);
const Handler: TMethod; AsFirst: Boolean);
procedure RemoveHandler(HandlerType: TScreenNotification;
const Handler: TMethod);
procedure DoAddDataModule(DataModule: TDataModule);
@ -985,21 +985,21 @@ type
// handler
procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
procedure AddHandlerFormAdded(OnFormAdded: TScreenFormEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveHandlerFormAdded(OnFormAdded: TScreenFormEvent);
procedure AddHandlerRemoveForm(OnRemoveForm: TScreenFormEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveHandlerRemoveForm(OnRemoveForm: TScreenFormEvent);
procedure AddHandlerActiveControlChanged(
OnActiveControlChanged: TScreenControlEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveHandlerActiveControlChanged(
OnActiveControlChanged: TScreenControlEvent);
procedure AddHandlerActiveFormChanged(OnActiveFormChanged: TScreenFormEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveHandlerActiveFormChanged(OnActiveFormChanged: TScreenFormEvent);
procedure AddHandlerFormVisibleChanged(OnFormVisibleChanged: TScreenFormEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveHandlerFormVisibleChanged(OnFormVisibleChanged: TScreenFormEvent);
function DisableForms(SkipForm: TCustomForm; DisabledList: TList = nil): TList;
@ -1250,7 +1250,7 @@ type
procedure WndProc(var AMessage : TLMessage);
function DispatchAction(Msg: Longint; Action: TBasicAction): Boolean;
procedure AddHandler(HandlerType: TApplicationHandlerType;
const Handler: TMethod; AsLast: Boolean);
const Handler: TMethod; AsFirst: Boolean);
procedure RemoveHandler(HandlerType: TApplicationHandlerType;
const Handler: TMethod);
procedure RunLoop;
@ -1329,43 +1329,43 @@ type
var Key: Word; Shift: TShiftState);
procedure ControlKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ControlKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure AddOnIdleHandler(Handler: TIdleEvent; AsLast: Boolean=true);
procedure AddOnIdleHandler(Handler: TIdleEvent; AsFirst: Boolean=true);
procedure RemoveOnIdleHandler(Handler: TIdleEvent);
procedure AddOnIdleEndHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnIdleEndHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnIdleEndHandler(Handler: TNotifyEvent);
procedure AddOnUserInputHandler(Handler: TOnUserInputEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveOnUserInputHandler(Handler: TOnUserInputEvent);
procedure AddOnKeyDownBeforeHandler(Handler: TKeyEvent;
AsLast: Boolean=true);
AsFirst: Boolean=true);
procedure RemoveOnKeyDownBeforeHandler(Handler: TKeyEvent);
procedure AddOnKeyDownHandler(Handler: TKeyEvent; AsLast: Boolean=true);
procedure AddOnKeyDownHandler(Handler: TKeyEvent; AsFirst: Boolean=true);
procedure RemoveOnKeyDownHandler(Handler: TKeyEvent);
procedure AddOnActivateHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnActivateHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnActivateHandler(Handler: TNotifyEvent);
procedure AddOnDeactivateHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnDeactivateHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnDeactivateHandler(Handler: TNotifyEvent);
procedure AddOnExceptionHandler(Handler: TExceptionEvent; AsLast: Boolean=true);
procedure AddOnExceptionHandler(Handler: TExceptionEvent; AsFirst: Boolean=true);
procedure RemoveOnExceptionHandler(Handler: TExceptionEvent);
procedure AddOnEndSessionHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnEndSessionHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnEndSessionHandler(Handler: TNotifyEvent);
procedure AddOnQueryEndSessionHandler(Handler: TQueryEndSessionEvent; AsLast: Boolean=true);
procedure AddOnQueryEndSessionHandler(Handler: TQueryEndSessionEvent; AsFirst: Boolean=true);
procedure RemoveOnQueryEndSessionHandler(Handler: TQueryEndSessionEvent);
procedure AddOnMinimizeHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnMinimizeHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnMinimizeHandler(Handler: TNotifyEvent);
procedure AddOnModalBeginHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnModalBeginHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnModalBeginHandler(Handler: TNotifyEvent);
procedure AddOnModalEndHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnModalEndHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnModalEndHandler(Handler: TNotifyEvent);
procedure AddOnRestoreHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnRestoreHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnRestoreHandler(Handler: TNotifyEvent);
procedure AddOnDropFilesHandler(Handler: TDropFilesEvent; AsLast: Boolean=true);
procedure AddOnDropFilesHandler(Handler: TDropFilesEvent; AsFirst: Boolean=true);
procedure RemoveOnDropFilesHandler(Handler: TDropFilesEvent);
procedure AddOnHelpHandler(Handler: THelpEvent; AsLast: Boolean=true);
procedure AddOnHelpHandler(Handler: THelpEvent; AsFirst: Boolean=true);
procedure RemoveOnHelpHandler(Handler: THelpEvent);
procedure AddOnHintHandler(Handler: TNotifyEvent; AsLast: Boolean=true);
procedure AddOnHintHandler(Handler: TNotifyEvent; AsFirst: Boolean=true);
procedure RemoveOnHintHandler(Handler: TNotifyEvent);
procedure AddOnShowHintHandler(Handler: TShowHintEvent; AsLast: Boolean=true);
procedure AddOnShowHintHandler(Handler: TShowHintEvent; AsFirst: Boolean=true);
procedure RemoveOnShowHintHandler(Handler: TShowHintEvent);
procedure RemoveAllHandlersOfObject(AnObject: TObject); virtual;
procedure DoBeforeMouseMessage(CurMouseControl: TControl);

76
lcl/include/application.inc
View File

@ -1407,12 +1407,12 @@ begin
end;
procedure TApplication.AddHandler(HandlerType: TApplicationHandlerType;
const Handler: TMethod; AsLast: Boolean);
const Handler: TMethod; AsFirst: Boolean);
begin
if Handler.Code=nil then RaiseGDBException('TApplication.AddHandler');
if FApplicationHandlers[HandlerType]=nil then
FApplicationHandlers[HandlerType]:=TMethodList.Create;
FApplicationHandlers[HandlerType].Add(Handler,AsLast);
FApplicationHandlers[HandlerType].Add(Handler,AsFirst);
end;
procedure TApplication.RemoveHandler(HandlerType: TApplicationHandlerType;
@ -1640,9 +1640,9 @@ begin
end;
procedure TApplication.AddOnIdleHandler(Handler: TIdleEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtIdle,TMethod(Handler),AsLast);
AddHandler(ahtIdle,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnIdleHandler(Handler: TIdleEvent);
@ -1651,9 +1651,9 @@ begin
end;
procedure TApplication.AddOnIdleEndHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtIdleEnd,TMethod(Handler),AsLast);
AddHandler(ahtIdleEnd,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnIdleEndHandler(Handler: TNotifyEvent);
@ -1662,9 +1662,9 @@ begin
end;
procedure TApplication.AddOnUserInputHandler(Handler: TOnUserInputEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtUserInput,TMethod(Handler),AsLast);
AddHandler(ahtUserInput,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnUserInputHandler(Handler: TOnUserInputEvent);
@ -1673,9 +1673,9 @@ begin
end;
procedure TApplication.AddOnKeyDownBeforeHandler(Handler: TKeyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtKeyDownBefore,TMethod(Handler),AsLast);
AddHandler(ahtKeyDownBefore,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnKeyDownBeforeHandler(Handler: TKeyEvent);
@ -1683,9 +1683,9 @@ begin
RemoveHandler(ahtKeyDownBefore,TMethod(Handler));
end;
procedure TApplication.AddOnKeyDownHandler(Handler: TKeyEvent; AsLast: Boolean);
procedure TApplication.AddOnKeyDownHandler(Handler: TKeyEvent; AsFirst: Boolean);
begin
AddHandler(ahtKeyDownAfter,TMethod(Handler),AsLast);
AddHandler(ahtKeyDownAfter,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnKeyDownHandler(Handler: TKeyEvent);
@ -1694,9 +1694,9 @@ begin
end;
procedure TApplication.AddOnActivateHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtActivate,TMethod(Handler),AsLast);
AddHandler(ahtActivate,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnActivateHandler(Handler: TNotifyEvent);
@ -1705,9 +1705,9 @@ begin
end;
procedure TApplication.AddOnDeactivateHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtDeactivate,TMethod(Handler),AsLast);
AddHandler(ahtDeactivate,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnDeactivateHandler(Handler: TNotifyEvent);
@ -1716,9 +1716,9 @@ begin
end;
procedure TApplication.AddOnExceptionHandler(Handler: TExceptionEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtException,TMethod(Handler),AsLast);
AddHandler(ahtException,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnExceptionHandler(Handler: TExceptionEvent);
@ -1727,9 +1727,9 @@ begin
end;
procedure TApplication.AddOnEndSessionHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtEndSession,TMethod(Handler),AsLast);
AddHandler(ahtEndSession,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnEndSessionHandler(Handler: TNotifyEvent);
@ -1738,9 +1738,9 @@ begin
end;
procedure TApplication.AddOnQueryEndSessionHandler(
Handler: TQueryEndSessionEvent; AsLast: Boolean);
Handler: TQueryEndSessionEvent; AsFirst: Boolean);
begin
AddHandler(ahtQueryEndSession,TMethod(Handler),AsLast);
AddHandler(ahtQueryEndSession,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnQueryEndSessionHandler(
@ -1750,9 +1750,9 @@ begin
end;
procedure TApplication.AddOnMinimizeHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtMinimize,TMethod(Handler),AsLast);
AddHandler(ahtMinimize,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnMinimizeHandler(Handler: TNotifyEvent);
@ -1761,9 +1761,9 @@ begin
end;
procedure TApplication.AddOnModalBeginHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtModalBegin,TMethod(Handler),AsLast);
AddHandler(ahtModalBegin,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnModalBeginHandler(Handler: TNotifyEvent);
@ -1772,9 +1772,9 @@ begin
end;
procedure TApplication.AddOnModalEndHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtModalEnd,TMethod(Handler),AsLast);
AddHandler(ahtModalEnd,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnModalEndHandler(Handler: TNotifyEvent);
@ -1783,9 +1783,9 @@ begin
end;
procedure TApplication.AddOnRestoreHandler(Handler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtRestore,TMethod(Handler),AsLast);
AddHandler(ahtRestore,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnRestoreHandler(Handler: TNotifyEvent);
@ -1794,9 +1794,9 @@ begin
end;
procedure TApplication.AddOnDropFilesHandler(Handler: TDropFilesEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtDropFiles,TMethod(Handler),AsLast);
AddHandler(ahtDropFiles,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnDropFilesHandler(Handler: TDropFilesEvent);
@ -1804,9 +1804,9 @@ begin
RemoveHandler(ahtDropFiles,TMethod(Handler));
end;
procedure TApplication.AddOnHelpHandler(Handler: THelpEvent; AsLast: Boolean);
procedure TApplication.AddOnHelpHandler(Handler: THelpEvent; AsFirst: Boolean);
begin
AddHandler(ahtHelp,TMethod(Handler),AsLast);
AddHandler(ahtHelp,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnHelpHandler(Handler: THelpEvent);
@ -1814,10 +1814,10 @@ begin
RemoveHandler(ahtHelp,TMethod(Handler));
end;
procedure TApplication.AddOnHintHandler(Handler: TNotifyEvent; AsLast: Boolean
procedure TApplication.AddOnHintHandler(Handler: TNotifyEvent; AsFirst: Boolean
);
begin
AddHandler(ahtHint,TMethod(Handler),AsLast);
AddHandler(ahtHint,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnHintHandler(Handler: TNotifyEvent);
@ -1826,9 +1826,9 @@ begin
end;
procedure TApplication.AddOnShowHintHandler(Handler: TShowHintEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(ahtShowHint,TMethod(Handler),AsLast);
AddHandler(ahtShowHint,TMethod(Handler),AsFirst);
end;
procedure TApplication.RemoveOnShowHintHandler(Handler: TShowHintEvent);

22
lcl/include/control.inc
View File

@ -1338,7 +1338,7 @@ begin
end;
procedure TControl.AddHandler(HandlerType: TControlHandlerType;
const AMethod: TMethod; AsLast: boolean);
const AMethod: TMethod; AsFirst: boolean);
begin
if FControlHandlers[HandlerType]=nil then
FControlHandlers[HandlerType]:=TMethodList.Create;
@ -4005,9 +4005,9 @@ begin
end;
procedure TControl.AddHandlerOnResize(const OnResizeEvent: TNotifyEvent;
AsLast: boolean);
AsFirst: boolean);
begin
AddHandler(chtOnResize,TMethod(OnResizeEvent),AsLast);
AddHandler(chtOnResize,TMethod(OnResizeEvent),AsFirst);
end;
procedure TControl.RemoveHandlerOnResize(const OnResizeEvent: TNotifyEvent);
@ -4016,9 +4016,9 @@ begin
end;
procedure TControl.AddHandlerOnChangeBounds(
const OnChangeBoundsEvent: TNotifyEvent; AsLast: boolean);
const OnChangeBoundsEvent: TNotifyEvent; AsFirst: boolean);
begin
AddHandler(chtOnChangeBounds,TMethod(OnChangeBoundsEvent),AsLast);
AddHandler(chtOnChangeBounds,TMethod(OnChangeBoundsEvent),AsFirst);
end;
procedure TControl.RemoveHandlerOnChangeBounds(
@ -4028,9 +4028,9 @@ begin
end;
procedure TControl.AddHandlerOnVisibleChanging(
const OnVisibleChangingEvent: TNotifyEvent; AsLast: boolean);
const OnVisibleChangingEvent: TNotifyEvent; AsFirst: boolean);
begin
AddHandler(chtOnVisibleChanging,TMethod(OnVisibleChangingEvent),AsLast);
AddHandler(chtOnVisibleChanging,TMethod(OnVisibleChangingEvent),AsFirst);
end;
procedure TControl.RemoveHandlerOnVisibleChanging(
@ -4040,9 +4040,9 @@ begin
end;
procedure TControl.AddHandlerOnVisibleChanged(
const OnVisibleChangedEvent: TNotifyEvent; AsLast: boolean);
const OnVisibleChangedEvent: TNotifyEvent; AsFirst: boolean);
begin
AddHandler(chtOnVisibleChanged,TMethod(OnVisibleChangedEvent),AsLast);
AddHandler(chtOnVisibleChanged,TMethod(OnVisibleChangedEvent),AsFirst);
end;
procedure TControl.RemoveHandlerOnVisibleChanged(
@ -4052,9 +4052,9 @@ begin
end;
procedure TControl.AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent;
AsLast: boolean);
AsFirst: boolean);
begin
AddHandler(chtOnKeyDown,TMethod(OnKeyDownEvent),AsLast);
AddHandler(chtOnKeyDown,TMethod(OnKeyDownEvent),AsFirst);
end;
procedure TControl.RemoveHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent);

16
lcl/include/customform.inc
View File

@ -746,12 +746,12 @@ begin
end;
procedure TCustomForm.AddHandler(HandlerType: TFormHandlerType;
const Handler: TMethod; AsLast: Boolean);
const Handler: TMethod; AsFirst: Boolean);
begin
if Handler.Code=nil then RaiseGDBException('TCustomForm.AddHandler');
if FFormHandlers[HandlerType]=nil then
FFormHandlers[HandlerType]:=TMethodList.Create;
FFormHandlers[HandlerType].Add(Handler,AsLast);
FFormHandlers[HandlerType].Add(Handler,AsFirst);
end;
procedure TCustomForm.RemoveHandler(HandlerType: TFormHandlerType;
@ -2683,9 +2683,9 @@ begin
end;
procedure TCustomForm.AddHandlerFirstShow(OnFirstShowHandler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(fhtFirstShow,TMethod(OnFirstShowHandler),AsLast);
AddHandler(fhtFirstShow,TMethod(OnFirstShowHandler),AsFirst);
end;
procedure TCustomForm.RemoveHandlerFirstShow(OnFirstShowHandler: TNotifyEvent);
@ -2694,9 +2694,9 @@ begin
end;
procedure TCustomForm.AddHandlerClose(OnCloseHandler: TCloseEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(fhtClose,TMethod(OnCloseHandler),AsLast);
AddHandler(fhtClose,TMethod(OnCloseHandler),AsFirst);
end;
procedure TCustomForm.RemoveHandlerClose(OnCloseHandler: TCloseEvent);
@ -2705,9 +2705,9 @@ begin
end;
procedure TCustomForm.AddHandlerCreate(OnCreateHandler: TNotifyEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(fhtCreate,TMethod(OnCreateHandler),AsLast);
AddHandler(fhtCreate,TMethod(OnCreateHandler),AsFirst);
end;
procedure TCustomForm.RemoveHandlerCreate(OnCreateHandler: TNotifyEvent);

24
lcl/include/screen.inc
View File

@ -260,9 +260,9 @@ begin
end;
procedure TScreen.AddHandlerFormAdded(OnFormAdded: TScreenFormEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(snFormAdded,TMethod(OnFormAdded),AsLast);
AddHandler(snFormAdded,TMethod(OnFormAdded),AsFirst);
end;
procedure TScreen.RemoveHandlerFormAdded(OnFormAdded: TScreenFormEvent);
@ -271,9 +271,9 @@ begin
end;
procedure TScreen.AddHandlerRemoveForm(OnRemoveForm: TScreenFormEvent;
AsLast: Boolean);
AsFirst: Boolean);
begin
AddHandler(snRemoveForm,TMethod(OnRemoveForm),AsLast);
AddHandler(snRemoveForm,TMethod(OnRemoveForm),AsFirst);
end;
procedure TScreen.RemoveHandlerRemoveForm(OnRemoveForm: TScreenFormEvent);
@ -282,9 +282,9 @@ begin
end;
procedure TScreen.AddHandlerActiveControlChanged(
OnActiveControlChanged: TScreenControlEvent; AsLast: Boolean);
OnActiveControlChanged: TScreenControlEvent; AsFirst: Boolean);
begin
AddHandler(snActiveControlChanged,TMethod(OnActiveControlChanged),AsLast);
AddHandler(snActiveControlChanged,TMethod(OnActiveControlChanged),AsFirst);
end;
procedure TScreen.RemoveHandlerActiveControlChanged(
@ -294,9 +294,9 @@ begin
end;
procedure TScreen.AddHandlerActiveFormChanged(
OnActiveFormChanged: TScreenFormEvent; AsLast: Boolean);
OnActiveFormChanged: TScreenFormEvent; AsFirst: Boolean);
begin
AddHandler(snActiveFormChanged,TMethod(OnActiveFormChanged),AsLast);
AddHandler(snActiveFormChanged,TMethod(OnActiveFormChanged),AsFirst);
end;
procedure TScreen.RemoveHandlerActiveFormChanged(
@ -306,9 +306,9 @@ begin
end;
procedure TScreen.AddHandlerFormVisibleChanged(
OnFormVisibleChanged: TScreenFormEvent; AsLast: Boolean);
OnFormVisibleChanged: TScreenFormEvent; AsFirst: Boolean);
begin
AddHandler(snFormVisibleChanged,TMethod(OnFormVisibleChanged),AsLast);
AddHandler(snFormVisibleChanged,TMethod(OnFormVisibleChanged),AsFirst);
end;
procedure TScreen.RemoveHandlerFormVisibleChanged(
@ -919,13 +919,13 @@ end;
const Handler: TMethod);
------------------------------------------------------------------------------}
procedure TScreen.AddHandler(HandlerType: TScreenNotification;
const Handler: TMethod; AsLast: Boolean);
const Handler: TMethod; AsFirst: Boolean);
begin
if Handler.Code = nil then
RaiseGDBException('TScreen.AddHandler');
if FScreenHandlers[HandlerType] = nil then
FScreenHandlers[HandlerType] := TMethodList.Create;
FScreenHandlers[HandlerType].Add(Handler, AsLast);
FScreenHandlers[HandlerType].Add(Handler, AsFirst);
end;
procedure TScreen.RemoveHandler(HandlerType: TScreenNotification; const Handler: TMethod);