FullScreen , Pan , Zoom in-Out like photoshop
Posted: 10 Nov 2021, 10:50
/*
Sorry idk if this is the correct section,
I made a script using ahk to -> "fake" FullScreen , Pan , Zoom in and Out like Photoshop
Comment if it worked
Space + LButton : pan
Ctrl + Space + LButton : Zoom in-Out
F:: Fake fullscreen on / off
1) DOWNLOAD :
a) AUTOHOTKEYSCRIPT https://www.autohotkey.com/download/
b) THIS SCRIPT (OR COPY AND PASTE ON NEW AHK SCRIPT)
CHANGE KEYBOARD-SHORCUTS ON THIS AHK SCRIPT , OR ON TVPAINT TO MATCH THIS SCRIPT KEYBOARD-SHORCUTS BELOW
(not this hotkeys, this are from ahk.exe)
^ Ctrl
+ Shift
! Alt
*/
#persistent
#singleinstance force
;|------------| Your KEYBOARD-SHORCUTS |-------------------|
closeLayerPanel:="^{Numpad7}"
ShowLayerPanel:="^{Numpad5}"
ZoomFit:="^{Numpad1}"
HIDEBRUSHPANEL:=""
RETURN
_TOOLTIP:
Tooltip,
return
#IfWinActive, ahk_exe TVpaint.exe ; REPLACE YOUR .EXE NAME OF TVPAINT HERE
space & lbutton::
CTRLstate := GetKeyState("Ctrl")
;|---------------| PAN/MOVE/HAND TOOL |------------------|
If (CTRLstate="0")
{
send !{lbUTTON DOWN}
Keywait LButton
send !{lbUTTON UP}
return
}
;|---------------| ZOOM IN-OUT |------------------|
If (CTRLstate="1")
{
send {LCtrl Up}{ALT DOWN}{RBUTTON DOWN}
Keywait LButton
send {ALT UP}{RBUTTON UP}
return
}
return
;|----------------------------------| FULLSCREEN |-----------------------------------------------------------------------------------------------------|
f::
;|---------------| FULLSCREEN ON + HIDE PANELS |------------------|
if tvfs!=true
{
TOOLTIP,Fullscreen
settimer, _tooltip, -100
h:=a_screenHeight +125
w:=a_ScreenWidth +30 ;REPLACE THIS 4 VARIABLES TO MATCH YOUR NEEDS
x:= "-10"
y:= "-70"
WinMove, ahk_exe tvpaint.exe, , %x%, %y% , %w%, %h% ; REPLACE YOUR .EXE NAME OF TVPAINT HERE
send %closeLayerPanel%
SEND %ZoomFit%
tvfs=true
return
}
;|---------------| FULLSCREEN OFF + SHOW PANELS |------------------|
Else if tvfs=true
{
Tooltip,Fullscreen off
settimer, _tooltip, -100
h:=a_screenHeight +38
w:=a_ScreenWidth +20 ;REPLACE THIS 4 VARIABLES TO MATCH YOUR NEEDS
x:= "-10"
y:= "-30"
WinMove, ahk_exe tvpaint.exe, , %x%, %y% , %w%, %h% ; REPLACE YOUR .EXE NAME OF TVPAINT HERE
send %ShowLayerPanel%
SEND %ZoomFit%
;add your Variables here → SEND %HIDEBRUSHPANEL%
tvfs=False
return
}
return
#if
Sorry idk if this is the correct section,
I made a script using ahk to -> "fake" FullScreen , Pan , Zoom in and Out like Photoshop
Comment if it worked
Space + LButton : pan
Ctrl + Space + LButton : Zoom in-Out
F:: Fake fullscreen on / off
1) DOWNLOAD :
a) AUTOHOTKEYSCRIPT https://www.autohotkey.com/download/
b) THIS SCRIPT (OR COPY AND PASTE ON NEW AHK SCRIPT)
CHANGE KEYBOARD-SHORCUTS ON THIS AHK SCRIPT , OR ON TVPAINT TO MATCH THIS SCRIPT KEYBOARD-SHORCUTS BELOW
(not this hotkeys, this are from ahk.exe)
^ Ctrl
+ Shift
! Alt
*/
#persistent
#singleinstance force
;|------------| Your KEYBOARD-SHORCUTS |-------------------|
closeLayerPanel:="^{Numpad7}"
ShowLayerPanel:="^{Numpad5}"
ZoomFit:="^{Numpad1}"
HIDEBRUSHPANEL:=""
RETURN
_TOOLTIP:
Tooltip,
return
#IfWinActive, ahk_exe TVpaint.exe ; REPLACE YOUR .EXE NAME OF TVPAINT HERE
space & lbutton::
CTRLstate := GetKeyState("Ctrl")
;|---------------| PAN/MOVE/HAND TOOL |------------------|
If (CTRLstate="0")
{
send !{lbUTTON DOWN}
Keywait LButton
send !{lbUTTON UP}
return
}
;|---------------| ZOOM IN-OUT |------------------|
If (CTRLstate="1")
{
send {LCtrl Up}{ALT DOWN}{RBUTTON DOWN}
Keywait LButton
send {ALT UP}{RBUTTON UP}
return
}
return
;|----------------------------------| FULLSCREEN |-----------------------------------------------------------------------------------------------------|
f::
;|---------------| FULLSCREEN ON + HIDE PANELS |------------------|
if tvfs!=true
{
TOOLTIP,Fullscreen
settimer, _tooltip, -100
h:=a_screenHeight +125
w:=a_ScreenWidth +30 ;REPLACE THIS 4 VARIABLES TO MATCH YOUR NEEDS
x:= "-10"
y:= "-70"
WinMove, ahk_exe tvpaint.exe, , %x%, %y% , %w%, %h% ; REPLACE YOUR .EXE NAME OF TVPAINT HERE
send %closeLayerPanel%
SEND %ZoomFit%
tvfs=true
return
}
;|---------------| FULLSCREEN OFF + SHOW PANELS |------------------|
Else if tvfs=true
{
Tooltip,Fullscreen off
settimer, _tooltip, -100
h:=a_screenHeight +38
w:=a_ScreenWidth +20 ;REPLACE THIS 4 VARIABLES TO MATCH YOUR NEEDS
x:= "-10"
y:= "-30"
WinMove, ahk_exe tvpaint.exe, , %x%, %y% , %w%, %h% ; REPLACE YOUR .EXE NAME OF TVPAINT HERE
send %ShowLayerPanel%
SEND %ZoomFit%
;add your Variables here → SEND %HIDEBRUSHPANEL%
tvfs=False
return
}
return
#if