07/03/25 17:44:59
; ほれ>>237
#define WM_MOVING $216
#define WM_NCLBUTTONDOWN $A1
#define HTCAPTION 2
onclick gosub *on_click
oncmd gosub *on_wm_moving, WM_MOVING
stop
*on_click
sendmsg hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
return
*on_wm_moving
dupptr rect, lparam, 4 * 4
if rect.0 < 0 {
rect.2 = rect.2 - rect.0 : rect.0 = 0
}
if ginfo_dispx <= rect.2 {
rect.0 = ginfo_dispx - (rect.2 - rect.0) : rect.2 = ginfo_dispx
}
if rect.1 < 0 {
rect.3 = rect.3 - rect.1 : rect.1 = 0
}
if ginfo_dispy <= rect.3 {
rect.1 = ginfo_dispy - (rect.3 - rect.1) : rect.3 = ginfo_dispy
}
return