- 242 名前:デフォルトの名無しさん mailto:sage [2007/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
|

|