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

Gtk3: do not call LCLObject.ClientRectNeedsInterfaceUpdate from TGtk3GroupBox layout if we are updating bounds from lcl.

Browse Source
This commit is contained in:
zeljan1 2025-03-26 11:33:02 +01:00
parent 94fd4b65ea
commit 9829ddbc02
1 changed files with 2 additions and 10 deletions

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

@ -3465,7 +3465,7 @@ begin
if (uWidth <> HSize) or (uHeight <> VSize) then
PGtkLayout(aWidget)^.set_size(HSize, VSize);
if TGtk3Widget(Data).LCLObject.ClientRectNeedsInterfaceUpdate then
if not TGtk3Widget(Data).InUpdate and TGtk3Widget(Data).LCLObject.ClientRectNeedsInterfaceUpdate then
TGtk3Widget(Data).LCLObject.DoAdjustClientRectChange;
end;
@ -3484,6 +3484,7 @@ begin
PGtkLayout(FCentralWidget)^.set_size(1, 1);
g_signal_connect_data(FCentralWidget,'size-allocate',TGCallback(@GroupBoxLayoutSizeAllocate), Self, nil, G_CONNECT_DEFAULT);
Result^.show_all;
Result^.hide;
end;
function TGtk3GroupBox.getText: String;
@ -9936,12 +9937,6 @@ begin
g_signal_connect_data(fWidget,
'close', TGCallback(@Tgtk3DIalog.CloseCB), Self, nil, G_CONNECT_DEFAULT);
(* g_signal_connect_data(fWidget,
'key-press-event', TGCallback(@GTKDialogKeyUpDownCB), Self, nil, 0);
g_signal_connect_data(fWidget,
'key-release-event', TGCallback(@GTKDialogKeyUpDownCB), Self, nil, 0);*)
g_signal_connect_data(fWidget,
'realize', TGCallback(@Tgtk3Dialog.RealizeCB), Self, nil, G_CONNECT_DEFAULT);
end;
@ -10061,8 +10056,6 @@ begin
end;
end;
function TGtk3Dialog.CreateWidget(const Params: TCreateParams): PGtkWidget;
begin
FWidgetType := [wtWidget, wtDialog];
@ -10093,7 +10086,6 @@ begin
end;
constructor TGtk3FileDialog.Create(const ACommonDialog: TCommonDialog);
var
FileDialog: TFileDialog absolute ACommonDialog;
Action: TGtkFileChooserAction;