diff options
Diffstat (limited to 'prev/basicctrls_windows.c')
| -rw-r--r-- | prev/basicctrls_windows.c | 254 |
1 files changed, 254 insertions, 0 deletions
diff --git a/prev/basicctrls_windows.c b/prev/basicctrls_windows.c new file mode 100644 index 0000000..b33bce2 --- /dev/null +++ b/prev/basicctrls_windows.c @@ -0,0 +1,254 @@ +// 17 july 2014 + +#include "winapi_windows.h" +#include "_cgo_export.h" + +static LRESULT CALLBACK buttonSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) +{ + switch (uMsg) { + case msgCOMMAND: + if (HIWORD(wParam) == BN_CLICKED) { + buttonClicked((void *) data); + return 0; + } + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + case WM_NCDESTROY: + if ((*fv_RemoveWindowSubclass)(hwnd, buttonSubProc, id) == FALSE) + xpanic("error removing Button subclass (which was for its own event handler)", GetLastError()); + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + default: + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + } + xmissedmsg("Button", "buttonSubProc()", uMsg); + return 0; // unreached +} + +void setButtonSubclass(HWND hwnd, void *data) +{ + if ((*fv_SetWindowSubclass)(hwnd, buttonSubProc, 0, (DWORD_PTR) data) == FALSE) + xpanic("error subclassing Button to give it its own event handler", GetLastError()); +} + +static LRESULT CALLBACK checkboxSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) +{ + switch (uMsg) { + case msgCOMMAND: + if (HIWORD(wParam) == BN_CLICKED) { + WPARAM check; + + // we didn't use BS_AUTOCHECKBOX (see controls_windows.go) so we have to manage the check state ourselves + check = BST_CHECKED; + if (SendMessage(hwnd, BM_GETCHECK, 0, 0) == BST_CHECKED) + check = BST_UNCHECKED; + SendMessage(hwnd, BM_SETCHECK, check, 0); + checkboxToggled((void *) data); + return 0; + } + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + case WM_NCDESTROY: + if ((*fv_RemoveWindowSubclass)(hwnd, checkboxSubProc, id) == FALSE) + xpanic("error removing Checkbox subclass (which was for its own event handler)", GetLastError()); + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + default: + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + } + xmissedmsg("Checkbox", "checkboxSubProc()", uMsg); + return 0; // unreached +} + +void setCheckboxSubclass(HWND hwnd, void *data) +{ + if ((*fv_SetWindowSubclass)(hwnd, checkboxSubProc, 0, (DWORD_PTR) data) == FALSE) + xpanic("error subclassing Checkbox to give it its own event handler", GetLastError()); +} + +BOOL checkboxChecked(HWND hwnd) +{ + if (SendMessage(hwnd, BM_GETCHECK, 0, 0) == BST_UNCHECKED) + return FALSE; + return TRUE; +} + +void checkboxSetChecked(HWND hwnd, BOOL c) +{ + WPARAM check; + + check = BST_CHECKED; + if (c == FALSE) + check = BST_UNCHECKED; + SendMessage(hwnd, BM_SETCHECK, check, 0); +} + +static LRESULT CALLBACK textfieldSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) +{ + switch (uMsg) { + case msgCOMMAND: + if (HIWORD(wParam) == EN_CHANGE) { + textfieldChanged((void *) data); + return 0; + } + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + case WM_NCDESTROY: + if ((*fv_RemoveWindowSubclass)(hwnd, textfieldSubProc, id) == FALSE) + xpanic("error removing TextField subclass (which was for its own event handler)", GetLastError()); + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + default: + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + } + xmissedmsg("TextField", "textfieldSubProc()", uMsg); + return 0; // unreached +} + +void setTextFieldSubclass(HWND hwnd, void *data) +{ + if ((*fv_SetWindowSubclass)(hwnd, textfieldSubProc, 0, (DWORD_PTR) data) == FALSE) + xpanic("error subclassing TextField to give it its own event handler", GetLastError()); +} + +void textfieldSetAndShowInvalidBalloonTip(HWND hwnd, WCHAR *text) +{ + EDITBALLOONTIP ti; + + ZeroMemory(&ti, sizeof (EDITBALLOONTIP)); + ti.cbStruct = sizeof (EDITBALLOONTIP); + // this is required to show the error icon + // this probably should be localized... + ti.pszTitle = L"Invalid Input"; + ti.pszText = text; + ti.ttiIcon = TTI_ERROR; + if (SendMessageW(hwnd, EM_SHOWBALLOONTIP, 0, (LPARAM) (&ti)) == FALSE) + xpanic("error showing TextField.Invalid() balloon tip", GetLastError()); + if (MessageBeep(0xFFFFFFFF) == 0) + xpanic("error beeping in response to TextField.Invalid()", GetLastError()); +} + +void textfieldHideInvalidBalloonTip(HWND hwnd) +{ + if (SendMessageW(hwnd, EM_HIDEBALLOONTIP, 0, 0) == FALSE) + xpanic("error hiding TextField.Invalid() balloon tip", GetLastError()); +} + +// also good for Textbox +int textfieldReadOnly(HWND hwnd) +{ + return (GetWindowLongPtrW(hwnd, GWL_STYLE) & ES_READONLY) != 0; +} + +// also good for Textbox +void textfieldSetReadOnly(HWND hwnd, BOOL readonly) +{ + if (SendMessageW(hwnd, EM_SETREADONLY, (WPARAM) readonly, 0) == 0) + xpanic("error setting TextField/Textbox as read-only/not read-only", GetLastError()); +} + +static LRESULT CALLBACK groupSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) +{ + LRESULT lResult; + RECT r; + + if (sharedWndProc(hwnd, uMsg, wParam, lParam, &lResult)) + return lResult; + switch (uMsg) { + // don't do this on WM_WINDOWPOSCHANGING; weird redraw issues will happen + case WM_WINDOWPOSCHANGED: + // don't use the WINDOWPOS rect here; the coordinates of the controls have to be in real client coordinates + if (GetClientRect(hwnd, &r) == 0) + xpanic("error getting client rect of Group for resizing its child Control", GetLastError()); + groupResized((void *) data, r); + // and chain up + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + case WM_NCDESTROY: + if ((*fv_RemoveWindowSubclass)(hwnd, groupSubProc, id) == FALSE) + xpanic("error removing Group subclass (which was for its own event handler)", GetLastError()); + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + default: + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + } + xmissedmsg("Group", "groupSubProc()", uMsg); + return 0; // unreached +} + +void setGroupSubclass(HWND hwnd, void *data) +{ + if ((*fv_SetWindowSubclass)(hwnd, groupSubProc, 0, (DWORD_PTR) data) == FALSE) + xpanic("error subclassing Group to give it its own event handler", GetLastError()); +} + +static LRESULT CALLBACK updownSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) +{ + NMHDR *nmhdr = (NMHDR *) lParam; + + switch (uMsg) { + case msgNOTIFY: + switch (nmhdr->code) { + case UDN_DELTAPOS: + spinboxUpDownClicked((void *) data, (NMUPDOWN *) lParam); + return FALSE; // allow change + } + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + case WM_NCDESTROY: + if ((*fv_RemoveWindowSubclass)(hwnd, updownSubProc, id) == FALSE) + xpanic("error removing Spinbox up-down control subclass (which was for its own event handler)", GetLastError()); + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + default: + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + } + xmissedmsg("Spinbox up-down control", "updownSubProc()", uMsg); + return 0; // unreached +} + +HWND newUpDown(HWND prevUpDown, void *data) +{ + HWND hwnd; + HWND parent; + + parent = msgwin; // for the first up-down + if (prevUpDown != NULL) { + parent = GetParent(prevUpDown); + if (parent == NULL) + xpanic("error getting parent of old up-down in Spinbox resize for new up-down", GetLastError()); + if (DestroyWindow(prevUpDown) == 0) + xpanic("error destroying previous up-down in Spinbox resize", GetLastError()); + } + hwnd = CreateWindowExW(0, + UPDOWN_CLASSW, L"", + // no WS_VISIBLE; we set visibility ourselves + WS_CHILD | UDS_ALIGNRIGHT | UDS_ARROWKEYS | UDS_HOTTRACK | UDS_NOTHOUSANDS | UDS_SETBUDDYINT, + // this is important; it's necessary for autosizing to work + 0, 0, 0, 0, + parent, NULL, hInstance, NULL); + if (hwnd == NULL) + xpanic("error creating up-down control for Spinbox", GetLastError()); + if ((*fv_SetWindowSubclass)(hwnd, updownSubProc, 0, (DWORD_PTR) data) == FALSE) + xpanic("error subclassing Spinbox up-down control to give it its own event handler", GetLastError()); + return hwnd; +} + +static LRESULT CALLBACK spinboxEditSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) +{ + switch (uMsg) { + case msgCOMMAND: + if (HIWORD(wParam) == EN_CHANGE) { + spinboxEditChanged((void *) data); + return 0; + } + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + case WM_NCDESTROY: + if ((*fv_RemoveWindowSubclass)(hwnd, spinboxEditSubProc, id) == FALSE) + xpanic("error removing Spinbox edit control subclass (which was for its own event handler)", GetLastError()); + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + default: + return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); + } + xmissedmsg("Spinbox edit control", "spinboxEditSubProc()", uMsg); + return 0; // unreached +} + +void setSpinboxEditSubclass(HWND hwnd, void *data) +{ + if ((*fv_SetWindowSubclass)(hwnd, spinboxEditSubProc, 0, (DWORD_PTR) data) == FALSE) + xpanic("error subclassing Spinbox edit control to give it its own event handler", GetLastError()); +} + +// provided for cgo's benefit +LPWSTR xPROGRESS_CLASS = PROGRESS_CLASS; |