/programs/develop/tinypad/trunk/data/tp-idata.inc |
---|
4,8 → 4,8 |
body_capt dd -1 |
s_status dd 0 |
lineHeight dd LINEH |
charWidth dd 6 |
scale db 0 |
charWidth dd 8 |
scale db 0x10 |
ins_mode db 1 |
sz app_fasm ,'/rd/1/develop/fasm',0 |
/programs/develop/tinypad/trunk/tinypad.asm |
---|
52,7 → 52,7 |
ATOPH = 19 ; menu bar height (pixels) |
SCRLW = 16 ; scrollbar widht/height (pixels) |
ATABW = 8 ; tab key indent width (chars) |
LINEH = 10 ; line height (pixels) |
LINEH = 16+1 ; line height (pixels) |
PATHL = 256 ; maximum path length (chars) !!! don't change !!! |
AMINS = 8 ; minimal scroll thumb size (pixels) |
LCHGW = 3 ; changed/saved marker width (pixels) |
/programs/develop/tinypad/trunk/tp-key.asm |
---|
1620,11 → 1620,11 |
;--------------------------------------------------------------- |
proc key.ctrl_plus ;///// ZOOM IN ////////////////////////////// |
;--------------------------------------------------------------- |
cmp [scale],7 |
cmp [scale],0x17 |
jz @f |
inc [scale] |
add [lineHeight],LINEH |
add [charWidth],6 |
add [charWidth], 8 |
jmp draw_editor |
endp |
1631,11 → 1631,11 |
;--------------------------------------------------------------- |
proc key.ctrl_minus ;///// ZOOM OUT //////////////////////////// |
;--------------------------------------------------------------- |
cmp [scale],0 |
cmp [scale],0x10 |
jz @f |
dec [scale] |
sub [lineHeight],LINEH |
sub [charWidth],6 |
sub [charWidth], 8 |
jmp draw_editor |
@@: |
ret |
/programs/develop/tinypad/trunk/tp-mouse.asm |
---|
95,6 → 95,8 |
jmp [mouse_ev+eax*4-4] |
.wheel: |
test [shi], 0x0C ; left or right ctrl key pressed |
jnz .wheel_ctrl |
movsx eax,word[mst+4] |
lea eax,[eax*3] |
add [cur_editor.TopLeft.X],eax |
107,6 → 109,17 |
call draw_editor |
jmp still.skip_write |
.wheel_ctrl: |
cmp word[mst+6], 0 ; vertical scroll? |
je still.skip_write |
test word[mst+6], 0x8000 ; scroll up or down? |
jnz .wheel_ctrl_down |
call key.ctrl_plus ; zoom in |
jmp still.skip_write |
.wheel_ctrl_down: |
call key.ctrl_minus ; zoom out |
jmp still.skip_write |
.move: |
mcall 37,1 |
movsx ebx,ax |