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

Welcome dialog: Fix project items layout.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Welcome dialog: Fix project items layout.
This commit is contained in:
Benoît Minisini 2022-08-04 00:11:54 +02:00
parent c2a2b60790
commit bd94c90721
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app/src/gambas3/.src/FMain.class
View file

@ -2709,9 +2709,9 @@ Public Sub Form_Resize()
If dwgWelcome.Visible Then
DS = Desktop.Scale
W = frmWelcome.GetFixedWidth() + DS * CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + DS * 3 + Style.ScrollbarSize + Style.ScrollbarSpacing + 3 + dwgWelcome.Padding * 2
If W > Me.ClientW Then W = Max(Me.ClientW, DS * 70)
H = Max(DS * 60, Me.ClientH)
W = frmWelcome.GetFixedWidth() + DS * CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + DS * 3 + Style.ScrollbarSize + Style.ScrollbarSpacing + dwgWelcome.Padding * 2
If W > Me.ClientW Then W = Me.ClientH 'Min(Me.ClientW, DS * 70)
H = Me.ClientH
dwgWelcome.Move((Me.ClientW - W) \ 2, (Me.ClientH - H) \ 2, W, H)
Endif

2
app/src/gambas3/.src/Welcome/FWelcome.class
View file

@ -439,7 +439,7 @@ Public Sub panList_Arrange()
Dim iArr As Integer
iArr = If(panList.W >= Desktop.Scale * 70, Arrange.Row, Arrange.Vertical)
iArr = If(panList.W >= (Desktop.Scale * (CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + 3) + Style.ScrollbarSize + Style.ScrollbarSpacing), Arrange.Row, Arrange.Vertical)
'Debug iArr;; panList.W;; Desktop.Scale * 64
$hRecent.SetArrangement(iArr)
$hExample.SetArrangement(iArr)