Made TextFields properly horizontally scrollable on Windows.

This commit is contained in:
Pietro Gagliardi 2014-07-26 07:02:19 -04:00
parent 4515849e22
commit 4c4235465e
1 changed files with 2 additions and 2 deletions

View File

@ -134,8 +134,8 @@ var editclass = toUTF16("EDIT")
func startNewTextField(style C.DWORD) *textField {
w := newWidget(editclass,
style | C.ES_LEFT | C.ES_NOHIDESEL | C.WS_BORDER | C.WS_TABSTOP,
C.WS_EX_CLIENTEDGE)
style | C.ES_AUTOHSCROLL | C.ES_LEFT | C.ES_NOHIDESEL | C.WS_BORDER | C.WS_TABSTOP,
C.WS_EX_CLIENTEDGE) // shows visual style-themed edit control borders (TODO get credit from old source)
C.controlSetControlFont(w.hwnd)
return &textField{
widgetbase: w,