paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:57:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: implemented closing tab when close button clicked.

Browse Source
This commit is contained in:
zeljan1 2025-03-30 19:32:23 +02:00
parent 82df55c246
commit 0bad3fa854
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -419,11 +419,13 @@ type
FImageWidget: PGtkImage; FImageWidget: PGtkImage;
FPageLabel: PGtkLabel; FPageLabel: PGtkLabel;
FCloseButton: PGtkButton; FCloseButton: PGtkButton;
strict private
function GetCloseButtonVisible: boolean; function GetCloseButtonVisible: boolean;
procedure SetCloseButtonVisible(AValue: boolean); procedure SetCloseButtonVisible(AValue: boolean);
strict private
class procedure TabSheetLayoutSizeAllocate(AWidget: PGtkWidget; class procedure TabSheetLayoutSizeAllocate(AWidget: PGtkWidget;
AGdkRect: PGdkRectangle; Data: gpointer); cdecl; static; AGdkRect: PGdkRectangle; Data: gpointer); cdecl; static;
class procedure TabCloseClicked(aButton: PGtkButton; aData: gPointer);
cdecl; static;
protected protected
procedure DoBeforeLCLPaint; override; procedure DoBeforeLCLPaint; override;
procedure setText(const AValue: String); override; procedure setText(const AValue: String); override;
@ -5038,6 +5040,12 @@ begin
TGtk3Widget(Data).LCLObject.DoAdjustClientRectChange; TGtk3Widget(Data).LCLObject.DoAdjustClientRectChange;
end; end;
class procedure TGtk3Page.TabCloseClicked(aButton: PGtkButton; aData: gPointer); cdecl;
begin
with TCustomTabControl(TCustomPage(TGtk3Page(aData).LCLObject).Parent) do
DoCloseTabClicked(TCustomPage(TGtk3Page(aData).LCLObject));
end;
function TGtk3Page.CreateWidget(const Params: TCreateParams): PGtkWidget; function TGtk3Page.CreateWidget(const Params: TCreateParams): PGtkWidget;
var var
image: PGtkImage; image: PGtkImage;
@ -5076,6 +5084,7 @@ begin
gtk_layout_set_size(PGtkLayout(FCentralWidget), 1, 1); gtk_layout_set_size(PGtkLayout(FCentralWidget), 1, 1);
g_signal_connect_data(FCentralWidget,'size-allocate',TGCallback(@TabSheetLayoutSizeAllocate), Self, nil, G_CONNECT_DEFAULT); g_signal_connect_data(FCentralWidget,'size-allocate',TGCallback(@TabSheetLayoutSizeAllocate), Self, nil, G_CONNECT_DEFAULT);
g_signal_connect_data(FCloseButton, 'clicked', TGCallback(@TabCloseClicked), Self, nil, G_CONNECT_DEFAULT);
end; end;
procedure TGtk3Page.DestroyWidget; procedure TGtk3Page.DestroyWidget;