From 9d3226d369d6aeee14a41bee7ea3ad85acc8acbf Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 11 Sep 2014 16:52:52 +0000
Subject: [PATCH] LCL: removed TControl.ParentVisibleChanged

git-svn-id: trunk@46188 -
---
 designer/anchoreditor.pas  |  6 ------
 lcl/controls.pp            |  3 ---
 lcl/include/control.inc    |  9 ---------
 lcl/include/wincontrol.inc | 22 ----------------------
 4 files changed, 40 deletions(-)

diff --git a/designer/anchoreditor.pas b/designer/anchoreditor.pas
index 4cebe8a381..b0ac1b99b2 100644
--- a/designer/anchoreditor.pas
+++ b/designer/anchoreditor.pas
@@ -157,7 +157,6 @@ type
   protected
     procedure KeyUp(var Key: Word; Shift: TShiftState); override;
     procedure UpdateShowing; override;
-    procedure ParentVisibleChanged(aParent: TWinControl); override;
   public
     destructor Destroy; override;
     class function ControlToStr(AControl: TControl): string;
@@ -688,11 +687,6 @@ begin
     Refresh;
 end;
 
-procedure TAnchorDesigner.ParentVisibleChanged(aParent: TWinControl);
-begin
-  inherited ParentVisibleChanged(aParent);
-end;
-
 procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox);
 var
   sl: TStringList;
diff --git a/lcl/controls.pp b/lcl/controls.pp
index 89e6af2d91..067fb49220 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1362,7 +1362,6 @@ type
     function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; virtual;
     procedure VisibleChanging; virtual;
     procedure VisibleChanged; virtual;
-    procedure ParentVisibleChanged(aParent: TWinControl); virtual;
     procedure EnabledChanging; virtual;
     procedure EnabledChanged; virtual;
     procedure AddHandler(HandlerType: TControlHandlerType;
@@ -1915,7 +1914,6 @@ type
     procedure Remove(AControl: TControl);
     procedure AlignNonAlignedControls(ListOfControls: TFPList;
                                       var BoundsModified: Boolean);
-    procedure PropagateParentVisibleChanged(aParent: TWinControl);
   protected
     FWinControlFlags: TWinControlFlags;
     class procedure WSRegisterClass; override;
@@ -2076,7 +2074,6 @@ type
     procedure ShowControl(AControl: TControl); virtual;
     procedure UpdateControlState;
     procedure UpdateShowing; virtual; // checks control's handle visibility, called by DoAllAutoSize and UpdateControlState
-    procedure ParentVisibleChanged(aParent: TWinControl); override;
     procedure WndProc(var Message: TLMessage); override;
     procedure WSSetText(const AText: String); virtual;
   protected
diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 000aabec32..80747d92d3 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1805,15 +1805,6 @@ begin
   DoCallNotifyHandler(chtOnVisibleChanged);
 end;
 
-procedure TControl.ParentVisibleChanged(aParent: TWinControl);
-// called when a Parent (or grand parent) Visible property changed
-// and all parents in between have Visible=true
-// In other words: called when this control visibility changed due to
-//                 visibility change of Parent.
-begin
-
-end;
-
 {------------------------------------------------------------------------------
   procedure TControl.EnabledChanging;
 ------------------------------------------------------------------------------}
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 0f70d72ed5..6436744876 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -4340,12 +4340,6 @@ begin
   ChangeShowing(bShow);
 end;
 
-procedure TWinControl.ParentVisibleChanged(aParent: TWinControl);
-begin
-  inherited ParentVisibleChanged(aParent);
-  PropagateParentVisibleChanged(aParent);
-end;
-
 procedure TWinControl.Update;
 begin
   if HandleAllocated then UpdateWindow(Handle);
@@ -6142,22 +6136,6 @@ begin
   end;
 end;
 
-procedure TWinControl.PropagateParentVisibleChanged(aParent: TWinControl);
-var
-  i: Integer;
-  aControl: TControl;
-begin
-  for i:=0 to ControlCount-1 do
-  begin
-    aControl:=Controls[i];
-    if not aControl.Visible then
-      continue;
-    ParentVisibleChanged(aParent);
-    if aControl is TWinControl then
-      TWinControl(aControl).PropagateParentVisibleChanged(aParent);
-  end;
-end;
-
 class procedure TWinControl.WSRegisterClass;
 begin
   inherited WSRegisterClass;