paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 12:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert r42752 #8caba4283d making TWinControl.GetChildren public. It was incomplete.

Browse Source 
git-svn-id: trunk@42757 -
This commit is contained in:
juha 2013-09-12 15:34:02 +00:00
parent 31146809e7
commit 5c1f0c896b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -1952,6 +1952,7 @@ type
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer;
WithThemeSpace: Boolean); override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
function ChildClassAllowed(ChildClass: TClass): boolean; override;
procedure PaintControls(DC: HDC; First: TControl);
procedure PaintHandler(var TheMessage: TLMPaint);
@ -2157,7 +2158,6 @@ type
procedure SetControlIndex(AControl: TControl; NewIndex: integer);
function Focused: Boolean; virtual;
function PerformTab(ForwardTab: boolean): boolean; virtual;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
function FindChildControl(const ControlName: String): TControl;
procedure SelectNext(CurControl: TWinControl;
GoForward, CheckTabStop: Boolean);