paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 15:48:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@42775 -
This commit is contained in:
juha 2013-09-13 18:44:16 +00:00
parent a6401dd4c3
commit 03c1d319be
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/extendedtabcontrols.pas
View File

@ -18,10 +18,10 @@ type
protected
FVertical: Boolean;
function IsVertical: Boolean; override;
procedure GetChildren({%H-}Proc: TGetChildProc; {%H-}Root: TComponent); override;
procedure Loaded; override;
public
constructor Create(TheOwner: TComponent); override;
procedure GetChildren({%H-}Proc: TGetChildProc; {%H-}Root: TComponent); override;
end;
{ TExtendedTabToolButton }
@ -229,7 +229,6 @@ type
//DoSendPageIndex // prevent
function GetChildOwner: TComponent; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
function GetPageClass: TCustomPageClass; override;
@ -238,6 +237,7 @@ type
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
property ActivePage: TExtendedTabSheet read GetActiveTabSheet write SetActiveTabSheet; experimental; platform;
property Pages[Index: Integer]: TExtendedTabSheet read GetTabSheet; experimental; platform;
property ShowToolBar: TTabControlToolBarSide read GetShowToolBar write SetShowToolBar;

2
components/synedit/synedit.pp
View File

@ -756,7 +756,6 @@ type
procedure DestroyWnd; override;
procedure Loaded; override;
function GetChildOwner: TComponent; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure UTF8KeyPress(var Key: TUTF8Char); override;
@ -1013,6 +1012,7 @@ type
function UpdateAction(TheAction: TBasicAction): boolean; override;
procedure WndProc(var Msg: TMessage); override;
procedure EraseBackground(DC: HDC); override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public
procedure FindMatchingBracket; virtual;
function FindMatchingBracket(PhysStartBracket: TPoint;

4
lcl/forms.pp
View File

@ -260,7 +260,6 @@ type
procedure WriteDesignTop(Writer: TWriter);
protected
class procedure WSRegisterClass; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure SetParent(AParent: TWinControl); override;
@ -269,6 +268,7 @@ type
PreferredHeight: integer; WithThemeSpace: Boolean); override;
public
constructor Create(AOwner: TComponent); override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
class function GetControlClassDefaultSize: TSize; override;
end;
@ -522,7 +522,6 @@ type
procedure DoHide; virtual;
procedure DoShow; virtual;
procedure EndFormUpdate;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
function HandleCreateException: Boolean; virtual;
function HandleDestroyException: Boolean; virtual;
function HandleShowHideException: Boolean; virtual;
@ -609,6 +608,7 @@ type
function ShowModal: Integer; virtual;
procedure ShowOnTop;
function SmallIconHandle: HICON;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
function WantChildKey(Child : TControl;
var Message : TLMessage): Boolean; virtual;