modify example

git-svn-id: svn://kolibrios.org@491 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/examples/editbox/trunk/EDITBOX.INC

@@ -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 [procinfo.box.left]
-        mov     ebx,dword [ecx+34]
         xor     edx,edx
         sub     eax,ed_left
         sub     eax,ebx
@@ -424,8 +422,7 @@ use_key_func
 ;;;;;;;;;;;;;;;;;;
 ;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® ⥪áâ , ª®£¤  ¯à®¨á室¨â ¢ë室 §  ¯à¥¤¥«ë editbox
 ;;;;;;;;;;;;;;;;;;
-        mov     ecx,procinfo
+        mov     ebx,[procinfo.box.left]
-        mov     ebx,dword [ecx+34]
         add     ebx,ed_left
 if scr_w eq 
 else

programs/develop/examples/editbox/trunk/History

@@ -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)

programs/develop/examples/editbox/trunk/editbox.asm

@@ -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:
+procinfo process_information
-rb 1024 ;1 ª¡ ¤«ï ¯®«ã祭¨ï ®¡é¥© áâàãªâãàë 
+meos_app_end  
-rb 1024 ;Stack
+udata
-i_end: