From fce82b284a0ebc3cf1a367391b7e1e5f1465f12c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 6 Jan 2013 19:01:28 +0000
Subject: [PATCH] LCL:
 TScreen.AddHandlerFormAdded+AddHandlerRemoveForm+AddHandlerActiveControlChanged+AddHandlerActiveFormChanged+AddHandlerFormVisibleChanged:
 changed default AsFirst to false for consistency

git-svn-id: trunk@39785 -
---
 lcl/forms.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index add9947e30..3b9fd23e54 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -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;