Rev 5838 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5838 | Rev 7996 | ||
---|---|---|---|
Line 93... | Line 93... | ||
93 | ;!!! jne still.skip_write |
93 | ;!!! jne still.skip_write |
94 | @@: mov [mev],al |
94 | @@: mov [mev],al |
95 | jmp [mouse_ev+eax*4-4] |
95 | jmp [mouse_ev+eax*4-4] |
Line 96... | Line 96... | ||
96 | 96 | ||
- | 97 | .wheel: |
|
- | 98 | test [shi], 0x0C ; left or right ctrl key pressed |
|
97 | .wheel: |
99 | jnz .wheel_ctrl |
98 | movsx eax,word[mst+4] |
100 | movsx eax,word[mst+4] |
99 | lea eax,[eax*3] |
101 | lea eax,[eax*3] |
100 | add [cur_editor.TopLeft.X],eax |
102 | add [cur_editor.TopLeft.X],eax |
101 | movsx eax,word[mst+6] |
103 | movsx eax,word[mst+6] |
Line 105... | Line 107... | ||
105 | mov [mst+4],eax |
107 | mov [mst+4],eax |
106 | call check_bottom_right |
108 | call check_bottom_right |
107 | call draw_editor |
109 | call draw_editor |
108 | jmp still.skip_write |
110 | jmp still.skip_write |
Line -... | Line 111... | ||
- | 111 | ||
- | 112 | .wheel_ctrl: |
|
- | 113 | cmp word[mst+6], 0 ; vertical scroll? |
|
- | 114 | je still.skip_write |
|
- | 115 | test word[mst+6], 0x8000 ; scroll up or down? |
|
- | 116 | jnz .wheel_ctrl_down |
|
- | 117 | call key.ctrl_plus ; zoom in |
|
- | 118 | jmp still.skip_write |
|
- | 119 | .wheel_ctrl_down: |
|
- | 120 | call key.ctrl_minus ; zoom out |
|
- | 121 | jmp still.skip_write |
|
109 | 122 | ||
110 | .move: |
123 | .move: |
111 | mcall 37,1 |
124 | mcall 37,1 |
112 | movsx ebx,ax |
125 | movsx ebx,ax |
113 | sar eax,16 |
126 | sar eax,16 |