corrade-nucleus-nucleons – Blame information for rev 20

Subversion Repositories:
Rev:
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