元素拖拽时会闪烁如何解决？

tmplinshi

1. #Include <class_xc>
   
2. #NoEnv
   
3. #SingleInstance Force
   
4. SetWorkingDir %A_ScriptDir%
   
5. SetBatchLines -1
   
6. 
   
7. xc.XInitXCGUI()
   
8. xc.XC_EnableDebugFile(False)
   
9. 
   
10. m_hWindow := xc.XWnd_Create(0, 0, 400, 400, "炫彩界面库窗口")
    
11. 
    
12. hEle := xc.XEle_Create(100, 100, 5, 200, m_hWindow)
    
13.         xc.XEle_EnableBkTransparent(hEle, true)
    
14. 
    
15.         hBKM := xc.XEle_GetBkManager(hEle)
    
16.         xc.XBkM_AddInfo(hBKM, "{99:1.9.9;5:2(26)3(1,0,0,0)20(1)21(3)26(0)22(-16776961)23(255);98:16(0);}")
    
17. 
    
18.         hCursor := DllCall("LoadCursor", "Uint", 0, "Int", 32644, "ptr")
    
19.         xc.XEle_SetCursor(hEle, hCursor)
    
20. 
    
21. global g_isLineEle := {}, g_lastEle
    
22. g_isLineEle[hEle] := true
    
23. 
    
24. xc.XWnd_RegEventC1(m_hWindow, WM_MOUSEMOVE := 0x200, "OnWndMouseMove")
    
25. xc.XWnd_RegEventC1(m_hWindow, WM_LBUTTONDOWN := 0x201, "OnWndLButtonDown")
    
26. xc.XWnd_RegEventC1(m_hWindow, WM_LBUTTONUP := 0x202, "OnWndLButtonUp")
    
27. 
    
28. xc.XWnd_AdjustLayout(m_hWindow)
    
29. xc.XWnd_ShowWindow(m_hWindow)
    
30. 
    
31. xc.XRunXCGUI()
    
32. xc.XExitXCGUI()
    
33. Return
    
34. 
    
35. OnWndMouseMove(hWindow, nFlags, point, pbHandled) {
    
36.         if !g_lastEle
    
37.                 Return
    
38. 
    
39.         diffX := NumGet(point+0, "Int") - g_lastEle.X
    
40.         diffY := NumGet(point+4, "Int") - g_lastEle.Y
    
41.        
    
42.         ; 计算新的坐标
    
43.         rc := g_lastEle.rect
    
44.         newLeft   := rc.left + diffX
    
45.         newTop    := rc.top + diffY
    
46.         newRight  := newLeft + rc.w
    
47.         newBottom := newTop + rc.h
    
48. 
    
49.         ; 设置新的坐标
    
50.         VarSetCapacity(pRect, 16, 0)
    
51.         NumPut(newLeft  , pRect, 0, "Int")
    
52.         NumPut(newTop   , pRect, 4, "Int")
    
53.         NumPut(newRight , pRect, 8, "Int")
    
54.         NumPut(newBottom, pRect, 12, "Int")
    
55.         xc.XEle_SetRect(g_lastEle.hEle, &pRect, True)
    
56. }
    
57. 
    
58. OnWndLButtonDown(hWindow, nFlags, point) {
    
59.         hEle := xc.XWnd_HitChildEle(hWindow, point)
    
60.         if !g_isLineEle[hEle]
    
61.                 return g_lastEle := ""
    
62. 
    
63.         g_lastEle := { hEle : hEle
    
64.                      , X    : NumGet(point+0, "Int")
    
65.                      , Y    : NumGet(point+4, "Int") }
    
66. 
    
67.         xc.XEle_GetRect(hEle, pRect)
    
68.         g_lastEle.rect := { left   : NumGet(pRect, 0 , "Int")
    
69.                           , top    : NumGet(pRect, 4 , "Int")
    
70.                           , right  : NumGet(pRect, 8 , "Int")
    
71.                           , bottom : NumGet(pRect, 12, "Int")
    
72.                           , w      : NumGet(pRect, 8 , "Int") - NumGet(pRect, 0, "Int")
    
73.                           , h      : NumGet(pRect, 12, "Int") - NumGet(pRect, 4, "Int") }
    
74. }
    
75. 
    
76. OnWndLButtonUp(hWindow, nFlags, point) {
    
77.         if g_lastEle {
    
78.                 g_lastEle := ""
    
79.         }
    
80. }

复制代码

想做一个九宫格辅助工具，需要拖动四条线条。按照我上面的代码写，拖动速度稍微快一点，元素就会闪烁。但是我把元素的宽度从 5 改成 55，闪烁情况又会消失。

dulang

这个论坛人气不足啊，貌似要……

诸葛司马~渝

路过，发几张美女图片