AutoHotkey Script Showcase

http://www.autohotkey.com/docs/scripts/index.htm


Screen Magnifier -- by Holomind

http://www.autohotkey.com/forum/topic11700.html


．開放原始碼
．支援去鋸齒化
．設定重繪間隔時間（Delay）
．選擇放大的倍數
．被放大鏡擋住的部份仍可正常顯示

說明：

正常版：所有按鈕都在上面，用滑鼠點就可以了。
精簡版：
Win + A 去鋸齒
Win + X 關閉放大鏡
Win + P 隱藏/顯示放大鏡

Ctrl + Shift + 滾輪向上 放大倍率上升
Ctrl + Shift + 滾輪向下 放大倍率下降

exe執行檔載點： http://www.holomind.de/ahk/magnifier/magnifier_smooth.exe



正常版：

OnExit handle_exit

Gui, +AlwaysOnTop +Owner +Resize +ToolWindow ; window for the dock
Gui, Show, NoActivate w400 h400 x300 y50 , PrintScreen
Gui, Add, DDL, vzoom , 0.5|1|2||4|8|16
Gui, Add, Checkbox, y12 x150 vantialize, Antialize ?
Gui, Add, Slider, vdelay x220 y0 Range15-200
Gui, Add, Text, x340 y12 w80 vdelay2

WinGet PrintScreenID, id ,PrintScreen ;
WinSet, Transparent , 254, PrintScreen

;retrieve the unique ID number (HWND/handle) of that window
WinGet, PrintSourceID, id

hotkey , #x , toggle_follow
hotkey , +$LButton , click_through

toolbar_def:=35
toolbar := toolbar_def
follow :=0

hdd_frame := DllCall( "GetDC", UInt, PrintSourceID )
hdc_frame := DllCall( "GetDC", UInt, PrintScreenID )

hdc_buffer := DllCall("gdi32.dll\CreateCompatibleDC", UInt, hdc_frame) ;
buffer
hbm_buffer := DllCall("gdi32.dll\CreateCompatibleBitmap", UInt,hdc_frame,
Int,A_ScreenWidth, Int,A_ScreenHeight)

Gosub, Repaint
return

toggle_follow:
follow := 1 - follow

if follow = 1
{
WinSet Region, 0-0 W%ww% H%wh% E , PrintScreen
toolbar := -32 ; height of window title
GuiControl, Hide, zoom
}
else
{
WinSet Region,, PrintScreen
toolbar :=toolbar_def
GuiControl, Show, zoom
}
Return

click_through:
if follow = 1
{
Gui, Hide
Send, {Click}
SetTimer, Repaint , Off
Sleep, 100
Gui, Show
SetTimer, Repaint, %delay%
}
Return

Repaint:

CoordMode, Mouse, Screen
MouseGetPos, start_x, start_y ; position of mouse
Gui, Submit, NoHide ; needed to read the dropdown
and slidervalue
GuiControl,, delay2 , delay %delay% ms
WinGetPos, wx, wy, ww, wh , PrintScreen

wh2 := wh - toolbar

DllCall( "gdi32.dll\SetStretchBltMode", "uint", hdc_frame, "int", 4 *
antialize ) ; Halftone better quality with stretch

DllCall("gdi32.dll\StretchBlt", UInt,hdc_frame, Int,0, Int,toolbar,
Int,ww, Int,wh - toolbar
, UInt,hdd_frame, Int
, start_x-(ww / 2 / zoom)
, Int,start_y -( wh2 / 2/zoom), Int,ww / zoom, Int,wh2 / zoom
,UInt,0xCC0020) ; SRCCOPY

if follow = 1
WinMove, PrintScreen, ,start_x -ww/2 , start_y-wh/2

SetTimer, Repaint , %delay%
Return

GuiClose:
handle_exit:
DllCall("gdi32.dll\DeleteObject", UInt,hbm_buffer)
DllCall("gdi32.dll\DeleteDC", UInt,hdc_frame )
DllCall("gdi32.dll\DeleteDC", UInt,hdd_frame )
DllCall("gdi32.dll\DeleteDC", UInt,hdc_buffer)
ExitApp

精簡版（執行速度較快）：


#NoEnv
SetBatchLines -1

CoordMode Mouse, Screen
OnExit GuiClose
zoom = 2 ; initial magnification, 1..32
antialize = 0
Rx = 128 ; half vertical/horizontal side of magnifier window
Ry = 128
Zx := Rx/zoom ; frame x/y size
Zy := Ry/zoom
; GUI to show the magnified image
Gui +AlwaysOnTop +Resize +ToolWindow
Gui Show, % "w" 2*Rx " h" 2*Ry " x0 y0", Magnifier
WinGet MagnifierID, id, Magnifier
WinSet Transparent, 255, Magnifier ; makes the window invisible to
magnification
WinGet PrintSourceID, ID

hdd_frame := DllCall("GetDC", UInt, PrintSourceID)
hdc_frame := DllCall("GetDC", UInt, MagnifierID)

SetTimer Repaint, 50 ; flow through

Repaint:
MouseGetPos x, y
xz := In(x-Zx-6,0,A_ScreenWidth-2*Zx) ; keep the frame on screen
yz := In(y-Zy-6,0,A_ScreenHeight-2*Zy)
; WinMove Frame,,%xz%, %yz%, % 2*Zx, % 2*Zy
DllCall("gdi32.dll\StretchBlt", UInt,hdc_frame, Int,0, Int,0, Int,2*Rx,
Int,2*Ry
, UInt,hdd_frame, UInt,xz, UInt,yz, Int,2*Zx, Int,2*Zy, UInt,0xCC0020) ;
SRCCOPY
Return


GuiSize:
Rx := A_GuiWidth/2
Ry := A_GuiHeight/2
Zx := Rx/zoom
Zy := Ry/zoom
TrayTip,,% "Frame = " Round(2*Zx) " × " Round(2*Zy) "`nMagnified to = "
A_GuiWidth "×" A_GuiHeight
Return

#a::
antialize := !antialize
DllCall( "gdi32.dll\SetStretchBltMode", "uint", hdc_frame, "int",
4*antialize ) ; Antializing ?
Return

#x::
GuiClose:
DllCall("gdi32.dll\DeleteDC", UInt,hdc_frame )
DllCall("gdi32.dll\DeleteDC", UInt,hdd_frame )
ExitApp

#p::
MButton::
if paused =
{
Gui, 2:Hide
Gui, Hide
SetTimer, Repaint, Off
paused = 1
}
else
{
Gui, 2:Show
Gui, Show
SetTimer, Repaint, 50
paused =
}
Return

^+Up::
^+Down::
^+WheelUp:: ; Ctrl+Shift+WheelUp to zoom in
^+WheelDown:: ; Ctrl+Shift+WheelUp to zoom out
If (zoom < 31 and ( A_ThisHotKey = "^+WheelUp" or A_ThisHotKey = "^+Up" ))
zoom *= 1.189207115 ; sqrt(sqrt(2))
If (zoom > 1 and ( A_ThisHotKey = "^+WheelDown" or A_ThisHotKey =
"^+Down" ))
zoom /= 1.189207115
Zx := Rx/zoom
Zy := Ry/zoom
TrayTip,,% "Zoom = " Round(100*zoom) "%"
Return

In(x,a,b) { ; closest number to x in [a,b]
IfLess x,%a%, Return a
IfLess b,%x%, Return b
Return x
}


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.62.73.254
※ 編輯: VElysian 來自: 61.62.92.141 (08/04 09:54)