| /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 |