ひとりゴト

< 新しい記事

新着記事一覧(全1026件)

過去の記事 >

2014年05月13日

UWSCで範囲選択

カテゴリ：プログラミング

範囲選択時に線がだせたらなーって思ってお試し。
※いろいろ間違えてるかも。

def_dll DeleteDC(hwnd):long:gdi32.dll
def_dll DrawFocusRect(hwnd,{long,long,long,long}):long:User32.dll
def_dll InvalidateRect(hwnd,{long,long,long,long}):long:user32.dll

dc = CreateDCA("DISPLAY","DISPLAY",null,null)
while getkeystate(vk_ctrl)=false;sleep(0.01)//CTRL押しで抜けて終了
　　x = g_mouse_x;y=g_mouse_y
　　ifb getkeystate(vk_lbutton) then//左クリック時に
　　　　mouX = g_mouse_x;mouY=g_mouse_y
　　　　while getkeystate(vk_lbutton);sleep(0.05)
　　　　　　x = g_mouse_x;y = g_mouse_y
　　　　　　x1=MouX　　　;y1=MouY
　　　　　　x2=x　　　　;y2=y
　　　　　　ifb x1 > x2 then
　　　　x2 = mouX;x1 =x//始点終点の入れ替え
　　　　　　endif
　　　　　　ifb y1 > y2 then
　　　　　　　　y2 = MouY;y1 =y
　　　　　　endif

　　　　　　hwnd = idtohnd(getid(get_frompoint_win))
　　　　　　InvalidateRect(null,x1-2,Y1-2,x2+4,y2+4,1)//無効領域。+4とかはいらないかも
　　　　　　sleep(0.05)//ちょっと間を置かないと線が消える
　　　　　　drawfocusrect(dc,x1,y1,x2,y2)//四角い線を書く
　　　　　　//クリックされている間待機させチラつき防止
　　　　　　while x = g_mouse_x and y = g_mouse_y;sleep(0.01)
　　　　　　　　if getkeystate(vk_lbutton) = false then break
　　　　　　wend
　　　　wend
　　endif
wend
deleteDC(dc)