From 405250c8e2dfffd0c5a10da56654ada9a5ff58f5 Mon Sep 17 00:00:00 2001 From: "Alexey Teplov (" Date: Fri, 30 Mar 2007 05:32:17 +0000 Subject: [PATCH] mouse dicsharge array git-svn-id: svn://kolibrios.org@439 a494cfbc-eb01-0410-851d-a64ba20cac60 --- .../examples/editbox/trunk/EDITBOX.INC | 41 +++++++++---------- .../examples/editbox/trunk/build_ru.bat | 2 +- .../examples/editbox/trunk/editbox.asm | 6 +-- 3 files changed, 23 insertions(+), 26 deletions(-) diff --git a/programs/develop/examples/editbox/trunk/EDITBOX.INC b/programs/develop/examples/editbox/trunk/EDITBOX.INC index 8f446343fc..24400c926d 100644 --- a/programs/develop/examples/editbox/trunk/EDITBOX.INC +++ b/programs/develop/examples/editbox/trunk/EDITBOX.INC @@ -1,3 +1,4 @@ +; 30.03.2007 Переделал процедуру выделения, теперь текст выделяется только только мышкой ; 09.03.2007 Дописал управление mouse + shift выделение и перемещение ; 07.03.2007 Дописал управление с shift home + end усправил несколько багов ; 06.03.2007 Переписал полностью алгоритм управления shift @@ -266,6 +267,7 @@ pusha pop ebx mov edx,ebx add edx,eax ;ed_offset+width editbox + inc edx ;необходимо для номального положения курсора в крайней левой позиции cmp edx,ecx ja @f @@ -556,6 +558,7 @@ popa ;входные параметры ebp=color ebx=ed_shift_pos mov eax,dword ed_pos cmp eax,ebx + jae .sh_n push eax ;меньшее в eax push ebx ;большее @@ -899,6 +902,7 @@ pusha ;---------------------------------------------------------- test eax,1 jnz .mouse_left_button + and word ed_flags,ed_mouse_on_off popa ret @@ -956,39 +960,30 @@ pusha call .sh_cl_ and word ed_flags,ed_shift_bac_cl pop eax - -@@: call .check_shift ;проверим нажат ли shift - - test word ed_flags,ed_shift - je ._msh_exit - test word ed_flags,ed_shift_on +@@: + test word ed_flags,ed_mouse_on jne @f - - push dword ed_pos - pop dword ed_shift_pos - or word ed_flags,ed_shift_on + + mov dword ed_shift_pos,eax + or word ed_flags,ed_mouse_on + mov dword ed_pos,eax + jmp .m_sh @@: - mov ed_pos,eax - mov ebp,dword shift_color + cmp eax,dword ed_shift_pos ;если позиции не изменились + je @f + mov ed_pos,eax + mov ebp,dword shift_color mov ebx,dword ed_shift_pos call .sh_cl_ - or word ed_flags,ed_shift_bac ;установим бит что мы выделили - jmp .m_sh -._msh_exit: - mov ed_pos,eax - mov dword ed_shift_pos,eax + or word ed_flags,ed_mous_adn_b ;установим бит что мы выделили .m_sh: call .draw_text call .draw_cursor - - - and word ed_flags,ed_shift_off ;выключим в любом случае shift ;---------------------------------------------------------- ;--- процедура установки фокуса --------------------------- ;---------------------------------------------------------- bts word ed_flags,1 jc @f - call .draw_cursor jmp .drc ._blur: test word ed_flags,ed_always_focus @@ -1021,6 +1016,7 @@ ed_figure_only= 1000000000000000b ; ed_always_focus= 100000000000000b ed_focus= 10b ;фокус приложения ed_shift_on= 1000b ;если не установлен -значит впервые нажат shift,если был установлен, значит мы уже что - то делали удерживая shift +ed_shift_on_off=1111111111110111b ed_shift= 100b ;включается при нажатии на shift т.е. если нажимаю ed_shift_off= 1111111111111011b ed_shift_bac= 10000b ;бит для очистки выделеного shift т.е. при установке говорит что есть выделение @@ -1032,6 +1028,9 @@ ed_offset_fl= 1000000b ed_offset_cl= 1111111110111111b ed_insert= 10000000b ed_insert_cl= 1111111101111111b +ed_mouse_on = 100000000b +ed_mous_adn_b= 100001000b +ed_mouse_on_off=1111111011111111b ed_height=14 ; высота shift_color=0x6a9480 macro draw_edit_boxes start,end diff --git a/programs/develop/examples/editbox/trunk/build_ru.bat b/programs/develop/examples/editbox/trunk/build_ru.bat index ce31ec838e..e8f11fe8f3 100644 --- a/programs/develop/examples/editbox/trunk/build_ru.bat +++ b/programs/develop/examples/editbox/trunk/build_ru.bat @@ -1,3 +1,3 @@ @fasm editbox.asm editbox -@kpack editbox +REM @kpack editbox @pause \ No newline at end of file diff --git a/programs/develop/examples/editbox/trunk/editbox.asm b/programs/develop/examples/editbox/trunk/editbox.asm index 66c17c0e9b..75cd21f5bd 100644 --- a/programs/develop/examples/editbox/trunk/editbox.asm +++ b/programs/develop/examples/editbox/trunk/editbox.asm @@ -1,4 +1,4 @@ -; 09.08.2006 произведена оптимизация работы конпок DEL и Backspace? уменьшен размер выполняемого кода. +; 30.03.2007 произведена оптимизация работы конпок DEL и Backspace? уменьшен размер выполняемого кода. ;Эффективное программирование в KOLIBRI ;Оптимизированный компонент EditBox (Исходный вариант от Maxxxx32) ;Оптимизация команд. @@ -93,10 +93,8 @@ ed_buffer: .3: rb 11 .4: rb 3 ;два запасных байта необходимы для того что бы не пепереписать следующией байты, в конце буфера 0 -;text_b: db 'Кол-во символов' -;buffer: dd 0 buffer_end: -hed db 'EDITBOX optimization and retype date 09.03.2007',0 +hed db 'EDITBOX optimization and retype date 30.03.2007',0 rb 256 i_end1: rb 1024