FontChooser: Correctly handle focus when the layout changes.
[GB.FORM] * NEW: Update control icons. * BUG: FontChooser: Correctly handle focus when the layout changes.
Before Width: | Height: | Size: 238 B After Width: | Height: | Size: 247 B |
Before Width: | Height: | Size: 386 B After Width: | Height: | Size: 404 B |
Before Width: | Height: | Size: 320 B After Width: | Height: | Size: 327 B |
Before Width: | Height: | Size: 428 B After Width: | Height: | Size: 738 B |
Before Width: | Height: | Size: 711 B After Width: | Height: | Size: 886 B |
Before Width: | Height: | Size: 1.1 KiB After Width: | Height: | Size: 1.1 KiB |
Before Width: | Height: | Size: 1 KiB After Width: | Height: | Size: 1 KiB |
Before Width: | Height: | Size: 748 B After Width: | Height: | Size: 757 B |
Before Width: | Height: | Size: 881 B After Width: | Height: | Size: 890 B |
|
@ -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
|
||||||
|
|
||||||
|
|