PhotoshopのスクロールをG13のスティックで移動するスクリプト

2011 2/17
カテゴリー : PCメモ
G13
投稿者 : Chi-
コメントを書く

PhotoshopのスクロールをG13のスティックで移動するスクリプト
G13のスティックにマウスのホイール回転とＣｔｒｌキーの組み合わせを割り当てます。
オリジナルのソースはこちらのフォーラムから。

SAIではキー割り当てでスクロールできるのですけれども、
Photoshopは「Ctrl+PageDown」とかでも10pixづつしか動ず、
通常ホイール回転をスティックに割り当てられないのでなめらかなスクロールも難しいのですが
スクリプトで何かないかと探して自分用にアレンジしました。

＊注意＊
・斜め方向には動かせません∈(･ω･)∋ﾀﾞﾑｰ・・・

・動作の方向が気に入らない場合は一番下の
「MoveMouseWheel(-1)」
の数値を+-逆にすれば方向かわります。
数値を大きくするとスクロールのスピードも速くなります。

以下ソースになりまする

function OnEvent(event, arg)
    OutputLogMessage(&quot;event = %s, arg = %sn&quot;, event, arg)
end

function OnEvent(event, arg, family)
    --OutputLogMessage(&quot;event = %s, arg = %sn&quot;, event, arg);
    if event==&quot;PROFILE_ACTIVATED&quot; then
        ClearLog(); OutputLogMessage(&quot;Script Started!n&quot;)
        toggle = 0
    end

    if event==&quot;M_PRESSED&quot; and toggle~=0 then
        StartFunction(current)
    end

    if event==&quot;G_PRESSED&quot; then
        if arg==26 then                       -- G26= Scroll Up (Thumbstick UP)
            if toggle == 0 then
                toggle = arg
                current = &quot;ScrollUp&quot;
                StartFunction(current)
            end
        elseif arg==28 then                   -- G28= Scroll Down (Thumbstick DOWN)
            if toggle == 0 then
                toggle = arg
                current = &quot;ScrollDown&quot;
                StartFunction(current)
            end
        elseif arg==29 then                   -- G29= Scroll Down (Thumbstick LEFT)
            if toggle == 0 then
PressKey(&quot;lctrl&quot;)
                toggle = arg
                current = &quot;ScrollLeft&quot;
                StartFunction(current)
            end
        elseif arg==27 then                   -- G27= Scroll Down (Thumbstick RIGHT)
            if toggle == 0 then
PressKey(&quot;lctrl&quot;)
                toggle = arg
                current = &quot;ScrollRight&quot;
                StartFunction(current)
            end
        end

    elseif event==&quot;G_RELEASED&quot; then
        if arg==26 then                       -- G26= Scroll Up (Thumbstick UP)
            if toggle == arg then
                toggle = 0
            end
        elseif arg==28 then                   -- G28= Scroll Down (Thumbstick DOWN)
            if toggle == arg then
                toggle = 0
            end
        elseif arg==29 then                   -- G29= Scroll Down (Thumbstick LEFT)
            if toggle == arg then
ReleaseKey(&quot;lctrl&quot;)
                toggle = 0
            end
        elseif arg==27 then                   -- G27= Scroll Down (Thumbstick RIGHT)
            if toggle == arg then
ReleaseKey(&quot;lctrl&quot;)
                toggle = 0
            end
        end
    end

end

function StartFunction(name)                  -- Handler Function
    str=name..&quot;()&quot;
    return assert(loadstring(str))()
end

function RepeatFunction(delay, family)        -- Handler Function
    if delay==nil then delay=0 end
    Sleep(delay)
    if family==nil then SetMKeyState(GetMKeyState())
    else SetMKeyState(GetMKeyState(family),family)
    end
end

function ScrollUp()
    MoveMouseWheel(-1)
    RepeatFunction(10,family)
end

function ScrollDown()
    MoveMouseWheel(1)
    RepeatFunction(10,family)
end

function ScrollRight()
    MoveMouseWheel(1)
    RepeatFunction(10,family)
end

function ScrollLeft()
    MoveMouseWheel(-1)
    RepeatFunction(10,family)
end

100

function OnEvent(event, arg)

OutputLogMessage("event = %s, arg = %sn", event, arg)

end

function OnEvent(event, arg, family)

--OutputLogMessage("event = %s, arg = %sn", event, arg);

if event=="PROFILE_ACTIVATED" then

ClearLog(); OutputLogMessage("Script Started!n")

toggle = 0

end

if event=="M_PRESSED" and toggle~=0 then

StartFunction(current)

end

if event=="G_PRESSED" then

if arg==26 then -- G26= Scroll Up (Thumbstick UP)

if toggle == 0 then

toggle = arg

current = "ScrollUp"

StartFunction(current)

end

elseif arg==28 then -- G28= Scroll Down (Thumbstick DOWN)

if toggle == 0 then

toggle = arg

current = "ScrollDown"

StartFunction(current)

end

elseif arg==29 then -- G29= Scroll Down (Thumbstick LEFT)

if toggle == 0 then

PressKey("lctrl")

toggle = arg

current = "ScrollLeft"

StartFunction(current)

end

elseif arg==27 then -- G27= Scroll Down (Thumbstick RIGHT)

if toggle == 0 then

PressKey("lctrl")

toggle = arg

current = "ScrollRight"

StartFunction(current)

end

elseif event=="G_RELEASED" then

if arg==26 then -- G26= Scroll Up (Thumbstick UP)

if toggle == arg then

toggle = 0

end

elseif arg==28 then -- G28= Scroll Down (Thumbstick DOWN)

if toggle == arg then

toggle = 0

end

elseif arg==29 then -- G29= Scroll Down (Thumbstick LEFT)

if toggle == arg then

ReleaseKey("lctrl")

toggle = 0

end

elseif arg==27 then -- G27= Scroll Down (Thumbstick RIGHT)

if toggle == arg then

ReleaseKey("lctrl")

toggle = 0

end

function StartFunction(name) -- Handler Function

str=name.."()"

return assert(loadstring(str))()

end

function RepeatFunction(delay, family) -- Handler Function

if delay==nil then delay=0 end

Sleep(delay)

if family==nil then SetMKeyState(GetMKeyState())

else SetMKeyState(GetMKeyState(family),family)

end

function ScrollUp()

MoveMouseWheel(-1)

RepeatFunction(10,family)

end

function ScrollDown()

MoveMouseWheel(1)

RepeatFunction(10,family)

end

function ScrollRight()

MoveMouseWheel(1)

RepeatFunction(10,family)

end

function ScrollLeft()

MoveMouseWheel(-1)

RepeatFunction(10,family)

end

Souvenir kio Soliton

ｼｭｯ（ω・∈(･ω∩(∩ω･)∋三∈(･ω∩)ω･)∋・ω）ｼｭﾊﾞｯ