mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 20:39:23 +02:00
Gtk3: fixed TGroupBox visible status at runtime. Patch by Anton Kavalenka. issue #36938
git-svn-id: trunk@63037 -
This commit is contained in:
parent
9f35847ffc
commit
6c9c260885
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user