paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 12:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

added setText for gtk3 TPage. still need to set initial page value correctly

Browse Source 
git-svn-id: trunk@43669 -
This commit is contained in:
andrew 2014-01-07 05:55:09 +00:00
parent 733f28950f
commit de64e0a5e3
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -347,6 +347,7 @@ type
TGtk3Page = class(TGtk3Container)
protected
procedure setText(AValue: String); override;
function CreateWidget(const Params: TCreateParams):PGtkWidget; override;
public
function getClientRect: TRect; override;
@ -3836,6 +3837,17 @@ end;
{ TGtk3Page }
procedure TGtk3Page.setText(AValue: String);
var
Parent: TGtk3NoteBook;
begin
Parent := TGtk3NoteBook(getParent);
if Parent <> nil then
begin
Parent.SetTabLabelText(TCustomPage(LCLObject), AValue);
end;
end;
function TGtk3Page.CreateWidget(const Params: TCreateParams): PGtkWidget;
begin
FWidgetType := FWidgetType + [wtContainer];
@ -3844,6 +3856,7 @@ begin
PGtkHBox(Result)^.pack_start(FCentralWidget, True , True, 0);
PGtkFixed(FCentralWidget)^.set_has_window(True);
// PGtkFixed(FCentralWidget)^.set_can_focus(True);
end;
function TGtk3Page.getClientRect: TRect;