paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 11:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: removed TControl.ParentVisibleChanged

Browse Source 
git-svn-id: trunk@46188 -
This commit is contained in:
mattias 2014-09-11 16:52:52 +00:00
parent 8c9f6d38b4
commit 9d3226d369
4 changed files with 0 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/anchoreditor.pas
View File

@ -157,7 +157,6 @@ type
protected protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure UpdateShowing; override; procedure UpdateShowing; override;
procedure ParentVisibleChanged(aParent: TWinControl); override;
public public
destructor Destroy; override; destructor Destroy; override;
class function ControlToStr(AControl: TControl): string; class function ControlToStr(AControl: TControl): string;
@ -688,11 +687,6 @@ begin
Refresh; Refresh;
end; end;
procedure TAnchorDesigner.ParentVisibleChanged(aParent: TWinControl);
begin
inherited ParentVisibleChanged(aParent);
end;
procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox); procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox);
var var
sl: TStringList; sl: TStringList;

3
lcl/controls.pp
View File

@ -1362,7 +1362,6 @@ type
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; virtual; function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; virtual;
procedure VisibleChanging; virtual; procedure VisibleChanging; virtual;
procedure VisibleChanged; virtual; procedure VisibleChanged; virtual;
procedure ParentVisibleChanged(aParent: TWinControl); virtual;
procedure EnabledChanging; virtual; procedure EnabledChanging; virtual;
procedure EnabledChanged; virtual; procedure EnabledChanged; virtual;
procedure AddHandler(HandlerType: TControlHandlerType; procedure AddHandler(HandlerType: TControlHandlerType;
@ -1915,7 +1914,6 @@ type
procedure Remove(AControl: TControl); procedure Remove(AControl: TControl);
procedure AlignNonAlignedControls(ListOfControls: TFPList; procedure AlignNonAlignedControls(ListOfControls: TFPList;
var BoundsModified: Boolean); var BoundsModified: Boolean);
procedure PropagateParentVisibleChanged(aParent: TWinControl);
protected protected
FWinControlFlags: TWinControlFlags; FWinControlFlags: TWinControlFlags;
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
@ -2076,7 +2074,6 @@ type
procedure ShowControl(AControl: TControl); virtual; procedure ShowControl(AControl: TControl); virtual;
procedure UpdateControlState; procedure UpdateControlState;
procedure UpdateShowing; virtual; // checks control's handle visibility, called by DoAllAutoSize and 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 WndProc(var Message: TLMessage); override;
procedure WSSetText(const AText: String); virtual; procedure WSSetText(const AText: String); virtual;
protected protected

9
lcl/include/control.inc
View File

@ -1805,15 +1805,6 @@ begin
DoCallNotifyHandler(chtOnVisibleChanged); DoCallNotifyHandler(chtOnVisibleChanged);
end; 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; procedure TControl.EnabledChanging;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}

22
lcl/include/wincontrol.inc
View File

@ -4340,12 +4340,6 @@ begin
ChangeShowing(bShow); ChangeShowing(bShow);
end; end;
procedure TWinControl.ParentVisibleChanged(aParent: TWinControl);
begin
inherited ParentVisibleChanged(aParent);
PropagateParentVisibleChanged(aParent);
end;
procedure TWinControl.Update; procedure TWinControl.Update;
begin begin
if HandleAllocated then UpdateWindow(Handle); if HandleAllocated then UpdateWindow(Handle);
@ -6142,22 +6136,6 @@ begin
end; end;
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; class procedure TWinControl.WSRegisterClass;
begin begin
inherited WSRegisterClass; inherited WSRegisterClass;