diff16 'tp-tbox.asm',0,$
virtual at ebp
tbox TBOX
end virtual
tb.pos.x db ?
tb.sel.x db ?
tb.sel.selected db ?
proc textbox.get_width
push ebx edx
movzx eax,[tbox.width]
add eax,-6
xor edx,edx
mov ebx,6
div ebx
movzx ebx,[tbox.length]
cmp eax,ebx
jle @f
mov eax,ebx
@@: pop edx ebx
ret
endp
proc textbox.delete_selection
cmp [tb.sel.selected],0
je .exit.2
pushad
movzx ecx,[tbox.length]
sub cl,[tb.sel.x]
lea eax,[tbox.text]
movzx esi,[tb.pos.x]
movzx edi,[tb.sel.x]
add esi,eax
add edi,eax
mov eax,esi
sub eax,edi
sub [tbox.length],al
cld
rep movsb
.exit:
mov al,[tb.sel.x]
mov [tbox.pos.x],al
mov [tbox.sel.x],al
popad
clc
ret
.exit.2:
stc
ret
endp
proc textbox.draw ; TBOX* ebp
call textbox.get_width
movzx ebx,[tbox.pos.x]
sub bl,[tbox.ofs.x]
sub ebx,eax
jle @f
mov bl,[tbox.pos.x]
sub bl,al
mov [tbox.ofs.x],bl
@@:
mov [tb.sel.selected],0
mov al,[tbox.pos.x]
mov ah,[tbox.sel.x]
cmp al,ah
je @f
inc [tb.sel.selected]
ja @f
xchg al,ah
@@: mov [tb.pos.x],al
mov [tb.sel.x],ah
mcall 13,dword[tbox.width],dword[tbox.height],[color_tbl.back]
mov edx,[cl_3d_inset]
call draw_framerect
call textbox.get_width
mov esi,eax
mov edi,eax
cmp ebp,[focused_tb]
je @f
mov ebx,dword[tbox.x-2]
mov bx,[tbox.y]
movzx eax,[tbox.height]
shr eax,1
add eax,4*65536-4
add ebx,eax
lea edx,[tbox.text]
mcall 4,,[color_tbl.text]
ret
@@: movzx eax,[tb.pos.x]
cmp al,[tb.sel.x]
je @f
sub al,[tbox.ofs.x]
jz @f
movzx ebx,[tb.sel.x]
sub bl,[tbox.ofs.x]
jge .lp1
xor ebx,ebx
.lp1: push eax ebx
sub eax,ebx
mov ecx,edi
sub ecx,ebx
cmp eax,ecx
jbe .lp2
mov eax,ecx
.lp2: imul eax,6
imul ebx,6
movzx ecx,[tbox.x]
add ecx,3
add ebx,ecx
shl ebx,16
add ebx,eax
movzx ecx,[tbox.height]
shr ecx,1
add cx,[tbox.y]
shl ecx,16
add ecx,-5*65536+10
mcall 13,,,[color_tbl.back.sel]
mov esi,[esp]
lea edx,[tbox.text]
movzx eax,[tbox.ofs.x]
add edx,eax
mov ebx,dword[tbox.x-2]
mov bx,[tbox.y]
movzx eax,[tbox.height]
shr eax,1
add eax,4*65536-4
add ebx,eax
mov eax,4
or esi,esi
jz .lp3
mcall ,,[color_tbl.text]
.lp3: sub edi,esi
jnz .lp4
add esp,8
jmp .exit
.lp4:
add edx,esi
imul esi,6*65536
add ebx,esi
pop ecx esi
sub esi,ecx
cmp esi,edi
jbe .lp5
mov esi,edi
.lp5:
mcall ,,[color_tbl.text.sel]
sub edi,esi
jz .exit
add edx,esi
imul esi,6*65536
add ebx,esi
lea ecx,[tbox.text]
mcall ,,[color_tbl.text],,edi
jmp .exit
@@: lea edx,[tbox.text]
movzx eax,[tbox.ofs.x]
add edx,eax
mov ebx,dword[tbox.x-2]
mov bx,[tbox.y]
movzx eax,[tbox.height]
shr eax,1
add eax,4*65536-4
add ebx,eax
movzx eax,[tbox.ofs.x]
call textbox.get_width
mov esi,eax
mcall 4,,[color_tbl.text]
.exit:
movzx ebx,[tbox.pos.x]
movzx eax,[tbox.ofs.x]
sub ebx,eax
imul ebx,6
movzx eax,[tbox.x]
add eax,3
add ebx,eax
push bx
shl ebx,16
pop bx
movzx ecx,[tbox.height]
shr ecx,1
add cx,[tbox.y]
push cx
shl ecx,16
pop cx
add ecx,-5*65536+4
mcall 38,,,0x01000000
add ebx,0x00010001
mcall
ret
endp
proc textbox.key
mov ebp,[focused_tb]
mov esi,accel_table_textbox
.acc: cmp ebx,[esi]
jne @f
call dword[esi+4]
jmp .exit.2
@@: add esi,8
cmp byte[esi],0
jne .acc
test [chr],KM_CTRLALT
jnz .exit
cmp [tbox.length],255
je .exit
movzx eax,byte[chr]
movzx eax,[eax+key0]
or al,al
jz .exit
mov al,[eax+key1]
cmp [tb_casesen],0
je @f
cmp al,$60
jle @f
add al,[add_table-$60+eax]
@@:
call textbox.delete_selection
mov ecx,255
sub cl,[tbox.pos.x]
lea edi,[tbox.text]
add edi,255
lea esi,[edi-1]
std
rep movsb
stosb
cld
inc [tbox.length]
call key.tb.right
.exit.2:
call textbox.draw
.exit:
ret
endp
textbox.mouse:
ret
proc key.tb.bkspace
call textbox.delete_selection
jnc @f
cmp [tbox.pos.x],0
je @f
call key.tb.left
jmp key.tb.del.direct
@@: ret
endp
proc key.tb.home
xor al,al
mov [tbox.pos.x],al
mov [tbox.sel.x],al
mov [tbox.ofs.x],al
ret
endp
proc key.tb.left
mov al,[tbox.pos.x]
mov [tbox.sel.x],al
dec al
js @f
mov [tbox.pos.x],al
mov [tbox.sel.x],al
cmp [tbox.ofs.x],al
jl @f
sub [tbox.ofs.x],8
jge @f
mov [tbox.ofs.x],0
@@: ret
endp
proc key.tb.right
call textbox.get_width
mov bl,[tbox.pos.x]
mov [tbox.sel.x],bl
inc bl
cmp bl,[tbox.length]
ja @f
mov [tbox.pos.x],bl
mov [tbox.sel.x],bl
sub bl,[tbox.ofs.x]
cmp bl,al
jbe @f
inc [tbox.ofs.x]
@@: ret
endp
proc key.tb.end
call textbox.get_width
movzx ebx,[tbox.length]
mov [tbox.pos.x],bl
mov [tbox.sel.x],bl
sub ebx,eax
jge @f
xor bl,bl
@@: mov [tbox.ofs.x],bl
ret
endp
proc key.tb.del
call textbox.delete_selection
jnc @f
.direct:
movzx ecx,[tbox.length]
sub cl,[tbox.pos.x]
jz @f
lea eax,[tbox.text]
movzx edi,[tbox.pos.x]
add edi,eax
lea esi,[edi+1]
dec [tbox.length]
cld
rep movsb
@@: ret
endp
proc key.tb.shift_home
xor al,al
mov [tbox.pos.x],al
mov [tbox.ofs.x],al
ret
endp
proc key.tb.shift_left
mov al,[tbox.pos.x]
dec al
js @f
mov [tbox.pos.x],al
cmp [tbox.ofs.x],al
jl @f
sub [tbox.ofs.x],8
jge @f
mov [tbox.ofs.x],0
@@: ret
endp
proc key.tb.shift_right
call textbox.get_width
mov bl,[tbox.pos.x]
inc bl
cmp bl,[tbox.length]
ja @f
mov [tbox.pos.x],bl
sub bl,[tbox.ofs.x]
cmp bl,al
jbe @f
inc [tbox.ofs.x]
@@: ret
endp
proc key.tb.shift_end
call textbox.get_width
movzx ebx,[tbox.length]
mov [tbox.pos.x],bl
sub ebx,eax
jge @f
xor bl,bl
@@: mov [tbox.ofs.x],bl
ret
endp