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

git-svn-id: trunk@63037 -
This commit is contained in:
zeljko 2020-04-20 17:21:26 +00:00
parent 9f35847ffc
commit 6c9c260885

View File

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