mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-28 22:38:16 +02:00
72 lines
1.9 KiB
PHP
72 lines
1.9 KiB
PHP
{%MainUnit ../comctrls.pp}
|
|
|
|
{******************************************************************************
|
|
TTabSheet
|
|
******************************************************************************
|
|
|
|
Author: Mattias Gaertner
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.LCL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
{ TTabSheet }
|
|
|
|
function TTabSheet.GetTabIndex: Integer;
|
|
begin
|
|
Result:=PageIndex;
|
|
end;
|
|
|
|
function TTabSheet.GetPageControl: TPageControl;
|
|
begin
|
|
if (Parent<>nil) and (Parent is TPageControl) then
|
|
Result:=TPageControl(Parent)
|
|
else
|
|
Result:=nil;
|
|
end;
|
|
|
|
procedure TTabSheet.SetPageControl(APageControl: TPageControl);
|
|
begin
|
|
if PageControl=APageControl then exit;
|
|
Parent:=PageControl;
|
|
end;
|
|
|
|
procedure TTabSheet.SetTabIndex(const AValue: Integer);
|
|
begin
|
|
PageIndex:=AValue;
|
|
end;
|
|
|
|
procedure TTabSheet.DoHide;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TTabSheet.DoShow;
|
|
begin
|
|
|
|
end;
|
|
|
|
constructor TTabSheet.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
ImageIndex:=0;
|
|
end;
|
|
|
|
destructor TTabSheet.Destroy;
|
|
begin
|
|
inherited Destroy;
|
|
end;
|
|
|
|
// included by comctrls.pp
|
|
|