Class tTabbedNotebook95 (unit Tabs95) |
Inherits from
TCustomControl
************ tTabbedNotebook95
constructor Create(AOwner: TComponent);
- procedure CreateParams(var Params: TCreateParams); override;
************ tTabbedNotebook95
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);
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 :
event OnClick :
event OnEnter :
property OnChange: TPageChangeEvent;
event OnExit :
FAbout : TAboutMeProperty;
Notebook : tNotebook;
TabSet : tTabSet95;
constructor Create(AOwner: TComponent);
procedure CreateParams(var Params: TCreateParams); override;
************ tTabbedNotebook95
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);
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 :
event OnClick :
event OnEnter :
property OnChange: TPageChangeEvent;
event OnExit :
FAbout : TAboutMeProperty;
Notebook : tNotebook;
TabSet : tTabSet95;