Tinypad from 0.6.0.0
git-svn-id: svn://kolibrios.org@178 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
heavyiron
422
programs/develop/tinypad/trunk/tp-mouse.asm
Normal file
422
programs/develop/tinypad/trunk/tp-mouse.asm
Normal file
@@ -0,0 +1,422 @@
|
||||
func check_mouse_in_edit_area
|
||||
mcall 37,1
|
||||
mov ebx,eax
|
||||
and ebx,0x0000FFFF
|
||||
shr eax,16
|
||||
mov ecx,[top_ofs]
|
||||
inc ecx
|
||||
pushd [left_ofs] ATOPH [p_info.client_box.width] ATOPH
|
||||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||||
sub [__rc+0x8],SCRLW+6
|
||||
imul ecx,[lines.scr],LINEH
|
||||
dec ecx
|
||||
add [__rc+0xC],ecx
|
||||
mov ecx,__rc
|
||||
call pt_in_rect
|
||||
ret
|
||||
endf
|
||||
|
||||
func get_mouse_event
|
||||
mcall 37,2
|
||||
and al,3
|
||||
mov bl,[ecx]
|
||||
cmp [ecx],al
|
||||
mov [ecx],al
|
||||
jne @f
|
||||
mov eax,MEV_MOVE
|
||||
ret
|
||||
@@: mov bh,al
|
||||
and ebx,0x0101
|
||||
cmp bl,bh
|
||||
je .rb
|
||||
test al,1
|
||||
jz @f
|
||||
mov eax,MEV_LDOWN
|
||||
ret
|
||||
@@: mov eax,MEV_LUP
|
||||
ret
|
||||
.rb: test al,2
|
||||
jz @f
|
||||
mov eax,MEV_RDOWN
|
||||
ret
|
||||
@@: mov eax,MEV_RUP
|
||||
ret
|
||||
endf
|
||||
|
||||
mouse_ev dd mouse.l_down,mouse.l_up,mouse.r_down,mouse.r_up,mouse.move
|
||||
|
||||
mouse:
|
||||
mov ecx,mst
|
||||
call get_mouse_event
|
||||
cmp [bot_mode],0
|
||||
je @f
|
||||
mov ah,al
|
||||
mov al,4
|
||||
call [bot_dlg_handler]
|
||||
jmp still
|
||||
@@: cmp al,MEV_MOVE
|
||||
jne .no_move
|
||||
cmp [popup_active],1
|
||||
je @f
|
||||
.no_move:
|
||||
mov [s_status],0
|
||||
|
||||
push eax
|
||||
mcall 9,p_info,-1
|
||||
cmp ax,[p_info.window_stack_position]
|
||||
pop eax
|
||||
jne still.skip_write
|
||||
@@:
|
||||
cmp [just_from_popup],0
|
||||
je @f
|
||||
cmp al,MEV_LUP
|
||||
jne still.skip_write
|
||||
@@: mov [mev],al
|
||||
jmp [mouse_ev+eax*4-4]
|
||||
|
||||
.move:
|
||||
mcall 37,1
|
||||
movsx ebx,ax
|
||||
sar eax,16
|
||||
cmp [body_capt],0
|
||||
jge .check_body.2
|
||||
cmp [vscrl_capt],0
|
||||
jge .check_vscroll.2
|
||||
cmp [hscrl_capt],0
|
||||
jge .check_hscroll.2
|
||||
|
||||
cmp [do_not_draw],0
|
||||
jne still.skip_write
|
||||
mov eax,[mi_cur]
|
||||
call get_active_menu_item
|
||||
cmp eax,[mi_cur]
|
||||
je still.skip_write
|
||||
push [mi_cur]
|
||||
cmp [popup_active],0
|
||||
je @f
|
||||
mov [mi_cur],eax
|
||||
@@: call draw_main_menu
|
||||
pop [mi_cur]
|
||||
cmp [popup_active],0
|
||||
je still.skip_write
|
||||
; mcall 18,2,[h_popup]
|
||||
mov ecx,[mi_cur]
|
||||
or ecx,ecx
|
||||
js still.skip_write
|
||||
mov eax,[main_menu.popups+ecx*4-4]
|
||||
mov edx,main_menu
|
||||
call dword[main_menu.onshow+ecx*4-4]
|
||||
call setup_main_menu_popup
|
||||
mcall 60,2,[h_popup],POPUP_STACK,4
|
||||
; mcall 51,1,popup_thread_start,POPUP_STACK
|
||||
|
||||
jmp still.skip_write
|
||||
|
||||
|
||||
.r_down:
|
||||
@@: cmp [popup_active],0
|
||||
je @f
|
||||
mcall 5,1
|
||||
jmp @b
|
||||
@@: cmp [mouse_captured],0
|
||||
jne still.skip_write
|
||||
call check_mouse_in_edit_area
|
||||
jnc still.skip_write
|
||||
mcall 37,0
|
||||
mov [popup_edit+POPUP.pos],eax
|
||||
@@: mcall 37,2
|
||||
cmp eax,ebx
|
||||
jnz @f
|
||||
mcall 5,1
|
||||
jmp @b
|
||||
@@: and [mst],0xFD
|
||||
call onshow.edit
|
||||
mov dword[POPUP_STACK],popup_edit
|
||||
mcall 51,1,popup_thread_start,POPUP_STACK
|
||||
mov [h_popup],eax
|
||||
jmp still.skip_write
|
||||
|
||||
.r_up:
|
||||
jmp still.skip_write
|
||||
|
||||
.l_down:
|
||||
call check_mouse_in_edit_area
|
||||
jnc .check_vscroll
|
||||
mov [mouse_captured],1
|
||||
mov [body_capt],1
|
||||
|
||||
call clear_selection
|
||||
|
||||
.check_body.2:
|
||||
sub eax,[left_ofs]
|
||||
sub ebx,[top_ofs]
|
||||
dec ebx
|
||||
; sub ebx,[__rc+0x4]
|
||||
push eax
|
||||
mov eax,ebx
|
||||
cdq;xor edx,edx
|
||||
mov ecx,LINEH
|
||||
idiv ecx
|
||||
@@: add eax,[top_line]
|
||||
mov ebx,eax
|
||||
pop eax
|
||||
cdq;xor edx,edx
|
||||
mov ecx,6
|
||||
idiv ecx
|
||||
@@: add eax,[left_col]
|
||||
|
||||
cmp eax,[columns]
|
||||
jl @f
|
||||
mov eax,[columns]
|
||||
@@: cmp ebx,[lines]
|
||||
jl @f
|
||||
mov ebx,[lines]
|
||||
dec ebx
|
||||
@@:
|
||||
cmp [pos.x],eax
|
||||
jne .change_cur_pos
|
||||
cmp [pos.y],ebx
|
||||
je still.skip_write
|
||||
|
||||
.change_cur_pos:
|
||||
mov [pos.x],eax
|
||||
mov eax,[pos.y]
|
||||
mov [pos.y],ebx
|
||||
call check_cur_vis_inv
|
||||
jc .check_ldown
|
||||
; cmp eax,ebx
|
||||
; je @f
|
||||
; push ebx
|
||||
; mov ebx,eax
|
||||
; call drawfile.ex
|
||||
; pop eax
|
||||
; @@: mov ebx,eax
|
||||
call draw_file.ex
|
||||
.check_ldown:
|
||||
jmp still
|
||||
|
||||
.check_vscroll:
|
||||
mov ecx,[p_info.client_box.width]
|
||||
sub ecx,SCRLW-2
|
||||
pushd ecx [top_ofs] ecx [bot_ofs]
|
||||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||||
add [__rc+0x8],SCRLW-1;!!!!!!!!!!!!!!-2
|
||||
add [__rc+0x4],SCRLW;!!!!!!!!!!!!!!+1
|
||||
sub [__rc+0xC],SCRLW*2+3
|
||||
mov ecx,__rc
|
||||
call pt_in_rect
|
||||
jnc .check_hscroll
|
||||
|
||||
.check_vscroll.2:
|
||||
sub ebx,[top_ofs]
|
||||
sub ebx,SCRLW;!!!!!!!!!!!!!!+1
|
||||
; sub ebx,[__rc+0x4]
|
||||
cmp [vscrl_capt],0
|
||||
jge .vcaptured
|
||||
mov eax,[vscrl_top]
|
||||
cmp ebx,eax
|
||||
jb .center_vcapture
|
||||
add eax,[vscrl_size]
|
||||
cmp ebx,eax
|
||||
jae .center_vcapture
|
||||
mov eax,ebx
|
||||
sub eax,[vscrl_top]
|
||||
dec eax
|
||||
mov [vscrl_capt],eax
|
||||
dec ebx
|
||||
jmp .vcaptured
|
||||
.center_vcapture:
|
||||
mov eax,[vscrl_size]
|
||||
shr eax,1
|
||||
mov [vscrl_capt],eax
|
||||
.vcaptured:
|
||||
sub ebx,[vscrl_capt]
|
||||
jns @f
|
||||
xor ebx,ebx
|
||||
@@: mov [mouse_captured],1
|
||||
mov eax,[bot_ofs]
|
||||
sub eax,[top_ofs]
|
||||
sub eax,[vscrl_size]
|
||||
sub eax,SCRLW*3-2
|
||||
cmp eax,ebx
|
||||
jge @f
|
||||
mov ebx,eax
|
||||
@@:
|
||||
mov [vscrl_top],ebx
|
||||
mov eax,[lines]
|
||||
sub eax,[lines.scr]
|
||||
imul ebx
|
||||
mov ebx,[bot_ofs]
|
||||
sub ebx,[top_ofs]
|
||||
sub ebx,SCRLW*3-2 ;**
|
||||
sub ebx,[vscrl_size]
|
||||
idiv ebx
|
||||
cmp eax,[top_line]
|
||||
je still.skip_write
|
||||
mov [top_line],eax
|
||||
call check_bottom_right
|
||||
call draw_file
|
||||
jmp still.skip_write
|
||||
|
||||
.check_hscroll:
|
||||
pushd (5+SCRLW+1) [bot_ofs] [p_info.box.width] [bot_ofs]
|
||||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||||
add [__rc+0x8],-SCRLW*2-10-1
|
||||
add [__rc+0x4],-SCRLW
|
||||
add [__rc+0xC],-2
|
||||
mov ecx,__rc
|
||||
call pt_in_rect
|
||||
jnc .check_main_menu
|
||||
|
||||
.check_hscroll.2:
|
||||
mov ebx,eax
|
||||
sub ebx,(5+SCRLW+1)
|
||||
; sub ebx,[__rc+0x0]
|
||||
cmp [hscrl_capt],0
|
||||
jge .hcaptured
|
||||
mov eax,[hscrl_top]
|
||||
cmp ebx,eax
|
||||
jl .center_hcapture
|
||||
add eax,[hscrl_size]
|
||||
cmp ebx,eax
|
||||
jge .center_hcapture
|
||||
mov eax,ebx
|
||||
sub eax,[hscrl_top]
|
||||
dec eax
|
||||
mov [hscrl_capt],eax
|
||||
dec ebx
|
||||
jmp .hcaptured
|
||||
.center_hcapture:
|
||||
mov eax,[hscrl_size]
|
||||
shr eax,1
|
||||
mov [hscrl_capt],eax
|
||||
.hcaptured:
|
||||
sub ebx,[hscrl_capt]
|
||||
jns @f
|
||||
xor ebx,ebx
|
||||
@@: mov [mouse_captured],1
|
||||
mov eax,[p_info.box.width]
|
||||
sub eax,[hscrl_size]
|
||||
sub eax,SCRLW*3+10+1
|
||||
cmp eax,ebx
|
||||
jge @f
|
||||
mov ebx,eax
|
||||
@@:
|
||||
mov [hscrl_top],ebx
|
||||
mov eax,[columns]
|
||||
sub eax,[columns.scr]
|
||||
imul ebx
|
||||
mov ebx,[p_info.box.width]
|
||||
sub ebx,SCRLW*3+10+1 ;**
|
||||
sub ebx,[hscrl_size]
|
||||
idiv ebx
|
||||
cmp eax,[left_col]
|
||||
je still.skip_write
|
||||
mov [left_col],eax
|
||||
call check_bottom_right
|
||||
call draw_file
|
||||
jmp still.skip_write
|
||||
|
||||
.check_main_menu:
|
||||
cmp [do_not_draw],0
|
||||
jne .capture_off
|
||||
|
||||
@@: mcall 37,2
|
||||
test eax,0x01
|
||||
jz @f
|
||||
mcall 5,1
|
||||
jmp @b
|
||||
@@: and [mst],0xFE
|
||||
|
||||
cmp [mi_cur],0
|
||||
jle .capture_off
|
||||
mov ecx,[mi_cur]
|
||||
mov eax,[main_menu.popups+ecx*4-4]
|
||||
mov edx,main_menu
|
||||
call dword[main_menu.onshow+ecx*4-4]
|
||||
call setup_main_menu_popup
|
||||
mcall 51,1,popup_thread_start,POPUP_STACK
|
||||
mov [h_popup],eax
|
||||
|
||||
.l_up:
|
||||
.capture_off:
|
||||
or eax,-1
|
||||
mov [vscrl_capt],eax
|
||||
mov [hscrl_capt],eax
|
||||
mov [body_capt],eax
|
||||
mov [mouse_captured],0
|
||||
mov [just_from_popup],0
|
||||
jmp still.skip_write
|
||||
|
||||
|
||||
func setup_main_menu_popup
|
||||
mov ebx,[p_info.box.left]
|
||||
add ebx,[p_info.client_box.left]
|
||||
@@: dec ecx
|
||||
jz @f
|
||||
add edx,8+1
|
||||
movzx esi,byte[edx-1]
|
||||
add edx,esi
|
||||
jmp @b
|
||||
@@: movzx ecx,word[edx+2]
|
||||
add ebx,ecx
|
||||
|
||||
mov [eax+POPUP.x],bx
|
||||
mov ebx,[p_info.box.top]
|
||||
add ebx,[p_info.client_box.top]
|
||||
add ebx,ATOPH-1
|
||||
mov [eax+POPUP.y],bx
|
||||
mov [POPUP_STACK],eax
|
||||
ret
|
||||
endf
|
||||
|
||||
onshow:
|
||||
|
||||
.file:
|
||||
or byte[popup_file+3],0x01
|
||||
cmp [f_info.length],0
|
||||
jne @f
|
||||
and byte[popup_file+3],0xFE
|
||||
@@: ret
|
||||
|
||||
.edit:
|
||||
or byte[popup_edit+2],0x01
|
||||
cmp [copy_size],0
|
||||
jne @f
|
||||
and byte[popup_edit+2],0xFE
|
||||
@@: or dword[popup_edit+0],0x01000101
|
||||
cmp [sel.selected],0
|
||||
jne @f
|
||||
and dword[popup_edit+0],0xFEFFFEFE
|
||||
@@: ret
|
||||
|
||||
.search:
|
||||
mov byte[popup_search+0],0
|
||||
;mov byte[popup_search+4],0
|
||||
ret
|
||||
.run:
|
||||
ret
|
||||
.options:
|
||||
mov word[popup_options+0],0
|
||||
mov byte[popup_options+5],0
|
||||
or byte[popup_options+2],0x02
|
||||
test [options],OPTS_SECURESEL
|
||||
jnz @f
|
||||
and byte[popup_options+2],0xFD
|
||||
@@: or byte[popup_options+3],0x02
|
||||
test [options],OPTS_AUTOBRACES
|
||||
jnz @f
|
||||
and byte[popup_options+3],0xFD
|
||||
@@: or byte[popup_options+4],0x02
|
||||
test [options],OPTS_AUTOINDENT
|
||||
jnz @f
|
||||
and byte[popup_options+4],0xFD
|
||||
@@: or byte[popup_options+6],0x02
|
||||
test [options],OPTS_OPTIMSAVE
|
||||
jnz @f
|
||||
and byte[popup_options+6],0xFD
|
||||
@@: or byte[popup_options+8],0x02
|
||||
test [options],OPTS_LINENUMS
|
||||
jnz @f
|
||||
and byte[popup_options+8],0xFD
|
||||
@@: ret
|
||||
Reference in New Issue
Block a user