63 lines
1.8 KiB
C
63 lines
1.8 KiB
C
|
// 17 july 2014
|
||
|
|
|
||
|
|
#include "winapi_windows.h"
|
||
|
|
#include "_cgo_export.h"
|
||
|
|
|
||
|
|
HWND newControl(LPWSTR class, DWORD style, DWORD extstyle)
|
||
|
|
{
|
||
|
|
HWND hwnd;
|
||
|
|
|
||
|
|
hwnd = CreateWindowExW(
|
||
|
|
extstyle,
|
||
|
|
class, L"",
|
||
|
|
style | WS_CHILD | WS_VISIBLE,
|
||
|
|
CW_USEDEFAULT, CW_USEDEFAULT,
|
||
|
|
CW_USEDEFAULT, CW_USEDEFAULT,
|
||
|
|
// the following has the consequence of making the control message-only at first
|
||
|
|
// this shouldn't cause any problems... hopefully not
|
||
|
|
// but see the msgwndproc() for caveat info
|
||
|
|
// also don't use low control IDs as they will conflict with dialog boxes (IDCANCEL, etc.)
|
||
|
|
msgwin, (HMENU) 100, hInstance, NULL);
|
||
|
|
if (hwnd == NULL)
|
||
|
|
xpanic("error creating control", GetLastError());
|
||
|
|
return hwnd;
|
||
|
|
}
|
||
|
|
|
||
|
|
void controlSetParent(HWND control, HWND parent)
|
||
|
|
{
|
||
|
|
if (SetParent(control, parent) == NULL)
|
||
|
|
xpanic("error changing control parent", GetLastError());
|
||
|
|
}
|
||
|
|
|
||
|
|
void controlSetControlFont(HWND which)
|
||
|
|
{
|
||
|
|
SendMessageW(which, WM_SETFONT, (WPARAM) controlFont, TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
void moveWindow(HWND hwnd, int x, int y, int width, int height)
|
||
|
|
{
|
||
|
|
if (MoveWindow(hwnd, x, y, width, height, TRUE) == 0)
|
||
|
|
xpanic("error setting window/control rect", GetLastError());
|
||
|
|
}
|
||
|
|
|
||
|
|
LONG controlTextLength(HWND hwnd, LPWSTR text)
|
||
|
|
{
|
||
|
|
HDC dc;
|
||
|
|
HFONT prev;
|
||
|
|
SIZE size;
|
||
|
|
|
||
|
|
dc = GetDC(hwnd);
|
||
|
|
if (dc == NULL)
|
||
|
|
xpanic("error getting DC of control for text length", GetLastError());
|
||
|
|
prev = SelectObject(dc, controlFont);
|
||
|
|
if (prev == NULL)
|
||
|
|
xpanic("error setting control font to DC for text length", GetLastError());
|
||
|
|
if (GetTextExtentPoint32W(dc, text, wcslen(text), &size) == 0)
|
||
|
|
xpanic("error actually getting text length", GetLastError());
|
||
|
|
if (SelectObject(dc, prev) != controlFont)
|
||
|
|
xpanic("error restoring previous control font to DC for text length", GetLastError());
|
||
|
|
if (ReleaseDC(hwnd, dc) == 0)
|
||
|
|
xpanic("error releasing DC of control for text length", GetLastError());
|
||
|
|
return size.cx;
|
||
|
|
}
|