editbox ctrl-a support

git-svn-id: svn://kolibrios.org@7558 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
pathoswithin 2018-11-19 10:21:18 +00:00
parent 6adf85be15
commit a4f526b924

View File

@ -157,6 +157,8 @@ edit_box_key:
je edit_box_key.ctrl_c
cmp ah,47 ; Ctrl + V
je edit_box_key.ctrl_v
cmp ah,30 ; Ctrl + A
je edit_box_key.ctrl_a
@@:
cmp ah,SCAN_LWIN_RELEASE
jz edit_box.editbox_exit
@ -587,6 +589,14 @@ edit_box_key.ctrl_v:
.exit:
jmp edit_box.draw_bg_cursor_text
edit_box_key.ctrl_a:
mov eax,ed_size
mov ed_pos,eax
xor eax,eax
mov ed_shift_pos,eax
or word ed_flags,ed_shift_bac+ed_shift_on
jmp edit_box.draw_bg_cursor_text
;==========================================================
;=== ®¡à ¡®âª  ¬ëè¨ =======================================
;==========================================================