diff options
Diffstat (limited to 'libgtk_kylix/GTKExtCtrls.pas')
| -rw-r--r-- | libgtk_kylix/GTKExtCtrls.pas | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/libgtk_kylix/GTKExtCtrls.pas b/libgtk_kylix/GTKExtCtrls.pas index 0adfc1a..f288a18 100644 --- a/libgtk_kylix/GTKExtCtrls.pas +++ b/libgtk_kylix/GTKExtCtrls.pas @@ -117,11 +117,13 @@ type function GetShowTabs: boolean; function GetShowBorder: boolean; function GetScrollable: boolean; + function GetGroupName: String; procedure SetPageIndex(Value: integer); procedure SetTabPosition(Value: TGTKPosition); procedure SetShowTabs(Value: boolean); procedure SetShowBorder(Value: boolean); procedure SetScrollable(Value: boolean); + procedure SetGroupName(Value: String); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -138,6 +140,7 @@ type property ShowTabs: boolean read GetShowTabs write SetShowTabs; property ShowBorder: boolean read GetShowBorder write SetShowBorder; property Scrollable: boolean read GetScrollable write SetScrollable; + property GroupName: String read GetGroupName write SetGroupName; property OnSwitchPage: TNotifyEvent read FOnSwitchPage write FOnSwitchPage; end; @@ -537,6 +540,16 @@ begin Result := TGTKLabel.CreateFromWidget(Self, gtk_notebook_get_tab_label(PGtkNotebook(FWidget), gtk_notebook_get_nth_page(PGtkNotebook(FWidget), PageNo))); end; +function TGTKNotebook.GetGroupName: String; +begin + Result := String(gtk_notebook_get_group_name(PGtkNotebook(FWidget))); +end; + +procedure TGTKNotebook.SetGroupName(Value: String); +begin + gtk_notebook_set_group_name(PGtkNotebook(FWidget), PChar(Value)); +end; + (********************************************************************************************************************************) (********************************************************************************************************************************) procedure TGTKComboBox_changed(widget: PGtkComboBox; user_data: pgpointer); cdecl; |