corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
20 | office | 1 | #NoEnv |
2 | SetBatchLines -1 |
||
3 | |||
4 | CoordMode Mouse, Screen |
||
5 | OnExit GuiClose |
||
6 | |||
7 | zoom := 9 |
||
8 | |||
9 | computeSize(){ |
||
10 | global as_x |
||
11 | as_x := Round(ws_x/zoom/2 - 0.5) |
||
12 | if (zoom>1) { |
||
13 | pix := Round(zoom) |
||
14 | } ele { |
||
15 | pix := 1 |
||
16 | } |
||
17 | ToolTip Message %as_x% %zoom% %ws_x% %hws_x% |
||
18 | } |
||
19 | |||
20 | hdc_frame := DllCall("GetDC", UInt, MagnifierID) |
||
21 | |||
22 | ; comment |
||
23 | DrawCross(byRef x="", rX,rY,z, dc){ |
||
24 | ;specify the style, thickness and color of the cross lines |
||
25 | h_pen := DllCall( "gdi32.dll\CreatePen", Int, 0, Int, 1, UInt, 0x0000FF) |
||
26 | } |
||
27 | |||
28 | ;Ctrl ^; Shift +; Win #; Alt ! |
||
29 | ^NumPadAdd:: |
||
30 | ^WheelUp:: |
||
31 | ^;:: ;comment |
||
32 | If(zoom < ws_x and ( A_ThisHotKey = "^WheelUp" or A_ThisHotKey ="^NumPadAdd") ) |
||
33 | zoom *= 1.189207115 ; sqrt(sqrt(2)) |
||
34 | Gosub,setZoom |
||
35 | return |