paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 01:08:12 +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;
FPageLabel: PGtkLabel;
FCloseButton: PGtkButton;
strict private
function GetCloseButtonVisible: boolean;
procedure SetCloseButtonVisible(AValue: boolean);
strict private
class procedure TabSheetLayoutSizeAllocate(AWidget: PGtkWidget;
AGdkRect: PGdkRectangle; Data: gpointer); cdecl; static;
class procedure TabCloseClicked(aButton: PGtkButton; aData: gPointer);
cdecl; static;
protected
procedure DoBeforeLCLPaint; override;
procedure setText(const AValue: String); override;
@ -5038,6 +5040,12 @@ begin
TGtk3Widget(Data).LCLObject.DoAdjustClientRectChange;
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;
var
image: PGtkImage;
@ -5076,6 +5084,7 @@ begin
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(FCloseButton, 'clicked', TGCallback(@TabCloseClicked), Self, nil, G_CONNECT_DEFAULT);
end;
procedure TGtk3Page.DestroyWidget;