paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/TPageControl: Add new method "Clear" to remove all pages.

Browse Source 
git-svn-id: trunk@65355 -
This commit is contained in:
wp 2021-07-03 20:44:02 +00:00
parent 5a21cedcbb
commit 8b6e1655ea
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -589,6 +589,7 @@ type
function DoUndockClientMsg(NewTarget, Client: TControl):boolean; override;
function ChildClassAllowed(ChildClass: TClass): boolean; override;
public
procedure Clear;
function FindNextPage(CurPage: TTabSheet;
GoForward, CheckTabVisible: Boolean): TTabSheet;
procedure SelectNextPage(GoForward: Boolean);

4
lcl/include/pagecontrol.inc
View File

@ -193,5 +193,9 @@ begin
Result.PageControl := Self;
end;
procedure TPageControl.Clear;
begin
Tabs.Clear;
end;
// included by comctrls.pp