Class tTabbedNotebook95 (unit Tabs95)

Inherits from

TCustomControl

************ tTabbedNotebook95

Constructors


constructor Create(AOwner: TComponent);

procedure CreateParams(var Params: TCreateParams); override;

************ tTabbedNotebook95



Functions

destructor Destroy;


function GetIndexForPage(const PageName: String): Integer;


procedure AlignControls(AControl: TControl; var Rect: TRect);


function GetActivePage : String;


function GetMainHintIsZero : boolean;


function GetOrientation : TOrientation;


function GetPageIndex : Integer;


function GetPages : tStrings;

Notebook.

function GetTabHeight : integer;


function GetTabHints : TStrings;


function GetTabSpacing : integer;


procedure Loaded;

procedure CMTabFontChanged(var Message:TMessage);message CM_TABFONTCHANGED; procedure ReadState(Reader: TReader); override; procedure WriteComponents(Writer: TWriter); override;

if csDesigning in ComponentState then begin Notebook.


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure Paint;


procedure SetActivePage (Value : String);


procedure SetMainHintIsZero(Value : boolean);


procedure SetName(const NewName: TComponentName);


procedure SetOrientation (Value : TOrientation);


procedure SetPageIndex(Value: Integer);


procedure SetPages (Value : tStrings);


procedure SetTabHeight(Value : integer);


procedure SetTabHints(List : TStrings);


procedure SetTabSpacing(Value : integer);


Properties

property About : TAboutMeProperty

property TopFont: TFont; procedure TabFontChanged(Sender: TObject);

property ActivePage : string


property Align :


property Enabled :


property Font :


property Height :


property MainHintIsZero : boolean


property Orientation : TOrientation


property PageIndex : Integer


property Pages : TStrings


property ParentShowHint :

property TabsPerRow: Integer default 3; property TabFont: TFont;

property ShowHint :


property TabHeight : integer


property TabHints : TStrings


property TabOrder :


property TabSpacing : integer


property TabStop :


property Visible :


property Width :


Events

event OnClick :


event OnEnter :

property OnChange: TPageChangeEvent;

event OnExit :


Variables

FAbout : TAboutMeProperty;


Notebook : tNotebook;


TabSet : tTabSet95;



Constructors


constructor Create(AOwner: TComponent);

procedure CreateParams(var Params: TCreateParams); override;

************ tTabbedNotebook95


Functions


destructor Destroy;


function GetIndexForPage(const PageName: String): Integer;


procedure AlignControls(AControl: TControl; var Rect: TRect);


function GetActivePage : String;


function GetMainHintIsZero : boolean;


function GetOrientation : TOrientation;


function GetPageIndex : Integer;


function GetPages : tStrings;

Notebook.PageIndex := Value;


function GetTabHeight : integer;


function GetTabHints : TStrings;


function GetTabSpacing : integer;


procedure Loaded;

procedure CMTabFontChanged(var Message:TMessage);message CM_TABFONTCHANGED; procedure ReadState(Reader: TReader); override; procedure WriteComponents(Writer: TWriter); override;

if csDesigning in ComponentState then begin Notebook.Name := 'NB'+Name; TabSet.Name := 'TS'+Name; end;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure Paint;


procedure SetActivePage (Value : String);


procedure SetMainHintIsZero(Value : boolean);


procedure SetName(const NewName: TComponentName);


procedure SetOrientation (Value : TOrientation);


procedure SetPageIndex(Value: Integer);


procedure SetPages (Value : tStrings);


procedure SetTabHeight(Value : integer);


procedure SetTabHints(List : TStrings);


procedure SetTabSpacing(Value : integer);


Properties


property About : TAboutMeProperty

property TopFont: TFont; procedure TabFontChanged(Sender: TObject);


property ActivePage : string


property Align :


property Enabled :


property Font :


property Height :


property MainHintIsZero : boolean


property Orientation : TOrientation


property PageIndex : Integer


property Pages : TStrings


property ParentShowHint :

property TabsPerRow: Integer default 3; property TabFont: TFont;


property ShowHint :


property TabHeight : integer


property TabHints : TStrings


property TabOrder :


property TabSpacing : integer


property TabStop :


property Visible :


property Width :


Events


event OnClick :


event OnEnter :

property OnChange: TPageChangeEvent;


event OnExit :


Variables


FAbout : TAboutMeProperty;


Notebook : tNotebook;


TabSet : tTabSet95;