luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

TabPanel: Fix container layout when 'ShowTabBar' property is false.

Browse source 
[GB.FORM]
* BUG: TabPanel: Fix container layout when 'ShowTabBar' property is false.
This commit is contained in:
Benoît Minisini 2022-12-20 01:37:28 +01:00
parent 89d941397b
commit c6e12e2ea1
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
comp/src/gb.form/.src/TabPanel/TabPanel.class
View file

@ -244,6 +244,7 @@ Private Sub UpdateLayout()
Dim X As Integer
Dim PL, PR As Integer
Dim Y As Integer
Dim HT As Integer
If $bUpdateLayout Then Return
$bUpdateLayout = True
@ -252,9 +253,14 @@ Private Sub UpdateLayout()
W = Me.W
H = TabBarSize_Read()
$hTabBar.H = H + 1
If H Then
HT = H + 1
$hTabBar.H = HT
Else
HT = 0
Endif
Y = If($iOrientation = Align.Top, 0, Me.H - $hTabBar.H)
Y = If($iOrientation = Align.Top, 0, Me.H - HT)
If $hClosePanel Then
If W >= H And If H > 0 Then
@ -293,12 +299,12 @@ Private Sub UpdateLayout()
Select Case $iOrientation
Case Align.Top
$hTabBar.Move(X, 0, W, $hTabBar.H)
$hPanel.Move(0, $hTabBar.H, Me.W, Me.H - $hTabBar.H)
$hTabBar.Move(X, 0, W, HT)
$hPanel.Move(0, HT, Me.W, Me.H - HT)
'$hTabBar.Next = $hPanel
Case Align.Bottom
$hTabBar.Move(X, Me.H - $hTabBar.H, W, $hTabBar.H)
$hPanel.Move(0, 0, Me.W, Me.H - $hTabBar.H)
$hTabBar.Move(X, Me.H - HT, W, HT)
$hPanel.Move(0, 0, Me.W, Me.H - HT)
'Me._Arrangement = Arrange.Vertical
'$hPanel.Next = $hTabBar
End Select