paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Support PageControl's all 4 TabPosition values. Issue #38809, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@65074 -
This commit is contained in:
juha 2021-04-30 20:59:24 +00:00
parent cec9469511
commit 8d82fd5325
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -383,6 +383,7 @@ type
protected
function CreateWidget(const Params: TCreateParams):PGtkWidget; override;
public
procedure InitializeWidget;override;
function getClientRect: TRect; override;
function getPagesCount: integer;
procedure InsertPage(ACustomPage: TCustomPage; AIndex: Integer);
@ -3318,12 +3319,7 @@ begin
FCentralWidget := TGtkFixed.new;
PGtkBin(Result)^.add(FCentralWidget);
FCentralWidget^.set_has_window(True);
{fWidgetRGBA[0].R:=0.8;
fWidgetRGBA[0].Alpha:=0.7;
PgtkFrame(Result)^.override_color(GTK_STATE_NORMAL,@Self.FWidgetRGBA[0]);}
// nil resets color to gtk default
//FWidget^.override_background_color(GTK_STATE_FLAG_NORMAL, nil);
PgtkFrame(result)^.set_label_align(0.1,0.5);
end;
function TGtk3GroupBox.getText: String;
@ -4578,6 +4574,12 @@ begin
// g_signal_connect_data(FCentralWidget,'select-page', TGCallback(@GtkNotebookSelectPage), Self, nil, 0);
end;
procedure TGtk3NoteBook.InitializeWidget;
begin
inherited;
SetTabPosition(TCustomTabControl(LCLObject).TabPosition);
end;
function TGtk3NoteBook.getClientRect: TRect;
var
AAlloc: TGtkAllocation;