FontChooser: Correctly handle focus when the layout changes.

[GB.FORM]
* NEW: Update control icons.
* BUG: FontChooser: Correctly handle focus when the layout changes.
This commit is contained in:
gambas 2021-03-22 22:59:52 +01:00
parent c2650ef40b
commit 66d4ea1c89
10 changed files with 2 additions and 1 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 238 B

After

Width:  |  Height:  |  Size: 247 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 386 B

After

Width:  |  Height:  |  Size: 404 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 320 B

After

Width:  |  Height:  |  Size: 327 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 428 B

After

Width:  |  Height:  |  Size: 738 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 711 B

After

Width:  |  Height:  |  Size: 886 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.1 KiB

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1 KiB

After

Width:  |  Height:  |  Size: 1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 748 B

After

Width:  |  Height:  |  Size: 757 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 881 B

After

Width:  |  Height:  |  Size: 890 B

View file

@ -624,6 +624,8 @@ Public Sub panBorder_BeforeArrange()
Dim bHasFocus As Boolean Dim bHasFocus As Boolean
bHasFocus = Me.HasFocus
If panBorder.H < (Desktop.Scale * 32) Then If panBorder.H < (Desktop.Scale * 32) Then
If tvwFamily.Visible Then If tvwFamily.Visible Then
@ -666,7 +668,6 @@ Public Sub panBorder_BeforeArrange()
RefreshExample RefreshExample
bHasFocus = Me.HasFocus
Me.Proxy = If(panFilter.Visible, txtFilter, cmbFamily) Me.Proxy = If(panFilter.Visible, txtFilter, cmbFamily)
If bHasFocus Then Me.SetFocus If bHasFocus Then Me.SetFocus