FormBase: Try to fix scrolling problems with initially focused descendant

1 files changed, 15 insertions, 0 deletions

diff --git a/form.go b/form.go
index 52084404..dd8bad4d 100644
--- a/form.go
+++ b/form.go
@@ -396,6 +396,21 @@ func (fb *FormBase) Run() int {
 
 	fb.SetBounds(fb.Bounds())
 
+	// Some widgets perform weird scrolling stunts, when initially focused.
+	// We try to fix that here and hope for the best.
+	if hwnd := win.GetFocus(); hwnd != 0 {
+		if window := windowFromHandle(hwnd); window != nil {
+			fb.ForEachDescendant(func(widget Widget) bool {
+				if widget.Handle() != hwnd && widget.SetFocus() == nil {
+					window.SetFocus()
+					return false
+				}
+
+				return true
+			})
+		}
+	}
+
 	var msg win.MSG
 
 	if processMessageProc != 0 {