Question

我正在为Windows API进行Lua绑定。到目前为止，我已经能够创建一个带有列表框控件的基本窗口：

require('Alien')
package.path = 'libs\\?.lua;libs\\?\\init.lua;' .. package.path

local function printf(...) io.write(string.format(...)) end

Windows = require('Windows')
local W = Windows

print("loaded OK")
print("Command line=", W.GetCommandLine())


local windowClassName = "testWindow"
local windowClass, window
local hInstance = assert(W.GetModuleHandle(nil))

assert(W.WM_CREATE)
assert(W.WM_CLOSE)
assert(W.WM_DESTROY)
assert(W.DefWindowProc)
assert(W.DestroyWindow)
assert(W.PostQuitMessage)

local msgID = {}
for k, v in pairs(Windows) do
    if k:match('^WM_') then msgID[v] = k end
end

local function wndProc(hWnd, msg, wParam, lParam)
    local id = msgID[msg] or ('%08X'):format(msg)
    printf('wndProc(%08X, %20s, %08X, %08X\n',
        hWnd,id, wParam, lParam)

    if msg == W.WM_CREATE then
        printf("window %08X create\n", hWnd)

    elseif msg == W.WM_CLOSE   then W.DestroyWindow(hWnd)
    elseif msg == W.WM_DESTROY then W.PostQuitMessage(0)
    else return W.DefWindowProc(hWnd, msg, wParam, lParam)
    end
    return 0
end


local wndProcCB = alien.callback(wndProc,
    assert(W.LRESULT), assert(W.HWND),
    assert(W.UINT), assert(W.WPARAM), assert(W.LPARAM))


windowClass = assert(W.WNDCLASSEX:new {
    cbSize        = assert(W.WNDCLASSEX.size),
    style         = bit.bor(W.CS_HREDRAW, W.CS_VREDRAW),
    lpfnWndProc   = assert(wndProcCB),
    cbClsExtra    = 0,
    cbWndExtra    = 0,
    hInstance     = assert(hInstance),
    hIcon         = nil,
    hCursor       = nil,
    hbrBackground = assert(W.COLOR_APPWORKSPACE)+1,
    lpszMenuName  = nil,
    lpszClassName = assert(windowClassName),
    hIconSm       = nil,
})
assert(W.RegisterClassEx(windowClass))


local dwExStyle = bit.bor(
    W.WS_EX_TOOLWINDOW,
    W.WS_EX_OVERLAPPEDWINDOW)

local dwStyle = bit.bor(
    W.WS_OVERLAPPEDWINDOW,
    W.WS_CLIPSIBLINGS,
    W.WS_CLIPCHILDREN)

window = assert(W.CreateWindowEx(
    assert(dwExStyle),        --dwExStyle
    assert(windowClassName),  --lpClassName
    "Test Window",            --lpWindowName
    assert(dwStyle),          --dwStyle
    assert(W.CW_USEDEFAULT),  --x
    assert(W.CW_USEDEFAULT),  --y
    420, 314,         --width, height
    nil, nil, assert(hInstance), nil)) --hWndParent, hMenu, hInstance, lpParam


local SWP_SHOW_ONLY = bit.bor(
    W.SWP_ASYNCWINDOWPOS,
    W.SWP_SHOWWINDOW,
    W.SWP_NOACTIVATE,
    W.SWP_NOMOVE,
    W.SWP_NOSIZE,
    W.SWP_NOZORDER)
W.SetWindowPos(assert(window), nil, 0, 0, 0, 0, assert(SWP_SHOW_ONLY))


local msg = assert(W.MSG:new())
while W.GetMessage(msg, 0, 0, 0) do
    W.TranslateMessage(msg)
    W.DispatchMessage(msg)
end

它创建并显示一个窗口，但窗口没有正确重绘。从控制台输出我可以看到很多WM_PAINT，WM_ERASEBKGND，WM_NCPAINT等，我传递给DefWindowProc，但它似乎没有处理它们。

屏幕截图示例： Example

当窗口首次出现时，它要么拍摄背后的任何图像（如本例所示），要么显示为灰色。当它被拖拽时，它会保持图像和任何拖过它的东西留下一个鬼影。（可以在标题栏上看到，我在活动窗口后面有一个小的白色按钮。）如果我将它拖离屏幕一点，它会开始变得更加微不足道，但从未成功重新绘制过。

我已经尝试了各种处理WM_PAINT，WM_ERASEBKGND等的方法，但没有任何效果。示例不会显示正在处理的这些消息。我做错了什么，或者我还需要做些什么吗？

Answer 1

好吧，我在Rohitab API Monitor的帮助下发现了这个问题（我希望如此）。这确实是Lua绑定的一个问题：它将DefWindowProc声明为采用四个int参数。这很好，直到我们收到带有WM_ERASEBKGND（设备上下文句柄）的wParam消息，直到＆gt; 0x7FFFFFFF，调用DefWindowProc失败，将其转换为int并传递错误的值。因此窗口永远不会将某些项呈现给正确的设备上下文。我的调试日志记录（包装Windows API函数以将其参数打印到控制台）也没有捕获到它，因为它在它被破坏之前记录了该值。

更改声明以使用uint似乎已经解决了。（也许我可以将API Monitor的定义文件用于我的绑定，因为我看起来有些不准确。）

Windows API：简单窗口无法正确重绘

1 个答案: