func WndProc(hwnd w32.HWND, msg uint, wparam, lparam uintptr) uintptr {
wnd := GetMsgHandler(hwnd)
if wnd == nil {
return uintptr(w32.DefWindowProc(hwnd, msg, wparam, lparam))
}
var rc uintptr
switch msg {
case w32.WM_LBUTTONDOWN, w32.WM_RBUTTONDOWN, w32.WM_MBUTTONDOWN:
wnd.button = wnd.button | buttonForDetail(msg)
var bpe wde.MouseDownEvent
bpe.Which = buttonForDetail(msg)
bpe.Where.X = int(lparam) & 0xFFFF
bpe.Where.Y = int(lparam>>16) & 0xFFFF
wnd.lastX = bpe.Where.X
wnd.lastY = bpe.Where.Y
wnd.events <- bpe
case w32.WM_LBUTTONUP, w32.WM_RBUTTONUP, w32.WM_MBUTTONUP:
wnd.button = wnd.button & ^buttonForDetail(msg)
var bpe wde.MouseUpEvent
bpe.Which = buttonForDetail(msg)
bpe.Where.X = int(lparam) & 0xFFFF
bpe.Where.Y = int(lparam>>16) & 0xFFFF
wnd.lastX = bpe.Where.X
wnd.lastY = bpe.Where.Y
wnd.events <- bpe
case w32.WM_MOUSEMOVE:
var mme wde.MouseMovedEvent
mme.Where.X = int(lparam) & 0xFFFF
mme.Where.Y = int(lparam>>16) & 0xFFFF
if wnd.lastX != wnd.noX {
mme.From.X = int(wnd.lastX)
mme.From.Y = int(wnd.lastY)
} else {
mme.From.X = mme.Where.X
mme.From.Y = mme.Where.Y
}
wnd.lastX = mme.Where.X
wnd.lastY = mme.Where.Y
if !wnd.trackMouse {
var tme w32.TRACKMOUSEEVENT
tme.CbSize = uint(unsafe.Sizeof(tme))
tme.DwFlags = w32.TME_LEAVE
tme.HwndTrack = hwnd
tme.DwHoverTime = w32.HOVER_DEFAULT
w32.TrackMouseEvent(&tme)
wnd.trackMouse = true
wnd.events <- wde.MouseEnteredEvent(mme)
} else {
if wnd.button == 0 {
wnd.events <- mme
} else {
var mde wde.MouseDraggedEvent
mde.MouseMovedEvent = mme
mde.Which = wnd.button
wnd.events <- mde
}
}
case w32.WM_MOUSELEAVE:
wnd.trackMouse = false
var wee wde.MouseExitedEvent
// TODO: get real position
wee.Where.Y = wnd.lastX
wee.Where.X = wnd.lastY
wnd.events <- wee
case w32.WM_KEYDOWN:
// TODO: letter
ke := wde.KeyEvent{
fmt.Sprintf("%d", wparam),
}
wnd.events <- wde.KeyDownEvent(ke)
kpe := wde.KeyTypedEvent{
KeyEvent: ke,
}
wnd.events <- kpe
case w32.WM_KEYUP:
// TODO: letter
wnd.events <- wde.KeyUpEvent{
fmt.Sprintf("%d", wparam),
}
case w32.WM_SIZE:
width := int(lparam) & 0xFFFF
height := int(lparam>>16) & 0xFFFF
wnd.buffer = NewDIB(image.Rect(0, 0, width, height))
wnd.events <- wde.ResizeEvent{width, height}
rc = w32.DefWindowProc(hwnd, msg, wparam, lparam)
case w32.WM_PAINT:
var paint w32.PAINTSTRUCT
hdc := w32.BeginPaint(hwnd, &paint)
wnd.blitImage(hdc)
w32.EndPaint(hwnd, &paint)
rc = w32.DefWindowProc(hwnd, msg, wparam, lparam)
case w32.WM_CLOSE:
UnRegMsgHandler(hwnd)
w32.DestroyWindow(hwnd)
wnd.events <- wde.CloseEvent{}
case w32.WM_DESTROY:
w32.PostQuitMessage(0)
default:
rc = w32.DefWindowProc(hwnd, msg, wparam, lparam)
}
return rc
}
// WinEvent proccess a win32 event.
func winEvent(id w32.HWND, event uint32, wParam, lParam uintptr) uintptr {
w, ok := widgetTable[id]
if !ok {
return w32.DefWindowProc(id, event, wParam, lParam)
}
switch event {
case w32.WM_CHAR:
r := utf16.Decode([]uint16{uint16(loWord(uint32(wParam)))})
if len(r) == 0 {
break
}
key := r[0]
if key == 0 {
break
}
if (key == '\b') || (key == '\t') || (key == '\n') || (key == '\r') {
break
}
ev := sparta.KeyEvent{
Key: sparta.Key(key),
State: getState(),
}
x, y, _ := w32.GetCursorPos()
ev.Loc.X, ev.Loc.Y, _ = w32.ScreenToClient(id, x, y)
w.OnEvent(ev)
case w32.WM_CLOSE:
if w.Property(sparta.Parent) != nil {
break
}
w.OnEvent(sparta.CloseEvent{})
case w32.WM_KEYDOWN:
key := getKeyValue(wParam)
if key == 0 {
break
}
if (key & sparta.KeyNoChar) == 0 {
break
}
ev := sparta.KeyEvent{
Key: key,
State: getState(),
}
x, y, _ := w32.GetCursorPos()
ev.Loc.X, ev.Loc.Y, _ = w32.ScreenToClient(id, x, y)
w.OnEvent(ev)
case w32.WM_KEYUP:
key := getKeyValue(wParam)
if key == 0 {
break
}
ev := sparta.KeyEvent{
Key: -key,
State: getState(),
}
x, y, _ := w32.GetCursorPos()
ev.Loc.X, ev.Loc.Y, _ = w32.ScreenToClient(id, x, y)
w.OnEvent(ev)
case w32.WM_LBUTTONDOWN, w32.WM_RBUTTONDOWN, w32.WM_MBUTTONDOWN:
ev := sparta.MouseEvent{
Button: getButton(event),
State: getState(),
Loc: image.Pt(getXLParam(lParam), getYLParam(lParam)),
}
w.OnEvent(ev)
w.Focus()
case w32.WM_LBUTTONUP, w32.WM_RBUTTONUP, w32.WM_MBUTTONUP:
ev := sparta.MouseEvent{
Button: -getButton(event),
State: getState(),
Loc: image.Pt(getXLParam(lParam), getYLParam(lParam)),
}
w.OnEvent(ev)
case w32.WM_MOUSEMOVE:
ev := sparta.MouseEvent{
Loc: image.Pt(getXLParam(lParam), getYLParam(lParam)),
}
w.OnEvent(ev)
case w32.WM_MOUSEWHEEL:
ev := sparta.MouseEvent{
Button: sparta.MouseWheel,
}
if getWheelDeltaWParam(wParam) < 0 {
ev.Button = -sparta.MouseWheel
}
ev.Loc.X, ev.Loc.Y, _ = w32.ScreenToClient(id, getXLParam(lParam), getYLParam(lParam))
w = propagateWheel(w, ev.Loc)
w.OnEvent(ev)
case w32.WM_MOVE:
win := w.Window().(*window)
win.pos.X, win.pos.Y = int(loWord(uint32(lParam))), int(hiWord(uint32(lParam)))
case w32.WM_PAINT:
win := w.Window().(*window)
ps := &w32.PAINTSTRUCT{}
win.dc = w32.BeginPaint(id, ps)
win.isPaint = true
w32.SetBkMode(win.dc, w32.TRANSPARENT)
w32.SetBkColor(win.dc, win.back.color)
// "clear" the area
w32.SelectObject(win.dc, w32.HGDIOBJ(win.back.brush))
w32.SelectObject(win.dc, w32.HGDIOBJ(win.back.pen))
w32.Rectangle(win.dc, int(ps.RcPaint.Left), int(ps.RcPaint.Top), int(ps.RcPaint.Right), int(ps.RcPaint.Bottom))
w32.SelectObject(win.dc, w32.HGDIOBJ(win.fore.brush))
w32.SelectObject(win.dc, w32.HGDIOBJ(win.fore.pen))
w32.SelectObject(win.dc, w32.HGDIOBJ(winFont))
w32.SetTextColor(win.dc, win.fore.color)
win.curr = win.fore
ev := sparta.ExposeEvent{image.Rect(int(ps.RcPaint.Left), int(ps.RcPaint.Top), int(ps.RcPaint.Right), int(ps.RcPaint.Bottom))}
w.OnEvent(ev)
w32.EndPaint(id, ps)
win.isPaint = false
win.dc = 0
case w32.WM_SIZE:
win := w.Window().(*window)
ev := sparta.ConfigureEvent{image.Rect(win.pos.X, win.pos.Y, win.pos.X+int(loWord(uint32(lParam))), win.pos.Y+int(hiWord(uint32(lParam))))}
w.OnEvent(ev)
case w32.WM_USER:
src, ok := widgetTable[w32.HWND(wParam)]
if !ok {
src = nil
}
ev := sparta.CommandEvent{
Source: src,
Value: int(int32(lParam)),
}
w.OnEvent(ev)
default:
return w32.DefWindowProc(id, event, wParam, lParam)
}
return 0
}