XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

55◆tsGpSwX8mo :05/01/19 14:27 ID:9gBWK9zY
mayuから乗り換え用に色々試してる最中。
&WindowClingTo(Top|Bottom|Left|Right)に相当。マルチモニタ対応はしてない。
窓をデスクトップ(タスクバー除く)の上下左右の端にくっつくように移動。
キーアサインは適当に変えるべし。
スクリプトの先頭で呼んでタスクバー位置を変えない or
タスクバーの移動を検知して再呼び出しするなら、
キー定義の先頭のサブルーチンを無くしてもいい。

#+Left::
#+Right::
#+Up::
#+Down::
Gosub, sub_GetDesktopPositon:
WinGetPos,x,y,w,h,A
if A_ThisHotkey = #+Left
x = %DesktopLeft%
else if A_ThisHotkey = #+Right
{
x = %DesktopRight%
x -= %w%
}
else if A_ThisHotkey = #+Up
y = %DesktopTop%
else if A_ThisHotkey = #+Down
{
y = %DesktopBottom%
y -= %h%
}
WinMove,A,,%x%,%y%,%w%,%h%
return
70KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08