paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TScreen.AddHandlerFormAdded+AddHandlerRemoveForm+AddHandlerActiveControlChanged+AddHandlerActiveFormChanged+AddHandlerFormVisibleChanged: changed default AsFirst to false for consistency

Browse Source 
git-svn-id: trunk@39785 -
This commit is contained in:
mattias 2013-01-06 19:01:28 +00:00
parent 31e711a9a4
commit fce82b284a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/forms.pp
View File

@ -1035,21 +1035,21 @@ type
// handler
procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
procedure AddHandlerFormAdded(OnFormAdded: TScreenFormEvent;
AsFirst: Boolean=true);
AsFirst: Boolean=false);
procedure RemoveHandlerFormAdded(OnFormAdded: TScreenFormEvent);
procedure AddHandlerRemoveForm(OnRemoveForm: TScreenFormEvent;
AsFirst: Boolean=true);
AsFirst: Boolean=false);
procedure RemoveHandlerRemoveForm(OnRemoveForm: TScreenFormEvent);
procedure AddHandlerActiveControlChanged(
OnActiveControlChanged: TScreenControlEvent;
AsFirst: Boolean=true);
AsFirst: Boolean=false);
procedure RemoveHandlerActiveControlChanged(
OnActiveControlChanged: TScreenControlEvent);
procedure AddHandlerActiveFormChanged(OnActiveFormChanged: TScreenFormEvent;
AsFirst: Boolean=true);
AsFirst: Boolean=false);
procedure RemoveHandlerActiveFormChanged(OnActiveFormChanged: TScreenFormEvent);
procedure AddHandlerFormVisibleChanged(OnFormVisibleChanged: TScreenFormEvent;
AsFirst: Boolean=true);
AsFirst: Boolean=false);
procedure RemoveHandlerFormVisibleChanged(OnFormVisibleChanged: TScreenFormEvent);
function DisableForms(SkipForm: TCustomForm; DisabledList: TList = nil): TList;