modify example
git-svn-id: svn://kolibrios.org@491 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov (
parent
189a524abf
commit
59af2cd6af
|
|
@ -291,13 +291,12 @@ edit_ex
|
|||
;----------------------------------------------------------
|
||||
;--- € ¥ 㤥ন¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ë誨, ¯¥à¥¬¥é ï ªãàá®à, ¢® ¢á¥ à §ë¥ áâ®à®ë?
|
||||
;----------------------------------------------------------
|
||||
mov ecx,procinfo
|
||||
test word ed_flags,ed_mouse_on
|
||||
jne .mouse_wigwag
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®¢¥à塞, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box -------------
|
||||
;----------------------------------------------------------
|
||||
mov ebx,dword [ecx+38]
|
||||
mov ebx,[procinfo.box.top]
|
||||
add ebx,ed_top
|
||||
if scr_h eq
|
||||
else
|
||||
|
|
@ -312,7 +311,7 @@ end if
|
|||
|
||||
shr eax,16
|
||||
|
||||
mov ebx,dword [ecx+34]
|
||||
mov ebx,[procinfo.box.left]
|
||||
add ebx,ed_left
|
||||
if scr_w eq
|
||||
else
|
||||
|
|
@ -330,8 +329,7 @@ end if
|
|||
call .clear_cursor
|
||||
pop eax
|
||||
._mvpos:
|
||||
mov ecx,procinfo
|
||||
mov ebx,dword [ecx+34]
|
||||
mov ebx,dword [procinfo.box.left]
|
||||
xor edx,edx
|
||||
sub eax,ed_left
|
||||
sub eax,ebx
|
||||
|
|
@ -424,8 +422,7 @@ use_key_func
|
|||
;;;;;;;;;;;;;;;;;;
|
||||
;;¯à®æ¥¤ãà ®¡à ¡®âª¨ ¯®«®¦¥¨ï ¢ë¤¥«¥®£® ⥪áâ , ª®£¤ ¯à®¨á室¨â ¢ë室 § ¯à¥¤¥«ë editbox
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
mov ecx,procinfo
|
||||
mov ebx,dword [ecx+34]
|
||||
mov ebx,[procinfo.box.left]
|
||||
add ebx,ed_left
|
||||
if scr_w eq
|
||||
else
|
||||
|
|
|
|||
|
|
@ -6,6 +6,7 @@ You bunny wrote .....
|
|||
Это не много фольклера, связанное, с тем, что написание программ длинные и муторный процесс, и он не обходиться без выражений подобного содержания, но не попадающего в коментарии и основной код.....
|
||||
|
||||
Теплов Алексей Юрьевич aka <Lrz>
|
||||
; <Lrz> 14.05.2007 Использование макросов,удобочитаемось программы
|
||||
; <Lrz> 09.05.2007 Общая доработка макросов,замена несколько меток, миграция кода в edit_box.mac
|
||||
; <Lrz> 19.04.2007 Общая доработка макросов
|
||||
; <Lrz> 14.04.2007 Исправлено управление мышкой, при удалении последнего символа в буфере пишеться 0 (спасибо Mario79)
|
||||
|
|
|
|||
|
|
@ -3,22 +3,15 @@
|
|||
;Ž¯â¨¬¨§ æ¨ï ª®¬ ¤.
|
||||
;<Lrz> - ’¥¯«®¢ €«¥ªá¥© www.lrz.land.ru
|
||||
;§ £®«®¢®ª ¯à¨«®¦¥¨ï
|
||||
use32 ; âà á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §àï¤ëå ª®¬ ¤ë
|
||||
org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0
|
||||
db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)
|
||||
dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«
|
||||
dd start ; ¤à¥á, ª®â®àë© á¨á⥬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥
|
||||
; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì
|
||||
dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
|
||||
dd i_end ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â
|
||||
dd i_end ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ‚¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥
|
||||
dd 0x0,0x0 ; 㪠§ ⥫ì áâபã á ¯ à ¬¥âà ¬¨.
|
||||
include '..\..\..\..\macros.inc'
|
||||
; include 'macros.inc'
|
||||
include 'editbox.inc'
|
||||
meos_app_start
|
||||
align 4
|
||||
use_edit_box procinfo,22,5
|
||||
;Ž¡« áâì ª®¤
|
||||
start: ;’®çª ¢å®¤ ¢ ¯à®£à ¬¬ã
|
||||
code
|
||||
;start: ;’®çª ¢å®¤ ¢ ¯à®£à ¬¬ã
|
||||
mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
|
||||
;á¨á⥬ ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 á®®¡é¥¨¥ ® ¯¥à¥à¨á®¢ª¥, ¦ â ª®¯ª , ®¯à¥¤¥«ñ ï à ¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ¦ ⨥ ª®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥¨¥; á¡à áë¢ ¥âáï ¯à¨ ¯à®ç⥨¨) ¨ ¦ ⨥ ª« ¢¨è¨
|
||||
red_win:
|
||||
|
|
@ -35,7 +28,6 @@ still: ;
|
|||
mouse_edit_boxes editboxes,editboxes_end
|
||||
jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横«
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
button:
|
||||
mcall 17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª« ¢¨è¨
|
||||
test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®â稪 ᮡë⨩ still
|
||||
|
|
@ -64,7 +56,7 @@ edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
|
|||
editboxes_end:
|
||||
data_of_code dd 0
|
||||
mouse_flag dd 0x0
|
||||
hed db 'EDITBOX optimization and retype <Lrz> date 09.05.2007',0
|
||||
hed db 'EDITBOX optimization and retype <Lrz> date 14.05.2007',0
|
||||
rb 256
|
||||
ed_buffer:
|
||||
;.1: rb 514;256
|
||||
|
|
@ -74,7 +66,6 @@ ed_buffer:
|
|||
;¤¢ § ¯ áëå ¡ ©â ¥®¡å®¤¨¬ë ¤«ï ⮣® çâ® ¡ë ¥ ¯¥¯¥à¥¯¨á âì á«¥¤ãî騥© ¡ ©âë, ¢ ª®æ¥ ¡ãä¥à 0
|
||||
buffer_end:
|
||||
align 16
|
||||
procinfo:
|
||||
rb 1024 ;1 ª¡ ¤«ï ¯®«ãç¥¨ï ®¡é¥© áâàãªâãàë
|
||||
rb 1024 ;Stack
|
||||
i_end:
|
||||
procinfo process_information
|
||||
meos_app_end
|
||||
udata
|
||||
Loading…
Reference in New Issue