mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-17 01:01:01 +01:00
95 lines
3.2 KiB
PHP
95 lines
3.2 KiB
PHP
{%MainUnit ../extctrls.pp}
|
|
{******************************************************************************
|
|
TNotebook
|
|
******************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* 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. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
function TNotebook.GetActiveNotebookPageComponent: TPage;
|
|
begin
|
|
Result:=TPage(GetActiveNotebookPageComponent);
|
|
end;
|
|
|
|
function TNotebook.GetNoteBookPage(Index: Integer): TPage;
|
|
begin
|
|
Result:=TPage(GetPage(Index));
|
|
end;
|
|
|
|
procedure TNotebook.SetActiveNotebookPageComponent(const AValue: TPage);
|
|
begin
|
|
SetActivePageComponent(AValue);
|
|
end;
|
|
|
|
{------------------------------------------------------------------------------
|
|
TNotebook Constructor
|
|
------------------------------------------------------------------------------}
|
|
constructor TNotebook.Create(TheOwner: TComponent);
|
|
begin
|
|
PageClass:=TPage;
|
|
inherited Create(TheOwner);
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.6 2004/04/10 17:58:57 mattias
|
|
implemented mainunit hints for include files
|
|
|
|
Revision 1.5 2003/09/20 13:27:49 mattias
|
|
varois improvements for ParentColor from Micha
|
|
|
|
Revision 1.4 2003/08/26 14:33:40 mattias
|
|
implemented component tree for OI
|
|
|
|
Revision 1.3 2003/08/20 15:06:57 mattias
|
|
implemented Build+Run File
|
|
|
|
Revision 1.2 2002/05/10 06:05:55 lazarus
|
|
MG: changed license to LGPL
|
|
|
|
Revision 1.1 2000/07/13 10:28:27 michael
|
|
+ Initial import
|
|
|
|
Revision 1.2 2000/06/16 19:11:00 lazarus
|
|
Added TSpinedit and TNotebooK
|
|
Shane
|
|
|
|
Revision 1.1 2000/04/02 20:49:56 lazarus
|
|
MWE:
|
|
Moved lazarus/lcl/*.inc files to lazarus/lcl/include
|
|
|
|
Revision 1.7 2000/01/04 19:19:56 lazarus
|
|
Modified notebook.inc so it works. Don't need tabnotbk.pp anymore...
|
|
|
|
Shane
|
|
|
|
Revision 1.6 1999/09/30 21:59:03 lazarus
|
|
MWE: Fixed TNoteBook problems
|
|
Modifications: A few
|
|
- Removed some debug messages
|
|
+ Added some others
|
|
* changed fixed widged of TPage. Code is still broken.
|
|
+ TWinControls are also added to the Controls collection
|
|
+ Added TControl.Controls[] property
|
|
|
|
Revision 1.5 1999/09/22 19:09:18 lazarus
|
|
Added some trace info for the TNotebook problem.
|
|
|
|
Revision 1.4 1999/08/04 05:22:23 lazarus
|
|
Moved TCustomNotebook code to customnotebook.inc unit. Kept methods
|
|
specific to TNotebook in this unit. CAW
|
|
|
|
}
|
|
|