Subversion Repositories Kolibri OS

Rev

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