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

Gtk3: fixed TGroupBox visible status at runtime. Patch by Anton Kavalenka. issue #36938

Browse Source 
git-svn-id: trunk@63037 -
This commit is contained in:
zeljko 2020-04-20 17:21:26 +00:00
parent 9f35847ffc
commit 6c9c260885
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1492,12 +1492,12 @@ begin
Msg.SizeType := Msg.SizeType or Size_SourceIsInterface;
if ACtl.WidgetType*[wtEntry,wtComboBox,wtGroupBox,wtScrollBar,wtSpinEdit]<>[] then
if ACtl.WidgetType*[wtEntry,wtComboBox,wtScrollBar,wtSpinEdit]<>[] then
begin
Msg.Width := ACtl.LCLObject.Width;//Word(NewSize.cx);
Msg.Height := ACtl.LCLObject.Height;//Word(NewSize.cy);
end else
if {ACtl is TGtk3Window} ACtl.WidgetType*[wtWindow,wtDialog,
if {ACtl is TGtk3Window} ACtl.WidgetType*[wtWindow,wtDialog,wtGroupBox,
{wtScrollingWinControl,}wtScrollingWin,wtNotebook,wtContainer]<>[] then
begin
Msg.Width := Word(NewSize.cx);
@ -3125,8 +3125,8 @@ begin
FHasPaint := True;
//dont use layout for now
FWidgetType := [wtWidget, wtContainer, wtGroupBox];
Result := TGtkFrame.new('');
// FCentralWidget := TGtkLayout.new(nil, nil);
Result := TGtkFrame.new(PChar(Self.LCLObject.Caption));
//FCentralWidget := TGtkLayout.new(nil,nil);
FCentralWidget := TGtkFixed.new;
PGtkBin(Result)^.add(FCentralWidget);
FCentralWidget^.set_has_window(True);