paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 20:43:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Make TWinControl.GetChildren public. Issue #24974, patch from Stephano.

Browse Source 
git-svn-id: trunk@42752 -
This commit is contained in:
juha 2013-09-12 10:13:03 +00:00
parent 023fd6ba9b
commit 8caba4283d
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,7 +1952,6 @@ 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);
@ -2158,6 +2157,7 @@ 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);