Subversion Repositories Kolibri OS

Rev

Rev 8852 | Rev 8932 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; ¬ ªà®á ¤«ï á¨á⥬­®© ¡¨¡«¨®â¥ª¨ box_lib.obj
  2. ; í«¥¬¥­â TextEditor ¤«ï Kolibri OS
  3. ; ä ©« ¯®á«¥¤­¨© à § ¨§¬¥­ï«áï 12.01.2021 IgorA
  4. ; ­  ª®¤ ¯à¨¬¥­¥­  GPL2 «¨æ¥­§¨ï
  5.  
  6. ;input:
  7. ; edi = pointer to tedit struct
  8. ; reg = index
  9. ;output:
  10. ; reg = pointer to 'tex' struct
  11. macro ConvertIndexToPointer reg {
  12.         imul reg,sizeof.symbol
  13.         add reg,ted_tex
  14. }
  15.  
  16. ;--- out_reg = ted_key_words_data[ind_reg].Text[0] ---
  17. macro ColToIndexOffset ind_reg,out_reg {
  18.         mov out_reg,ind_reg
  19.         imul out_reg,sizeof.TexColViv
  20.         add out_reg,ted_key_words_data
  21. }
  22.  
  23. TED_LINES_IN_NEW_FILE equ 30 ;ç¨á«® áâப ¢ ­®¢®¬ ä ©«¥
  24. MAX_COLOR_WORD_LEN equ 40
  25. ;------------------------------------------------------------------------------
  26. struct TexSelect
  27.         x0 dd ?
  28.         y0 dd ?
  29.         x1 dd ?
  30.         y1 dd ?
  31. ends
  32.  
  33. struct TexColViv
  34.         Text  rb MAX_COLOR_WORD_LEN ; á«®¢® ¤«ï ¯®¤á¢¥âª¨
  35.         f1    dd 0 ; á¯à ¢ª  ¯® á«®¢ã
  36.         flags db ? ; f1+4 ä« £¨ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ¢ë¤¥«¥­¨¨
  37.         endc  db ? ; f1+5 ᨬ¢®« ª®­æ  ¢ë¤¥«¥­¨ï (¨á¯®«ì§ã¥âáï ¯à¨ flags&4)
  38.         escc  db ? ; f1+6 íªà ­¨àãî騩 ᨬ¢®« (¨á¯®«ì§ã¥âáï ¯à¨ flags&4)
  39.         color db ? ; f1+7 ­®¬¥à 梥â 
  40. ends
  41.  
  42. struct symbol
  43.         c db ?    ;  +0 ᨬ¢®«
  44.         col db ?  ;  +1 梥â
  45.         perv dd ? ;  +2
  46.         next dd ? ;  +6 㪠§ â¥«¨
  47.         tc dd ?   ; +10 ¢à¥¬. ᮧ¤ ­¨ï
  48.         td dd ?   ; +14 ¢à¥¬. 㤠«¥­¨ï
  49. ends
  50. ;------------------------------------------------------------------------------
  51.  
  52. ted_symbol_space db 32 ;ascii ª®¤ ¯à®¡¥« , ¨­®£¤  ¡ë¢ ¥â ­ã¦¥­ ¢ ª®¤¥
  53. ted_symbol_tab db 26 ;ascii ª®¤ áâ५ª¨ ¢¯à ¢®, ¨á¯®«ì§ã¥âáï ¤«ï à¨á®¢ ­¨ï â ¡ã«ï樨 ¢ ०¨¬¥ ¯®ª §  ­¥¢¨¤¨¬ëå ᨬ¢®«®¢
  54.  
  55. if lang eq ru
  56.  
  57. txtRow db '‘âப ',0
  58. txtCol db '‡­ ª',0
  59. txtOtm db 'Žâ¬¥­ë',0
  60. txtBuf db 'ãä¥à:',0
  61.  
  62. else
  63.  
  64. txtRow db 'Rows',0
  65. txtCol db 'Cols',0
  66. txtOtm db 'Undo',0
  67. txtBuf db 'Buffer:',0
  68.  
  69. end if
  70.  
  71. ;EvChar - â ¡«¨æ  ¤«ï 䨫ìâ஢ ­¨ï ¤®¡ ¢«ï¥¬ëå ᨬ¢®«®¢, çâ®-¡ë ­¥ ¯®¯ «¨ «¨è­¨¥ §­ ª¨
  72. align 16
  73. EvChar db 0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0
  74.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  76.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  77.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  78.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  79.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  80.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0
  81.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  82.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  83.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  84.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  85.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  87.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  88.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  89.  
  90. KM_SHIFT equ 0x00010000
  91. KM_CTRL equ 0x00020000
  92. KM_ALT equ 0x00040000
  93. KM_NUMLOCK equ 0x00080000
  94.  
  95. ; KEY CODES
  96. KEY_F1 equ 0x0000003B
  97. KEY_F2 equ 0x0000003C
  98. KEY_F3 equ 0x0000003D
  99.  
  100.  
  101.  
  102. align 16
  103. proc ted_init uses eax ecx edi, edit:dword
  104.         mov edi,[edit]
  105.  
  106.         mov ecx,sizeof.symbol
  107.         imul ecx,ted_max_chars
  108.         invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¯ ¬ïâì
  109.         mov ted_tex,eax
  110.         mov ted_tex_1,eax
  111.         add ted_tex_1,sizeof.symbol
  112.         add eax,ecx
  113.         mov ted_tex_end,eax
  114.  
  115.         stdcall ted_clear, edi,1
  116.  
  117. ;-------------------------------------------------
  118.         mov ecx,1024 ;1024 - ¤«ï ¬ áᨢ  ted_arr_key_pos
  119.         add ecx,ted_syntax_file_size
  120.         invoke mem.alloc,ecx
  121.         mov ted_arr_key_pos,eax
  122.         add eax,1024
  123.         mov ted_syntax_file,eax
  124.  
  125.         stdcall ted_init_scroll_bars,edi,3
  126.         ret
  127. endp
  128.  
  129. MIN_W_SCRL_ARE equ 3 ;¬¨­¨¬ «ì­ ï ®â®¡à ¦ ¥¬ ï ®¡« áâì ¤«ï ¢¥àâ. áªà®««¨­£ 
  130. MIN_H_SCRL_ARE equ 3 ;¬¨­¨¬ «ì­ ï ®â®¡à ¦ ¥¬ ï ®¡« áâì ¤«ï £®à¨§. áªà®««¨­£ 
  131. ;input:
  132. ; opt = 1 - ¬¥­ïâì 梥â áªà®««¨­£®¢, 2 - ¨§¬¥­¨«¨áì à §¬¥àë ®ª­ ,
  133. ;  4 - ¨§¬¥­¨«¨áì à §¬¥àë ¤®ªã¬¥­â 
  134. align 16
  135. proc ted_init_scroll_bars, edit:dword, opt:dword
  136.         pushad
  137.         mov edi,[edit]
  138.         mov esi,ted_scr_w
  139.         mov ebx,ted_scr_h
  140.         bt dword[opt],0
  141.         jae @f
  142.                 mov ecx,ted_color_wnd_work
  143.                 mov dword[esi+sb_offs_bckg_col],ecx
  144.                 mov dword[ebx+sb_offs_bckg_col],ecx
  145.                 mov ecx,ted_color_wnd_capt
  146.                 mov dword[esi+sb_offs_frnt_col],ecx
  147.                 mov dword[ebx+sb_offs_frnt_col],ecx
  148.                 mov ecx,ted_color_wnd_bord
  149.                 mov dword[esi+sb_offs_line_col],ecx
  150.                 mov dword[ebx+sb_offs_line_col],ecx
  151.         @@:
  152.         bt dword[opt],2 ; ¨§¬¥­¨«¨áì à §¬¥àë ¤®ªã¬¥­â  ?
  153.         jae .doc_resize
  154.                 call ted_get_num_lines
  155.                 cmp eax,TED_LINES_IN_NEW_FILE
  156.                 jge @f
  157.                         mov eax,TED_LINES_IN_NEW_FILE
  158.                 @@:
  159.                 mov dword[esi+sb_offs_max_area],eax
  160.         .doc_resize:
  161.         bt dword[opt],1 ; ¨§¬¥­¨«¨áì à §¬¥àë ®ª­  ?
  162.         jae .no_size
  163.                         mov edx,ted_wnd_l
  164.                         add edx,ted_rec_l
  165.                         mov word[ebx+sb_offs_start_x],dx ;¢ëáâ ¢«ï¥¬ «¥¢ë© ®âáâ㯠£®à¨§. áªà®««¨­£ 
  166.                         mov eax,ted_wnd_h ;calculate lines in page
  167.                         mov edx,ted_wnd_t
  168.                         add edx,eax
  169.                         mov word[ebx+sb_offs_start_y],dx ;¢ëáâ ¢«ï¥¬ ¢¥àå­¨© ®âáâ㯠£®à¨§. áªà®««¨­£ 
  170.                 sub eax,ted_rec_t
  171.                 xor edx,edx
  172.                 mov ecx,ted_rec_h
  173.                 div ecx
  174.                 cmp eax,MIN_W_SCRL_ARE
  175.                 jg @f
  176.                         mov eax,MIN_W_SCRL_ARE
  177.                 @@:
  178.                 mov dword[esi+sb_offs_cur_area],eax
  179.  
  180.                 mov eax,ted_wnd_w ;calculate cols in page
  181.                         mov edx,ted_wnd_l ;«¥¢ë© ®âáâ㯠®ª­ 
  182.                         add edx,eax ;¤®¡ ¢«ï¥¬ è¨à¨­ã ®ª­ 
  183.                         mov word[esi+sb_offs_start_x],dx ;¢ëáâ ¢«ï¥¬ «¥¢ë© ®âáâ㯠¢¥àâ. áªà®««¨­£ 
  184.                         mov edx,ted_wnd_t
  185.                         mov word[esi+sb_offs_start_y],dx ;¢ëáâ ¢«ï¥¬ ¢¥àå­¨© ®âáâ㯠¢¥àâ. áªà®««¨­£ 
  186.                         mov edx,ted_wnd_h
  187.                         mov word[esi+sb_offs_size_y],dx ;¢ëáâ ¢«ï¥¬ ¢ëá®âã ¢¥àâ. áªà®««¨­£ 
  188.                 sub eax,ted_rec_l
  189.                         mov word[ebx+sb_offs_size_x],ax ;¢ëáâ ¢«ï¥¬ è¨à¨­ã £®à¨§. áªà®««¨­£ 
  190.                 xor edx,edx
  191.                 mov ecx,ted_rec_w
  192.                 div ecx
  193.                 cmp eax,MIN_H_SCRL_ARE
  194.                 jg @f
  195.                         mov eax,MIN_H_SCRL_ARE
  196.                 @@:
  197.                 dec eax
  198.                 mov dword[ebx+sb_offs_cur_area],eax ;ãáâ ­ ¢«¨¢ ¥¬ ç¨á«® ᨬ¢®«®¢, ª®â®àë¥ ¢« §ïâ ¢ íªà ­ ¤«ï £®à¨§. áªà®««¨­£ 
  199.         .no_size:
  200.         popad
  201.         ret
  202. endp
  203.  
  204. align 16
  205. proc ted_delete uses edi, edit:dword
  206.         mov edi,[edit]
  207.         invoke mem.free,ted_tex
  208.         invoke mem.free,ted_arr_key_pos ;ted_syntax_file
  209.         ret
  210. endp
  211.  
  212.  
  213. ;input:
  214. ; eax = key kodes
  215. align 16
  216. proc ted_key, edit:dword, table:dword, control:dword
  217.         pushad
  218.         mov edi,[edit]
  219.         mov esi,ted_el_focus
  220.         cmp dword[esi],edi
  221.         jne .end_key_fun ;í«¥¬¥­â ­¥ ¢ 䮪ãᥠ¢ë室¨¬ ¨§ ä㭪樨
  222.         mov esi,dword[control]
  223.  
  224.         cmp ah,KEY_F1 ;[F1]
  225.         jne @f
  226.                 stdcall ted_show_help_f1,edi
  227.                 jmp .end_key_fun
  228.         @@:
  229.         cmp ah,KEY_F3 ;[F3]
  230.         jne @f
  231.                 stdcall ted_but_find,edi,0
  232.                 jmp .end_key_fun
  233.         @@:
  234.  
  235.         test esi,KM_CTRL ;Ctrl+...
  236.         jz .key_Ctrl
  237.                 ; *** ¢ë§®¢ ¢­¥è­¨å ä㭪権 ª®â®àë¥ âॡãîâ ®ª­  ®âªàëâ¨ï/á®åà ­¥­¨ï/¯®¨áª /...
  238.                 cmp ted_fun_on_key_ctrl_all,0
  239.                 je .end0
  240.                 xor al,al
  241.                 cmp ah,24 ;Ctrl+O
  242.                 jne @f
  243.                         mov al,'O'
  244.                 @@:
  245.                 cmp ah,31 ;Ctrl+S
  246.                 jne @f
  247.                         mov al,'S'
  248.                 @@:
  249.                 cmp ah,33 ;Ctrl+F
  250.                 jne @f
  251.                         mov al,'F'
  252.                 @@:
  253.                 cmp ah,34 ;Ctrl+G
  254.                 jne @f
  255.                         mov al,'G'
  256.                 @@:
  257.                 cmp ah,35 ;Ctrl+H
  258.                 jne @f
  259.                         mov al,'H'
  260.                 @@:
  261.                 cmp ah,49 ;Ctrl+N
  262.                 jne @f
  263.                         mov al,'N'
  264.                 @@:
  265.                 or al,al
  266.                 jz .end0
  267.                         and eax,0xff
  268.                         test esi,KM_SHIFT
  269.                         jz @f
  270.                                 or eax,0x100
  271.                         @@:
  272.                         stdcall ted_fun_on_key_ctrl_all, eax
  273.                         jmp .end_key_fun
  274.                 .end0:
  275.  
  276.                 ; *** ¢ë§®¢ ¢­ãâ७­¨å ä㭪権
  277.                 cmp ah,30 ;Ctrl+A
  278.                 jne @f
  279.                         call ted_sel_all
  280.                 @@:
  281.                 cmp ah,44 ;Ctrl+Z
  282.                 jne @f
  283.                         stdcall ted_but_undo,edi
  284.                 @@:
  285.                 cmp ah,45 ;Ctrl+X
  286.                 jne @f
  287.                         stdcall ted_but_cut,edi
  288.                 @@:
  289.                 cmp ah,46 ;Ctrl+C
  290.                 jne @f
  291.                         stdcall ted_but_copy,edi
  292.                 @@:
  293.                 cmp ah,47 ;Ctrl+V
  294.                 jne @f
  295.                         stdcall ted_but_paste,edi
  296.                 @@:
  297.                 cmp ah,199 ;Ctrl+Home
  298.                 jne @f
  299.                         call ted_key_ctrl_home
  300.                 @@:
  301.                 cmp ah,207 ;Ctrl+End
  302.                 jne @f
  303.                         call ted_key_ctrl_end
  304.                 @@:
  305.                 jmp .end_key_fun
  306.         .key_Ctrl:
  307.  
  308.         test esi,KM_SHIFT ;Shift+...
  309.         jz .key_Shift
  310.                 cmp ah,72 ;Shift+Up
  311.                 jne @f
  312.                         call ted_sel_key_up
  313.                 @@:
  314.                 cmp ah,75 ;Shift+Left
  315.                 jne @f
  316.                         call ted_sel_key_left
  317.                 @@:
  318.                 cmp ah,77 ;Shift+Right
  319.                 jne @f
  320.                         call ted_sel_key_right
  321.                 @@:
  322.                 cmp ah,80 ;Shift+Down
  323.                 jne @f
  324.                         call ted_sel_key_down
  325.                 @@:
  326.                 ;mov ted_drag_k,1 ;­ ç¨­ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
  327.                 jmp .key_MoveCur
  328.         .key_Shift:
  329. ;-------------------------------------------------
  330.         cmp ah,72 ;178 ;Up
  331.         jne @f
  332.                 call ted_draw_cursor_sumb
  333.                 call ted_cur_move_up
  334.                 cmp dl,8
  335.                 jne .no_red_0
  336.                         call ted_scroll_set_redraw
  337.                         stdcall ted_draw,edi
  338.                         jmp @f
  339.                 .no_red_0:
  340.                 call ted_sel_end
  341.         @@:
  342.         cmp ah,80 ;177 ;Down
  343.         jne @f
  344.                 call ted_draw_cursor_sumb
  345.                 call ted_cur_move_down
  346.                 cmp dl,8
  347.                 jne .no_red_1
  348.                         call ted_scroll_set_redraw
  349.                         stdcall ted_draw,edi
  350.                         jmp @f
  351.                 .no_red_1:
  352.                 call ted_sel_end
  353.         @@:
  354.         cmp ah,75 ;176 ;Left
  355.         jne @f
  356.                 call ted_draw_cursor_sumb
  357.                 call ted_cur_move_left
  358.                 cmp dl,8
  359.                 jne .no_red_2
  360.                         call ted_scroll_set_redraw
  361.                         stdcall ted_draw,edi
  362.                         jmp @f
  363.                 .no_red_2:
  364.                 call ted_sel_end
  365.         @@:
  366.         cmp ah,77 ;179 ;Right
  367.         jne @f
  368.                 call ted_draw_cursor_sumb
  369.                 call ted_cur_move_right
  370.                 cmp dl,8
  371.                 jne .no_red_3
  372.                         call ted_scroll_set_redraw
  373.                         stdcall ted_draw,edi
  374.                         jmp @f
  375.                 .no_red_3:
  376.                 call ted_sel_end
  377.         @@:
  378.         cmp ah,71 ;180 ;Home
  379.         jne @f
  380.                 call ted_draw_cursor_sumb
  381.                 call ted_cur_move_x_first_char
  382.                 cmp dl,8
  383.                 jne .no_red_4
  384.                         call ted_scroll_set_redraw
  385.                         stdcall ted_draw,edi
  386.                         jmp @f
  387.                 .no_red_4:
  388.                 call ted_sel_end
  389.         @@:
  390.         cmp ah,79 ;181 ;End
  391.         jne @f
  392.                 call ted_draw_cursor_sumb
  393.                 call ted_cur_move_x_last_char
  394.                 cmp dl,8
  395.                 jne .no_red_5
  396.                         call ted_scroll_set_redraw
  397.                         stdcall ted_draw,edi
  398.                         jmp @f
  399.                 .no_red_5:
  400.                 call ted_sel_end
  401.         @@:
  402.         cmp ah,73 ;184 ;PageUp
  403.         jne @f
  404.                 call ted_cur_move_page_up
  405.                 cmp dl,0
  406.                 je @f
  407.                 call ted_scroll_set_redraw
  408.                 stdcall ted_draw,edi
  409.                 mov ted_drag_k,0 ;§ ª ­ç¨¢ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
  410.         @@:
  411.         cmp ah,81 ;183 ;PageDown
  412.         jne @f
  413.                 call ted_cur_move_page_down
  414.                 cmp dl,0
  415.                 je @f
  416.                 call ted_scroll_set_redraw
  417.                 stdcall ted_draw,edi
  418.                 mov ted_drag_k,0 ;§ ª ­ç¨¢ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
  419.         @@:
  420. ;-------------------------------------------------
  421.         .key_MoveCur:
  422.  
  423.         ;­¨¦¥ ¯à®¯ã᪠îâáï á«ã¦¥¡­ë¥ ª« ¢¨è¨, ª®â®àë¥ ¬®£ãâ ¤ ¢ âì ¬ãá®à­ë¥ ᨬ¢®«ë ¢ ®ª­®
  424.         cmp ah,42 ;[L Shift] ª®£¤  ­ ¦ â ¡¥§ ¤àã£¨å ª­®¯®ª
  425.         je .end_key_fun
  426.         cmp ah,54 ;[R Shift] ª®£¤  ­ ¦ â ¡¥§ ¤àã£¨å ª­®¯®ª
  427.         je .end_key_fun
  428.         cmp ah,58 ;[Caps Lock]
  429.         je .end_key_fun
  430.         cmp ah,69 ;[Pause Break]
  431.         je .end_key_fun
  432.         cmp ah,120 ;[Fn]
  433.         je .end_key_fun
  434.         cmp ah,0x80 ;if key up
  435.         ja .end_key_fun
  436.  
  437.         cmp dword[table],0
  438.         je @f
  439.                 stdcall KeyConvertToASCII, [table]
  440.         @@:
  441.  
  442.         ;mov ted_drag_k,0 ;§ ª ­ç¨¢ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
  443.  
  444.         lea edx,[EvChar] ;¡¥à¥¬  ¤à¥á â ¡«¨æë á ¤®¯ãá⨬묨 ᨬ¢®« ¬¨
  445.         add dl,ah
  446.         jae @f
  447.                 add edx,0x100 ;¥á«¨ ¡ë«® ¯¥à¥¯®«­¥­¨¥ ¯à¨ ¤®¡ ¢«¥­¨¨ ª®¤  ᨬ¢®« 
  448.         @@:
  449.         cmp byte[edx],1
  450.         jne @f
  451.                 mov ted_key_new,ah
  452.                 call ted_set_undo
  453.                 mov edx,ted_opt_ed_change_time+ted_opt_ed_move_cursor
  454.                 stdcall ted_sel_text_del,edx
  455.                 cmp al,1
  456.                 jne .del
  457.                         mov edx,ted_opt_ed_move_cursor
  458.                 .del:
  459.                 cmp ted_cur_ins,1
  460.                 je .no_ins_mod
  461.                         stdcall ted_text_del,edi,ted_opt_ed_change_time
  462.                         mov edx,ted_opt_ed_move_cursor
  463.                 .no_ins_mod:
  464.                 mov ecx,edi
  465.                 add ecx,ted_offs_key_new
  466.                 stdcall ted_text_add,edi,ecx,1,edx ;¤®¡ ¢«ï¥¬ ᨬ¢®« ¢¢¥¤¥­­ë© á ª« ¢¨ âãàë
  467.                 cmp ted_key_new,13
  468.                 jne .dr_m_win
  469.                         ;¥á«¨ ¢áâ ¢¨«¨ ᨬ¢®« ­®¢®© áâப¨
  470.                         mov ecx,ted_scr_w
  471.                         inc dword[ecx+sb_offs_max_area] ;㢥«¨ç¨¢ ¥¬ à §¬¥à ¢¥à⨪ «ì­®£® áªà®««¨­£ 
  472.                         mov edx,ted_cur_y
  473.                         cmp edx,[ecx+sb_offs_cur_area]
  474.                         jl .no_change
  475.                                 dec ted_cur_y ;ªãàá®à ®áâ ¢«ï¥¬ ­  ¬¥áâ¥
  476.                                 inc dword[ecx+sb_offs_position] ;ᤢ¨£ ¥¬ ¯®«§ã­®ª
  477.                         .no_change:
  478.                         stdcall ted_draw,edi
  479.                         jmp .dr_cur_l
  480.                 .dr_m_win:
  481.                         stdcall ted_draw_cur_line,edi
  482.                 .dr_cur_l:
  483.                 cmp ted_fun_draw_panel_buttons,0
  484.                 je @f
  485.                         call ted_fun_draw_panel_buttons
  486.         @@:
  487.  
  488.         cmp ah,8 ;[<-]
  489.         jne @f
  490.                 call ted_set_undo
  491.                 stdcall ted_sel_text_del,ted_opt_ed_change_time
  492.                 cmp al,1
  493.                 je .del_one_b
  494.                         stdcall ted_text_del,edi,ted_opt_ed_change_time+ted_opt_ed_move_cursor
  495.                 .del_one_b:
  496.                 stdcall ted_draw,edi
  497.                 cmp ted_fun_draw_panel_buttons,0
  498.                 je .end_key_fun
  499.                         call ted_fun_draw_panel_buttons
  500.                 jmp .end_key_fun
  501. align 4
  502.         @@:
  503.  
  504.         cmp ah,182 ;Delete
  505.         jne @f
  506.                 call ted_set_undo
  507.                 stdcall ted_sel_text_del,ted_opt_ed_change_time
  508.                 cmp al,1
  509.                 je .del_one_d
  510.                         stdcall ted_text_del,edi,ted_opt_ed_change_time
  511.                 .del_one_d:
  512.                 stdcall ted_draw,edi
  513.                 cmp ted_fun_draw_panel_buttons,0
  514.                 je .end_key_fun
  515.                         call ted_fun_draw_panel_buttons
  516.                 jmp .end_key_fun
  517.         @@:
  518.  
  519.         cmp ah,185 ;Ins
  520.         jne @f
  521.                 call ted_draw_cursor_sumb
  522.                 xor ted_cur_ins,1
  523.                 call ted_draw_main_cursor
  524.         @@:
  525.  
  526.         .end_key_fun:
  527.         popad
  528.         ret
  529. endp
  530.  
  531. ;output:
  532. ; al = 1 - can save
  533. align 16
  534. proc ted_can_save uses ecx edi, edit:dword
  535.         mov edi,[edit]
  536.  
  537.         mov ecx,ted_tim_ch
  538.         sub ecx,ted_tim_undo
  539.         mov al,1
  540.         cmp ted_tim_ls,ecx
  541.         jne @f
  542.                 dec al
  543.         @@:
  544.         ret
  545. endp
  546.  
  547. ;input:
  548. ; edi = pointer to tedit struct
  549. ;output:
  550. ; al = 1 - selected
  551. align 16
  552. proc ted_is_select uses ebx
  553.         xor al,al
  554.         cmp ted_drag_m,1
  555.         je @f
  556.                 inc al
  557.                 mov ebx,ted_sel_x0
  558.                 cmp ebx,ted_sel_x1
  559.                 jne @f
  560.                 mov ebx,ted_sel_y0
  561.                 cmp ebx,ted_sel_y1
  562.                 jne @f
  563.                 xor al,al
  564.         @@:
  565.         ret
  566. endp
  567.  
  568. ;input:
  569. ; edi = pointer to tedit struct
  570. align 16
  571. proc ted_sel_normalize uses ecx esi
  572.         push edi
  573.                 mov esi,edi
  574.                 add esi,ted_offs_sel
  575.                 add edi,ted_offs_seln
  576.                 mov ecx,sizeof.TexSelect/4
  577.                 rep movsd
  578.         pop edi
  579.  
  580.         jmp @f
  581.                 .swp_f:
  582.                 mov ecx,ted_seln_x0
  583.                 m2m ted_seln_x0,ted_seln_x1
  584.                 mov ted_seln_x1,ecx
  585.  
  586.                 mov ecx,ted_seln_y0
  587.                 cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)
  588.                 jle .end_f
  589.                 m2m ted_seln_y0,ted_seln_y1
  590.                 mov ted_seln_y1,ecx
  591.  
  592.                 jmp .end_f
  593. align 4
  594.         @@:
  595.  
  596.         mov ecx,ted_seln_y0
  597.         cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)
  598.         jg .swp_f
  599.  
  600.         cmp ecx,ted_seln_y1 ;(sel_y0==sel_y1)
  601.         jne .end_f
  602.                 mov ecx,ted_seln_x0
  603.                 cmp ecx,ted_seln_x1 ;(sel_x0>sel_x1)
  604.                 jg .swp_f
  605.  
  606.         .end_f:
  607.         ret
  608. endp
  609.  
  610. ;input:
  611. ; edi = pointer to tedit struct
  612. ;description:
  613. ; ”ã­ªæ¨ï ¢ë§ë¢ ¥¬ ï ¯à¨ ­ ç «¥ ¢ë¤¥«¥­¨ï
  614. align 16
  615. proc ted_sel_start uses eax ecx
  616.         mov eax,ted_scr_h
  617.         mov ecx,ted_cur_x
  618.         add ecx,[eax+sb_offs_position]
  619.         mov ted_sel_x0,ecx
  620.         mov ted_sel_x1,ecx
  621.  
  622.         mov eax,ted_scr_w
  623.         mov ecx,ted_cur_y
  624.         add ecx,[eax+sb_offs_position]
  625.         mov ted_sel_y0,ecx
  626.         mov ted_sel_y1,ecx
  627.         ret
  628. endp
  629.  
  630. ;input:
  631. ; edi = pointer to tedit struct
  632. ;description:
  633. ; ”ã­ªæ¨ï ¢ë§ë¢ ¥¬ ï ¯à¨ á­ï⨨ ¢ë¤¥«¥­¨ï
  634. align 16
  635. proc ted_sel_end uses eax
  636.         mov ted_drag_k,0 ;§ ª ­ç¨¢ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
  637.         call ted_is_select
  638.         or al,al
  639.         jz @f
  640.                 xor eax,eax
  641.                 mov ted_sel_x0,eax
  642.                 mov ted_sel_x1,eax
  643.                 mov ted_sel_y0,eax
  644.                 mov ted_sel_y1,eax
  645.                 stdcall ted_draw,edi
  646.                 jmp .end_f
  647.         @@:
  648.         call ted_draw_main_cursor
  649.         .end_f:
  650.         ret
  651. endp
  652.  
  653. ;input:
  654. ; edi = pointer to tedit struct
  655. ;description:
  656. ; ”ã­ªæ¨ï ¢ë§ë¢ ¥¬ ï ¯à¨ ¯¥à¥¬¥é¥­¨¨ ¢ë¤¥«¥­¨ï
  657. align 16
  658. proc ted_sel_move
  659.         push eax ecx
  660.                 mov ecx,ted_cur_x
  661.                 mov eax,ted_scr_h
  662.                 add ecx,[eax+sb_offs_position]
  663.                 mov ted_sel_x1,ecx
  664.  
  665.                 mov eax,ted_scr_w
  666.                 mov ecx,ted_cur_y
  667.                 add ecx,[eax+sb_offs_position]
  668.                 mov ted_sel_y1,ecx
  669.         pop ecx eax
  670.         cmp ted_fun_draw_panel_buttons,0 ;redraw toolbar (need to button Copy)
  671.         je @f
  672.                 call ted_fun_draw_panel_buttons
  673.         @@:
  674.         ret
  675. endp
  676.  
  677. ;input:
  678. ; edi = pointer to tedit struct
  679. ;description:
  680. ; ”ã­ªæ¨ï ¢ë§ë¢ ¥¬ ï ¯à¨ ¢ë¤¥«¥­¨¨ ¢á¥£® ¤®ªã¬¥­â 
  681. align 16
  682. proc ted_sel_all
  683.         push eax
  684.                 xor eax,eax
  685.                 mov ted_sel_x0,eax
  686.                 mov ted_sel_y0,eax
  687.  
  688.                 mov ted_sel_x1,eax ;???
  689.                 call ted_get_num_lines
  690.                 mov ted_sel_y1,eax
  691.         pop eax
  692.         stdcall ted_draw,edi
  693.         cmp ted_fun_draw_panel_buttons,0 ;redraw toolbar (need to button Copy)
  694.         je @f
  695.                 call ted_fun_draw_panel_buttons
  696.         @@:
  697.         ret
  698. endp
  699.  
  700. ;input:
  701. ; cl_al_mem = 1 - clear all memory
  702. align 16
  703. proc ted_clear uses ecx edi, edit:dword, cl_al_mem:dword
  704.         mov edi,[edit]
  705.  
  706.         mov ted_cur_x,0
  707.         mov ted_cur_y,0
  708.         mov ted_tim_ch,0
  709.         mov ted_tim_ls,0
  710.         mov ted_tim_co,0
  711.         mov ted_tim_undo,0
  712.         mov ted_help_id,-1
  713.         mov ecx,sizeof.symbol
  714.         shl ecx,1
  715.         add ecx,ted_tex
  716.         mov ted_ptr_free_symb,ecx
  717.  
  718.         mov ecx,ted_scr_w
  719.         mov dword[ecx+sb_offs_position],0
  720.         mov dword[ecx+sb_offs_max_area],100 ;ç¨á«® áâப ¢¨¤¨¬ëå ¢ ­®¢®¬ ¤®ªã¬¥­â¥
  721.         mov dword[ecx+sb_offs_redraw],1
  722.         mov ecx,ted_scr_h
  723.         mov dword[ecx+sb_offs_position],0
  724.         mov dword[ecx+sb_offs_max_area],100 ;ç¨á«® ᨬ¢®«®¢ ¢¨¤¨¬ëå ¢ ­®¢®¬ ¤®ªã¬¥­â¥
  725.  
  726.         mov ted_sel_x0,0
  727.         mov ted_sel_y0,0
  728.         mov ted_sel_x1,0
  729.         mov ted_sel_y1,0
  730.  
  731.         cmp dword[cl_al_mem],0
  732.         je .exit
  733.  
  734.         push edx
  735.         mov ecx,sizeof.symbol
  736.         imul ecx,ted_max_chars
  737.         mov edx,ted_tex
  738.         @@:
  739.                 mov byte [edx],0
  740.                 inc edx
  741.         loop @b
  742.         mov edx,ted_tex
  743.         mov dword [edx+symbol.next],1
  744.         pop edx
  745.  
  746.         .exit:
  747.         ret
  748. endp
  749.  
  750.  
  751. align 16
  752. proc ted_init_syntax_file, edit:dword
  753.         pushad
  754.         mov edi,[edit]
  755.  
  756.         mov ecx,0x100
  757.         mov edx,ted_arr_key_pos
  758.         @@:
  759.                 mov dword[edx],-1
  760.                 add edx,4
  761.         loop @b
  762.  
  763.         ;init: ted_colors_text_count, ted_key_words_count, ...
  764.         mov ted_colors_text_count,1
  765.         mov ted_help_text_f1,0
  766.         mov ted_help_id,-1 ;¨¤¥­â¨ä¨ª â®à á«®¢  ¤«ï á¯à ¢ª¨
  767.  
  768.         mov eax,edi ;á®å࠭塞 §­ ç¥­¨¥ edi
  769.         mov esi,ted_syntax_file
  770.         add edi,ted_offs_count_colors ;edi = &ted_key_words_count
  771.         mov ecx,9
  772.         rep movsd
  773.         mov edi,eax ;¢®áâ ­ ¢«¨¢ ¥¬ §­ ç¥­¨¥ edi
  774.  
  775.         mov eax,ted_syntax_file
  776.         add eax,32
  777.         mov ted_text_colors,eax
  778.  
  779.         mov eax,ted_colors_text_count ;init: count_colors_text (offset to key words)
  780.         lea eax,[4*eax+32]
  781.         add eax,ted_syntax_file
  782.         mov ted_key_words_data,eax
  783.  
  784.         mov ecx,ted_key_words_count ;init: ted_arr_key_pos (first key positions)
  785.         or ecx,ecx
  786.         jz .no_words
  787.         xor eax,eax
  788.         @@:
  789.                 ColToIndexOffset eax,edx
  790.                 movzx ebx,byte[edx]
  791.                 mov esi,ted_arr_key_pos
  792.                 lea esi,[esi+4*ebx]
  793.                 cmp dword[esi],-1
  794.                 jne .no_ch_key
  795.                         mov [esi],eax
  796.                 .no_ch_key:
  797.                 inc eax
  798.         loop @b
  799.         .no_words:
  800.  
  801.         ;init: ted_help_text_f1
  802.         mov ecx,ted_key_words_count ;ª®«¨ç¥á⢮ ª«î祢ëå á«®¢
  803.         imul ecx,sizeof.TexColViv   ;à §¬¥à áâàãªâãàë á 1-¬ ª«. á«.
  804.         add ecx,ted_key_words_data  ;­ ç «® ä ©«  á ª«. á«.
  805.         mov ted_help_text_f1,ecx    ;¬¥âª  ¢ ¯ ¬ïâ¨, £¤¥ ­ ç¨­¥âáï ⥪áâ á® á¯à ¢ª®©
  806.  
  807.         stdcall ted_init_scroll_bars,edi,1 ;¬¥­ï¥¬ æ¢¥â  áªà®««¨­£®¢
  808.         .no_colors:
  809.         popad
  810.         ret
  811. endp
  812.  
  813. ;input:
  814. ; ebx = file size
  815. ; edi = pointer to tedit struct
  816. ;description:
  817. ; ”ã­ªæ¨ï ¢ë§ë¢ ¥âáï ¯à¨ ®âªàë⨨ ä ©« 
  818. align 16
  819. proc ted_on_open_file
  820.         push eax ;destination
  821.         push ecx ;for cycle
  822.         push edx ;source
  823.         push esi
  824.  
  825.         or ebx,ebx
  826.         jnz @f
  827.                 ;¥á«¨ ä ©« ¯ãá⮩
  828.                 stdcall ted_clear,edi,1 ;ç¨á⨬ ¢áî ¯ ¬ïâì
  829.                 jmp .end_opn
  830. align 4
  831.         @@:
  832.         stdcall ted_clear,edi,0 ;ç¨á⨬ ­¥ ¢áî ¯ ¬ïâì, ¯®â®¬ã çâ® ­¨¦¥ ¡ã¤¥¬ ¥¥ § ¯®«­ïâì ­®¢ë¬¨ ¤ ­ë¬¨
  833.  
  834.         mov edx,ted_tex
  835.         mov ecx,ebx
  836.         .s_10:
  837.                 cmp word[edx],0xa0d ;¯à®¯ã᪠¥¬ 10-© ᨬ¢®« ¥á«¨ ¯¥à¥¤ ­¨¬ á⮨â 13-©
  838.                 jne @f
  839.                         dec ecx
  840.                         jz .no_10
  841.                         dec ecx
  842.                         jz .no_10
  843.                         add edx,2
  844.                 @@:
  845.                 cmp byte[edx],10
  846.                 jne @f
  847.                         mov byte[edx],13 ;¬¥­ï¥¬ 10-© ᨬ¢®« ª®­æ  áâப¨
  848.                 @@:
  849.                 inc edx
  850.                 loop .s_10
  851.         .no_10:
  852.  
  853.         ;¯¥à¥¢®¤¨¬ ®âªàëâë© ä ©« ¢­ãâàì í«¥¬¥­â  t_edit
  854.         mov ecx,ebx
  855.         lea eax,[ebx+2]
  856.         ConvertIndexToPointer eax
  857.         mov edx,ted_tex
  858.         add edx,ebx
  859.         push ebx
  860.         @@:
  861.                 mov ebx,[edx]
  862.                 mov byte[eax],bl
  863.                 mov dword[eax+symbol.perv],ecx
  864.                 inc dword[eax+symbol.perv]
  865.                 mov dword[eax+symbol.next],ecx
  866.                 add dword[eax+symbol.next],3
  867.                 ;mov byte[eax+1],0 ;col=0
  868.                 mov dword[eax+symbol.tc],-1
  869.                 mov dword[eax+symbol.td],0
  870.  
  871.                 or ecx,ecx
  872.                 jz @f
  873.                 dec ecx
  874.                 dec edx
  875.                 sub eax,sizeof.symbol
  876.                 jmp @b
  877. align 4
  878.         @@:
  879.         pop ebx
  880.         mov dword[eax+symbol.perv],0 ; first sumbol 'perv=0'
  881.  
  882.         mov edx,ted_tex ; ­ áâனª¨ ­ ç «ì­®£® á«ã¦¥¡­®£® ᨬ¢®« 
  883.         ; begining sumbol 'perv=0' 'next=2'
  884.         mov dword[edx+symbol.perv],0
  885.         mov dword[edx+symbol.next],2
  886.  
  887.         add edx,sizeof.symbol ; ­ áâனª¨ ª®­¥ç­®£® á«ã¦¥¡­®£® ᨬ¢®« 
  888.         mov dword[edx+symbol.next],0 ; last sumbol 'next=0'
  889.         mov dword[edx+symbol.perv],ebx ; last sumbol 'perv=last'
  890.         inc dword[edx+symbol.perv]
  891.         mov dword[edx+symbol.tc],0 ; áâ ¢¨¬ ¢à¥¬ï ᮧ¤ ­¨ï à ¢­®¥ 0, çâ® ¡ë ᨬ¢®« ¯à ¢¨«ì­® ®¡à ¡ â뢠«áï ¯à¨ ®âªàë⨨ ä ©«®¢ ¡®«ìè¨å 28 ¡ ©â
  892.  
  893.         mov edx,ebx
  894.         inc edx ;2 = rezerv sumbols
  895.         imul edx,sizeof.symbol
  896.         add edx,ted_tex
  897.         mov dword[edx+symbol.next],1 ; last sumbol 'next=1'
  898.  
  899.         @@: ;clear memory, need if before was open big file
  900.                 add edx,sizeof.symbol
  901.                 cmp edx,ted_tex_end
  902.                 jge .end_opn
  903.                         mov dword[edx+symbol.tc],0
  904.                         mov dword[edx+symbol.td],0
  905.                 jmp @b
  906. align 4
  907.         .end_opn:
  908.  
  909.         call ted_get_num_lines
  910.         cmp eax,TED_LINES_IN_NEW_FILE
  911.         jge @f
  912.                 mov eax,TED_LINES_IN_NEW_FILE
  913.         @@:
  914.         mov esi,ted_scr_w
  915.         mov dword[esi+sb_offs_max_area],eax
  916.         pop esi edx ecx eax
  917.  
  918.         call ted_text_colored
  919.         stdcall ted_draw,edi
  920.         cmp ted_fun_draw_panel_buttons,0
  921.         je @f
  922.                 call ted_fun_draw_panel_buttons
  923.         @@:
  924.         ret
  925. endp
  926.  
  927. ;input:
  928. ; edx = pointer to symbol struct
  929. ; edi = pointer to tedit struct
  930. ;output:
  931. ; edx = pointer to 'perv' visible symbol struct
  932. align 16
  933. ted_iterat_perv:
  934.         cmp ted_tim_undo,0
  935.         je .else
  936.         push ebx
  937.         @@:
  938.                 mov edx,[edx+symbol.perv]
  939.                 or edx,edx
  940.                 jz @f
  941.                 imul edx,sizeof.symbol
  942.                 add edx,ted_tex
  943.                 call ted_symbol_not_vis
  944.                 cmp bl,1
  945.                 je @b
  946.                 cmp byte[edx],10 ;¯à®¯ã᪠ᨬ¢®«  á ª®¤®¬ 10
  947.                 je @b
  948.         pop ebx
  949.         ret
  950.         @@:
  951.         mov edx,ted_tex ;­ ç «® ä ©« 
  952.         pop ebx
  953.         ret
  954.         .else:
  955.                 mov edx,[edx+symbol.perv]
  956.                 or edx,edx
  957.                 jz @f
  958.                 imul edx,sizeof.symbol
  959.                 add edx,ted_tex
  960.                 cmp dword[edx+symbol.td],0
  961.                 jne .else
  962.                 cmp byte[edx],10 ;¯à®¯ã᪠ᨬ¢®«  á ª®¤®¬ 10
  963.                 je .else
  964.         ret
  965.         @@:
  966.         mov edx,ted_tex ;­ ç «® ä ©« 
  967.         ret
  968.  
  969.  
  970. ;input:
  971. ; edx = pointer to symbol struct
  972. ; edi = pointer to tedit struct
  973. ;output:
  974. ; edx = pointer to 'next' visible symbol struct
  975. align 16
  976. ted_iterat_next:
  977.         cmp ted_tim_undo,0
  978.         je .else
  979.         push ebx
  980.         @@:
  981.                 mov edx,[edx+symbol.next]
  982.                 cmp edx,1
  983.                 jle @f
  984.                 imul edx,sizeof.symbol
  985.                 add edx,ted_tex
  986.  
  987.                 call ted_symbol_not_vis
  988.                 cmp bl,1
  989.                 je @b
  990.                 cmp byte[edx],10 ;¯à®¯ã᪠ᨬ¢®«  á ª®¤®¬ 10
  991.                 je @b
  992.         pop ebx
  993.         ret
  994.         @@:
  995.         mov edx,ted_tex_1 ;ª®­¥æ ä ©« 
  996.         pop ebx
  997.         ret
  998.         .else:
  999.                 mov edx,[edx+symbol.next]
  1000.                 cmp edx,1
  1001.                 jle @f
  1002.                 imul edx,sizeof.symbol
  1003.                 add edx,ted_tex
  1004.  
  1005.                 cmp dword[edx+symbol.td],0
  1006.                 jne .else
  1007.                 cmp byte[edx],10 ;¯à®¯ã᪠ᨬ¢®«  á ª®¤®¬ 10
  1008.                 je .else
  1009.         ret
  1010.         @@:
  1011.         mov edx,ted_tex_1 ;ª®­¥æ ä ©« 
  1012.         ret
  1013.  
  1014. ;input:
  1015. ; bl = symbol end of select
  1016. ; bh = íªà ­¨àãî騩 ᨬ¢®« (= 0 ¥á«¨ ­¥â ¯à®¢¥àª¨ ­  ­¨å)
  1017. ; edx = pointer to symbol struct
  1018. ; edi = pointer to tedit struct
  1019. ;description:
  1020. ; ­ ©â¨ á«¥¤ãîéãî ¯®§¨æ¨î 㪠§ ­­®£® ᨬ¢®« 
  1021. align 16
  1022. ted_iterat_next_pos_char:
  1023.         push ax
  1024.         mov al,1 ;¯à¥¤ë¤ã騩 ᨬ¢®«, á«ã¦¨â ¤«ï áà ¢­¥­¨ï á ᨬ¢®«®¬ bh
  1025.         @@:
  1026.                 cmp bl,byte[edx]
  1027.                 je .found
  1028.                 .no_found:
  1029.                 cmp edx,ted_tex_1
  1030.                 jle @f
  1031.                         mov al,byte[edx]
  1032.                         call ted_iterat_next
  1033.                         jmp @b
  1034.         .found:
  1035.                 cmp bh,al
  1036.                 je .no_found
  1037.         @@:
  1038.         call ted_iterat_next
  1039.         pop ax
  1040.         ret
  1041.  
  1042. ;input:
  1043. ; edx = pointer to symbol struct
  1044. ; edi = pointer to tedit struct
  1045. align 16
  1046. ted_iterat_perv_color_tag:
  1047.         @@:
  1048.                 cmp byte[edx+1],0
  1049.                 jne @f
  1050.                 call ted_iterat_perv
  1051.                 cmp edx,ted_tex_1
  1052.                 jle @f
  1053.                 jmp @b
  1054. align 4
  1055.         @@:
  1056.         ret
  1057.  
  1058. ;input:
  1059. ; edx = pointer to symbol struct
  1060. ; edi = pointer to tedit struct
  1061. align 16
  1062. ted_iterat_next_color_tag:
  1063.         @@:
  1064.                 call ted_iterat_next
  1065.                 cmp byte[edx+1],0
  1066.                 jne @f
  1067.                 cmp edx,ted_tex_1
  1068.                 jle @f
  1069.                 jmp @b
  1070. align 4
  1071.         @@:
  1072.         ret
  1073.  
  1074. ;input:
  1075. ; edx = pointer to symbol struct
  1076. ; edi = pointer to tedit struct
  1077. ;output:
  1078. ; bl = 1 if sumbol not visible
  1079. ; (tex[i].td+ted_tim_undo<=ted_tim_ch && tex[i].td) || (tex[i].tc>ted_tim_ch-ted_tim_undo)
  1080. align 16
  1081. ted_symbol_not_vis:
  1082.         push eax
  1083.  
  1084.         xor bl,bl
  1085.         cmp dword[edx+symbol.td],0
  1086.         je @f
  1087.         mov eax,[edx+symbol.td] ;eax=tex[i].td
  1088.         add eax,ted_tim_undo
  1089.         cmp eax,ted_tim_ch
  1090.         jg @f
  1091.                 mov bl,1
  1092.                 pop eax
  1093.                 ret
  1094.         @@:
  1095.  
  1096.         mov eax,ted_tim_ch
  1097.         sub eax,ted_tim_undo
  1098.         cmp [edx+symbol.tc],eax
  1099.         jle @f
  1100.                 or bl,1
  1101.         @@:
  1102.  
  1103.         pop eax
  1104.         ret
  1105.  
  1106. ;input:
  1107. ; text - pointer to text string
  1108. ; add_opt - options
  1109. align 16
  1110. proc ted_text_add, edit:dword, text:dword, t_len:dword, add_opt:dword
  1111.         locals
  1112.                 new_spc dd ? ;count new spaces
  1113.                 new_lin dd ? ;count new lines
  1114.         endl
  1115. ;¨á¯®«ì§®¢ ­¨¥ ॣ¨áâ஢ ¢­ãâਠä㭪樨:
  1116. ;eax - ¯®§¨æ¨ï ¤«ï ¢áâ ¢ª¨ ⥪áâ 
  1117. ;ebx - ¤«ï ¢à¥¬¥­­ëå ­ã¦¤, ¤«¨­­  ¢áâ ¢«ï¥¬®£® ⥪áâ 
  1118. ;ecx - ¤«ï ¢à¥¬¥­­ëå ­ã¦¤
  1119. ;edx - 㪠§ â¥«ì ­  áâàãªâãàã ᨬ¢®« 
  1120.         pushad
  1121.         cmp dword[t_len],1 ;¯à®¢¥à塞 ¤«¨­­ã ¤®¡¢«ï¥¬®£® ⥪áâ 
  1122.         jl .no_add ;ª®£¤  ¤«¨­­  <1 ¯à룠¥¬ ­  ª®­¥æ ä㭪樨, ¢® ¨§¡¥¦ ­¨¥ £«îª®¢
  1123.  
  1124.         mov edi,[edit]
  1125.         mov esi,[text]
  1126.  
  1127.         call ted_get_pos_by_cursor
  1128.         call ted_get_text_perv_pos
  1129.         call ted_get_text_arr_index ;eax=po_t
  1130.  
  1131.         mov dword[new_spc],0
  1132.         cmp ted_gp_opt,2
  1133.         je @f
  1134.                 push eax ;c_sp=cur[cn].x+Scroller->XPos-StrLen(cur[cn].y+Scroller->YPos);
  1135.                         mov eax,ted_scr_h
  1136.                         mov eax,[eax+sb_offs_position]
  1137.                         add eax,ted_cur_x ;eax - ­®¬¥à ᨬ¢®« 
  1138.                         mov [new_spc],eax
  1139.  
  1140.                         mov eax,ted_scr_w
  1141.                         mov eax,[eax+sb_offs_position]
  1142.                         add eax,ted_cur_y ;eax - ­®¬¥à áâப¨
  1143.                         call ted_strlen ;ebx = line len
  1144.                         sub [new_spc],ebx ;®â ¯®§¨æ¨¨ ªãàá®à  ®â­¨¬ ¥¬ ¤«¨­­ã áâப¨, 㧭 ¥¬ ª®««¨ç¥á⢮ ¤®¡ ¢«ï¥¬ëå ¯à®¡¥«®¢
  1145.                 pop eax
  1146.         @@:
  1147.  
  1148.         mov ebx,[t_len]
  1149.  
  1150.         mov dword[new_lin],0
  1151.         cmp ted_gp_opt,0
  1152.         jne @f
  1153.                 push eax
  1154.                         mov eax,ted_scr_w
  1155.                         mov eax,[eax+sb_offs_position]
  1156.                         add eax,ted_cur_y
  1157.                         inc eax
  1158.                         mov [new_lin],eax
  1159.  
  1160.                         call ted_get_num_lines
  1161.                         sub [new_lin],eax
  1162.                         ;㢥«¨ç¨¢ ¥¬ «¨­¨¨ ¢ áªà®««¨­£¥ ­  ç¨á«® ¤®¡ ¢«¥­­ëå ¤®¯®«­¨â¥«ì­ëå áâப
  1163.                         mov ecx,ted_scr_w
  1164.                         add [ecx+sb_offs_max_area],eax ;㢥«¨ç¨¢ ¥¬ à §¬¥à ¢¥à⨪ «ì­®£® áªà®««¨­£ 
  1165.                 pop eax
  1166.         @@:
  1167.  
  1168.         mov edx,ted_ptr_free_symb
  1169.         .beg_cycle: ;for(i=...;i<ted_max_chars;i++)
  1170.                 cmp dword[edx+symbol.tc],0 ;if(!tex[i].tc && !tex[i].td)
  1171.                 jne .u1f
  1172.                 cmp dword[edx+symbol.td],0
  1173.                 jne .u1f
  1174.                         test dword[add_opt],ted_opt_ed_change_time ;if(n_tim) ted_tim_ch++;
  1175.                         jz .no_tim
  1176.                                 inc ted_tim_ch
  1177.                         .no_tim:
  1178.                         test dword[add_opt],ted_opt_ed_move_cursor
  1179.                         jz .no_cur_mov
  1180.                         cmp dword[new_lin],0 ;¥á«¨ ¥áâì ¤®¡ ¢®ç­ë¥ áâப¨, â® ªãàá®à ¥é¥ ­¥ ¤¢¨£ ¥¬
  1181.                         jg .no_cur_mov
  1182.                         cmp dword[new_spc],0 ;¥á«¨ ­¥â ¤®¡ ¢®ç­ëå ¯à®¡¥«®¢, â® ªãàá®à ⮦¥ ­¥ ¤¢¨£ ¥¬
  1183.                         jg .no_cur_mov
  1184.                                 inc ted_cur_x ;move cursor
  1185.                                 ;call ted_go_to_pos
  1186.                                 cmp byte[esi],13
  1187.                                 jne .no_cur_mov
  1188.                                         mov ted_cur_x,0
  1189.                                         inc ted_cur_y
  1190.                                         ;㢥«¨ç¨¢ ¥¬ «¨­¨¨ ¢ áªà®««¨­£¥ ­  ç¨á«® ¤®¡ ¢«¥­­ëå ¢ ⥪á⥠áâப
  1191.                                         mov ecx,ted_scr_w
  1192.                                         inc dword[ecx+sb_offs_max_area] ;㢥«¨ç¨¢ ¥¬ à §¬¥à ¢¥à⨪ «ì­®£® áªà®««¨­£ 
  1193.                         .no_cur_mov:
  1194.  
  1195.                         ; *** ¢áâ ¢ª  ⥪ã饣® ᨬ¢®«  ¨§ áâப¨ ***
  1196.                         mov ecx,ted_opt_ed_change_time
  1197.                         not ecx
  1198.                         and [add_opt],ecx ;n_tim=false;
  1199.  
  1200.                         mov cl,byte[esi] ;tex[i].c=ta[ns];
  1201.                         mov byte[edx],cl
  1202.                         m2m dword[edx+symbol.tc],ted_tim_ch ;tex[i].tc=ted_tim_ch;
  1203.                         mov [edx+symbol.perv],eax ;tex[i].perv=po_t;
  1204.  
  1205.                         mov ecx,eax
  1206.                         imul ecx,sizeof.symbol
  1207.                         add ecx,ted_tex ; *** ecx = tex[po_t] ***
  1208.                         add ecx,symbol.next ; *** ecx = tex[po_t].next ***
  1209.                         m2m dword[edx+symbol.next],dword[ecx] ;tex[i].next=tex[po_t].next;
  1210.  
  1211.                         call ted_get_text_arr_index ;*** eax = i ***
  1212.                         mov [ecx],eax ;tex[po_t].next=i; // áá뫪¨ ¯¥à¥­ ¯à ¢«ï¥¬
  1213.                         mov ecx,[edx+symbol.next] ; *** ecx = tex[i].next ***
  1214.                         imul ecx,sizeof.symbol
  1215.                         add ecx,ted_tex ; *** ecx = tex[tex[i].next] ***
  1216.                         mov [ecx+symbol.perv],eax ;tex[tex[i].next].perv=i;
  1217.  
  1218.                         ; *** ¢áâ ¢ª  ¤®¯®«­¨â¥«ì­ëå áâப ¨ ¯à®¡¥«®¢
  1219.                         ; ¥á«¨ ªãàá®à ¢® ¢à¥¬ï ¢áâ ¢ª¨ ­ å®¤¨«áï §  ⥪á⮬ ***
  1220.                         cmp dword[new_lin],0 ;add lines or text
  1221.                         jle .spc_add
  1222.                                 dec dword[new_lin]
  1223.                                 mov byte [edx],13
  1224.                                 jmp .u1f
  1225.                         .spc_add:
  1226.                         cmp dword[new_spc],0 ;add spaces or text
  1227.                         jle .tex_add
  1228.                                 dec dword[new_spc]
  1229.                                 mov byte [edx],' '
  1230.                                 jmp .u1f
  1231.                         .tex_add:
  1232.                         inc esi ; ¯¥à¥å®¤ ª á«¥¤ãî饬㠢áâ ¢«ï¥¬®¬ã ᨬ¢®«ã
  1233.                         dec ebx
  1234.                 .u1f:
  1235.                 add edx,sizeof.symbol
  1236.                 cmp edx,ted_tex_end
  1237.                 jge @f ;out of memory
  1238.                 or ebx,ebx
  1239.                 jnz .beg_cycle
  1240.                 mov ted_ptr_free_symb,edx ;¬¥­ï¥¬ 㪠§ â¥«ì ­  ᢮¡®¤­ë© ᨬ¢®«, ¤«ï ¡®«¥¥ ¡ëáâண® ¯®¨áª  ¯ ¬ïâ¨
  1241.                 jmp .add_all
  1242.         @@:
  1243.         cmp ted_increase_size,0
  1244.         je .add_all
  1245.                 call ted_memory_increase
  1246.                 or ebx,ebx
  1247.                 jnz .beg_cycle
  1248.         .add_all: ;¢á¥ ᨬ¢®«ë ¤®¡ ¢«¥­ë
  1249.  
  1250.         call ted_text_colored
  1251.         .no_add:
  1252.         popad
  1253.         ret
  1254. endp
  1255.  
  1256. ;input:
  1257. ;  edx = pointer to sumbol, when insert
  1258. ;  edi = pointer to tedit struct
  1259. ;output:
  1260. ;  edx = new pointer to sumbol, when insert
  1261. align 16
  1262. proc ted_memory_increase
  1263.         cmp ted_increase_size,0
  1264.         je @f
  1265.                 push eax ebx ecx
  1266.                 mov ecx,ted_increase_size
  1267.                 add ecx,ted_max_chars
  1268.                 mov ted_max_chars,ecx
  1269.                 imul ecx,sizeof.symbol
  1270.                 invoke mem.realloc, ted_tex,ecx
  1271.                 mov ebx,ted_tex
  1272.                 mov ted_tex,eax
  1273.                 mov ted_tex_1,eax
  1274.                 add ted_tex_1,sizeof.symbol
  1275.                         sub edx,ebx
  1276.                         add edx,eax
  1277.                         mov ted_ptr_free_symb,edx
  1278.                 add eax,ecx
  1279.                 mov ted_tex_end,eax
  1280.                 pop ecx ebx eax
  1281.         @@:
  1282.         ret
  1283. endp
  1284.  
  1285. ;input:
  1286. ;  ecx = position to free insert cell
  1287. ;  edx = pointer to sumbol, when insert
  1288. ;  esi = added symbol
  1289. ;  edi = pointer to tedit struct
  1290. ;output:
  1291. ;  ecx = position to inserted cell
  1292. align 16
  1293. ted_char_add:
  1294.         .loop_b:
  1295.                 cmp ecx,ted_tex_end
  1296.                 jge .end_f
  1297.                 cmp dword[ecx+symbol.tc],0
  1298.                 jne @f
  1299.                         cmp dword[ecx+symbol.td],0
  1300.                         je .loop_e
  1301.                 @@:
  1302.                 add ecx,sizeof.symbol
  1303.                 jmp .loop_b
  1304. align 4
  1305.         .loop_e:
  1306.  
  1307.         push eax ebx
  1308.         mov eax,ted_tim_ch
  1309.         mov [ecx+symbol.tc],eax
  1310.         mov ax,si
  1311.         mov byte[ecx],al
  1312.  
  1313.         call ted_get_text_arr_index ; *** eax=pos ***
  1314.         mov [ecx+symbol.perv],eax ;tex[i].perv=pos;
  1315.         m2m dword[ecx+symbol.next],dword[edx+symbol.next] ;tex[i].next=tex[pos].next;
  1316.  
  1317.         push edx
  1318.                 mov edx,ecx
  1319.                 call ted_get_text_arr_index ; *** eax=i ***
  1320.         pop edx
  1321.  
  1322.         mov [edx+symbol.next],eax ;tex[pos].next=i; // áá뫪¨ ¯¥à¥­ ¯à ¢«ï¥¬
  1323.         mov ebx,[ecx+symbol.next]
  1324.         ConvertIndexToPointer ebx
  1325.         mov [ebx+symbol.perv],eax ;tex[tex[i].next].perv=i; // ...
  1326.         pop ebx eax
  1327.  
  1328.         .end_f:
  1329.         call ted_text_colored
  1330.         ret
  1331.  
  1332. ;description:
  1333. ; äã­ªæ¨ï ¤«ï ᬥ­ë ª®¤¨à®¢®ª
  1334. ;input:
  1335. ; table - â ¡«¨æ  ¤«ï ¯¥à¥ª®¤¨à®¢ª¨
  1336. align 16
  1337. proc ted_but_convert_by_table uses eax edx edi esi, edit:dword, table:dword
  1338.         mov edi,[edit]
  1339.         mov esi,[table]
  1340.         mov edx,ted_tex
  1341.         .cycle:
  1342.                 ;¯¥à¥å®¤¨¬ ­  á«¥¤ãî騩 ᨬ¢®«
  1343.                 mov edx,[edx+symbol.next]
  1344.                 cmp edx,1
  1345.                 jle .end_text
  1346.                 imul edx,sizeof.symbol
  1347.                 add edx,ted_tex
  1348.  
  1349.                 movzx eax,byte[edx]
  1350.                 add eax,esi
  1351.                 mov al,byte[eax]
  1352.                 cmp al,0
  1353.                 je @f
  1354.                         mov byte[edx],al ;¬¥­ï¥¬ ª®¤¨à®¢ªã ᨬ¢®« 
  1355.                 @@:
  1356.                 jmp .cycle
  1357.         .end_text:
  1358.         ;cmp esi,0
  1359.         ;je @f
  1360.                 stdcall ted_draw,edi ;®¡­®¢«ï¥¬ ®ª­®
  1361.         ;@@:
  1362.         ret
  1363. endp
  1364.  
  1365. ;input:
  1366. ; edi = pointer to tedit struct
  1367. ;output:
  1368. ; esi = count converted symbols
  1369. ;description:
  1370. ; ”ã­ªæ¨ï ¨á¯®«ì§ã¥âáï ¤«ï ᬥ­ë ॣ¨áâà  ¢ë¡à ­­ëå ᨬ¢®«®¢
  1371. align 16
  1372. proc ted_convert_sel_text, conv_fun:dword
  1373.         locals
  1374.                 conv_cou dd ?
  1375.         endl
  1376.         mov dword[conv_cou],0
  1377.         pushad
  1378.  
  1379.         call ted_is_select
  1380.         or al,al
  1381.         jz .end_f
  1382.                 call ted_set_undo
  1383.                 call ted_sel_normalize
  1384.  
  1385.                 mov esi,ted_seln_x0
  1386.                 mov ecx,ted_seln_y0
  1387.                 call ted_get_pos_by_coords
  1388.                 mov eax,edx
  1389.                 mov esi,ted_seln_x1
  1390.                 mov ecx,ted_seln_y1
  1391.                 call ted_get_pos_by_coords
  1392.                 ;call ted_get_text_perv_pos
  1393.                 mov ebx,edx
  1394.  
  1395.                 cmp eax,ebx
  1396.                 je .end_f
  1397.  
  1398.                 inc ted_tim_ch
  1399.                 mov edx,eax ;i=p0;
  1400.                 mov ecx,ted_ptr_free_symb
  1401.                 @@:
  1402.                 push eax
  1403.                 mov al,byte[edx]
  1404.                 call dword[conv_fun] ;¯à¥®¡à §®¢ ­¨¥ ᨬ¢®« 
  1405.                 mov esi,eax
  1406.                 cmp byte[edx],al
  1407.                 pop eax
  1408.                 je .no_change
  1409.                         m2m dword[edx+symbol.td],ted_tim_ch
  1410.                         call ted_char_add ;b_pos=ted_char_add(tex[i].c^32,i,false,b_pos);
  1411.                         call ted_get_text_next_pos ;go to added symbol
  1412.                         inc dword[conv_cou]
  1413.                 .no_change:
  1414.  
  1415.                 call ted_iterat_next
  1416.                 cmp edx,ted_tex
  1417.                 je @f
  1418.                 cmp edx,ebx
  1419.                 jne @b
  1420.                 @@:
  1421.                 cmp dword[conv_cou],0
  1422.                 jne @f
  1423.                         dec ted_tim_ch
  1424.                 @@:
  1425.         .end_f:
  1426.         popad
  1427.         mov esi,[conv_cou]
  1428.         ret
  1429. endp
  1430.  
  1431. ;output:
  1432. ; bl = 0 - no delete
  1433. ; bl = 1 - delete
  1434. align 16
  1435. proc ted_text_del uses ecx edx edi, edit:dword, del_opt:dword
  1436.         mov edi,[edit]
  1437.         mov ebx,[del_opt]
  1438.  
  1439.         xor cl,cl
  1440.         test ebx,ted_opt_ed_move_cursor
  1441.         jz @f
  1442.                 call ted_cur_move_left
  1443.                 cmp dl,0
  1444.                 je .no_del
  1445.         @@:
  1446.         call ted_get_pos_by_cursor
  1447.         cmp ted_gp_opt,1
  1448.         je .no_del
  1449.                 test ebx,ted_opt_ed_change_time
  1450.                 jz @f
  1451.                         inc ted_tim_ch
  1452.                 @@:
  1453.                 m2m dword[edx+symbol.td], ted_tim_ch
  1454.                 mov cl,1
  1455.         .no_del:
  1456.         mov bl,cl
  1457.         ret
  1458. endp
  1459.  
  1460. ;input:
  1461. ; edi = pointer to tedit struct
  1462. ;output:
  1463. ; al = 1 if delete
  1464. ;description:
  1465. ; ”ã­ªæ¨ï 㤠«ï¥â ¢ë¤¥«¥­­ë© ⥪áâ
  1466. align 16
  1467. proc ted_sel_text_del uses ebx ecx edx esi, del_opt:dword
  1468.         call ted_is_select
  1469.         or al,al
  1470.         jz .end_f
  1471.                 call ted_sel_normalize
  1472.  
  1473.                 mov esi,ted_seln_x1
  1474.                 mov ecx,ted_seln_y1
  1475.                 call ted_get_pos_by_coords
  1476.                 mov ebx,edx
  1477.  
  1478.                 mov esi,ted_seln_x0
  1479.                 mov ecx,ted_seln_y0
  1480.                 call ted_get_pos_by_coords
  1481.  
  1482.                 test dword[del_opt],ted_opt_ed_change_time
  1483.                 jz @f
  1484.                         inc ted_tim_ch
  1485.                 @@:
  1486.                 cmp edx,ted_tex
  1487.                 je @f
  1488.                 cmp edx,ebx ;if(i==te)break;
  1489.                 je @f
  1490.                         m2m dword[edx+symbol.td],ted_tim_ch
  1491.                         mov esi,ted_opt_ed_change_time
  1492.                         not esi
  1493.                         and dword[del_opt],esi ;n_tim=false;
  1494.                         call ted_iterat_next
  1495.                         jmp @b
  1496. align 4
  1497.                 @@:
  1498.                 test dword[del_opt],ted_opt_ed_change_time
  1499.                 jz @f
  1500.                         dec ted_tim_ch
  1501.                         xor al,al
  1502.                 @@:
  1503.                 test dword[del_opt],ted_opt_ed_change_time
  1504.                 jnz @f
  1505.                         mov ecx,ted_seln_x0
  1506.                         mov edx,ted_seln_y0
  1507.                         call ted_go_to_pos
  1508.                         mov ted_sel_x0,0
  1509.                         mov ted_sel_y0,0
  1510.                         mov ted_sel_x1,0
  1511.                         mov ted_sel_y1,0
  1512.                 @@:
  1513.         .end_f:
  1514.         ret
  1515. endp
  1516.  
  1517.  
  1518. ;input:
  1519. ; eax = pointer to begin select
  1520. ; ebx = pointer to end select
  1521. ; edi = pointer to tedit struct
  1522. align 16
  1523. ted_revers:
  1524.         cmp eax,ebx
  1525.         jne @f
  1526.                 ret
  1527.         @@:
  1528.  
  1529.         push ecx edx
  1530.  
  1531.         mov edx,ted_tex_1
  1532.         cmp edx,ebx ;if(p1==1)p1=tex[1].perv;
  1533.         jne @f
  1534.                 call ted_get_text_perv_pos
  1535.                 mov ebx,edx
  1536.         @@:
  1537.  
  1538.         push esi
  1539.                 mov edx,[eax+symbol.perv] ; *** edx = tex[p0].perv ***
  1540.                 ConvertIndexToPointer edx
  1541.                 add edx,symbol.next
  1542.                 mov ecx,[edx] ;ecx = tex[tex[p0].perv].next
  1543.  
  1544.                 mov esi,[ebx+symbol.next] ; *** esi = tex[p1].next ***
  1545.                 ConvertIndexToPointer esi
  1546.                 add esi,symbol.perv
  1547.                 m2m dword[edx],dword[esi] ;tex[tex[p0].perv].next = tex[tex[p1].next].perv
  1548.  
  1549.                 mov [esi],ecx ;tex[tex[p1].next].perv = ecx
  1550.         pop esi
  1551.  
  1552.         mov ecx,[eax+symbol.perv] ;ecx = tex[p0].perv
  1553.         m2m dword[eax+symbol.perv],dword[ebx+symbol.next] ;tex[p0].perv = tex[p1].next
  1554.         mov [ebx+symbol.next],ecx ;tex[p1].next = ecx
  1555.  
  1556.         mov edx,eax ;i=p0;
  1557.         @@:
  1558.                 mov ecx,[edx+symbol.next] ;ecx = tex[i].next
  1559.                 m2m dword[edx+symbol.next],dword[edx+symbol.perv] ;tex[i].next = tex[i].perv
  1560.                 mov [edx+symbol.perv],ecx ;tex[i].perv = ecx
  1561.                 cmp edx,ebx ;if(i==p1)break;
  1562.                 je @f
  1563. ; ---
  1564. ;cmp edx,ted_tex
  1565. ;je @f
  1566. ; ---
  1567.                 mov edx,ecx ;i = ecx
  1568.                 ConvertIndexToPointer edx
  1569.                 jmp @b
  1570.         @@:
  1571.         pop edx ecx
  1572.         call ted_text_colored
  1573.         ret
  1574.  
  1575.  
  1576. ;input:
  1577. ; edi = pointer to tedit struct
  1578. ;output:
  1579. ; dl = 0 not move
  1580. ; dl = 2 if move up
  1581. ; dl = 8 if scroll move up
  1582. align 16
  1583. ted_cur_move_up:
  1584.   cmp ted_cur_y,0
  1585.   je @f
  1586.     dec ted_cur_y
  1587.     mov dl,2
  1588.     ret
  1589.   @@:
  1590.   push eax
  1591.   mov eax,ted_scr_w
  1592.   cmp dword[eax+sb_offs_position],0
  1593.   je @f
  1594.     dec dword[eax+sb_offs_position]
  1595.     mov dl,8
  1596.     jmp .ret_f
  1597.   @@:
  1598.   mov dl,0
  1599.   .ret_f:
  1600.   pop eax
  1601.   ret
  1602.  
  1603. ;input:
  1604. ; edi = pointer to tedit struct
  1605. ;output:
  1606. ; dl = 0 not move
  1607. ; dl = 2 if move down
  1608. ; dl = 8 if scroll move down
  1609. align 16
  1610. ted_cur_move_down:
  1611.   push eax ebx
  1612.   mov ebx,ted_scr_w
  1613.   xor dl,dl
  1614.   mov eax,[ebx+sb_offs_cur_area]
  1615.   dec eax
  1616.   cmp ted_cur_y,eax
  1617.   jge @f
  1618.     inc ted_cur_y
  1619.     mov dl,2
  1620.     jmp .ret_f
  1621.   @@:
  1622.   mov eax,ted_cur_y
  1623.   add eax,[ebx+sb_offs_position]
  1624.   inc eax
  1625.   cmp [ebx+sb_offs_max_area],eax
  1626.   jle @f
  1627.     inc dword[ebx+sb_offs_position]
  1628.     mov dl,8
  1629.   @@:
  1630.   .ret_f:
  1631.   pop ebx eax
  1632.   ret
  1633.  
  1634.  
  1635. ;input:
  1636. ; edi = pointer to tedit struct
  1637. ;output:
  1638. ; dl = 0 not move
  1639. ; dl = 1 if move up
  1640. align 16
  1641. ted_cur_move_page_up:
  1642.         push eax ebx
  1643.         mov ebx,ted_scr_w
  1644.         mov eax,[ebx+sb_offs_cur_area]
  1645.         xor dl,dl
  1646.         cmp eax,[ebx+sb_offs_position]
  1647.         jg @f
  1648.                 sub [ebx+sb_offs_position],eax
  1649.                 mov dl,1
  1650.         @@:
  1651.         cmp dword[ebx+sb_offs_position],0
  1652.         je @f
  1653.         cmp dl,1
  1654.         je @f
  1655.                 mov dword[ebx+sb_offs_position],0
  1656.                 mov dl,1
  1657.         @@:
  1658.         pop ebx eax
  1659.         ret
  1660.  
  1661. ;input:
  1662. ; edi = pointer to tedit struct
  1663. align 16
  1664. ted_cur_move_page_down:
  1665.         push eax ebx ecx
  1666.         mov ecx,ted_scr_w
  1667.  
  1668.         xor dl,dl
  1669.         mov eax,[ecx+sb_offs_max_area]
  1670.         sub eax,[ecx+sb_offs_cur_area]
  1671.         cmp [ecx+sb_offs_position],eax
  1672.         jge @f
  1673.                 mov ebx,[ecx+sb_offs_cur_area]
  1674.                 add [ecx+sb_offs_position],ebx
  1675.                 mov dl,1
  1676.                 mov dword[ecx+sb_offs_redraw],1
  1677.                 cmp [ecx+sb_offs_position],eax
  1678.                 jle @f
  1679.                         mov [ecx+sb_offs_position],eax
  1680.         @@:
  1681.         pop ecx ebx eax
  1682.         ret
  1683.  
  1684. ;input:
  1685. ; edi = pointer to tedit struct
  1686. ;output:
  1687. ; dl = 0 not move
  1688. ; dl = 1 if move left
  1689. ; dl = 3 if move left and up
  1690. ; dl = 8 if scroll move up
  1691. align 16
  1692. ted_cur_move_left:
  1693.         cmp ted_cur_x,0
  1694.         je @f
  1695.                 dec ted_cur_x
  1696.                 mov dl,1
  1697.                 ret
  1698.         @@:
  1699.         push eax
  1700.         mov eax,ted_scr_h
  1701.         cmp dword[eax+sb_offs_position],0
  1702.         je @f
  1703.                 dec dword[eax+sb_offs_position]
  1704.                 mov dl,8
  1705.                 jmp .ret_f
  1706.         @@:
  1707.         cmp ted_cur_y,0
  1708.         jne @f
  1709.                 mov eax,ted_scr_w
  1710.                 mov dl,0
  1711.                 cmp dword[eax+sb_offs_position],0
  1712.                 je .ret_f
  1713.                         dec dword[eax+sb_offs_position]
  1714.                         call ted_scroll_set_redraw
  1715.                         call ted_cur_move_x_last_char
  1716.                         mov dl,8
  1717.                         jmp .ret_f
  1718.         @@:
  1719.         cmp ted_cur_y,0
  1720.         je @f
  1721.                 dec ted_cur_y
  1722.                 call ted_cur_move_x_last_char
  1723.                 cmp dl,8
  1724.                 je .ret_f
  1725.                 mov dl,3
  1726.                 jmp .ret_f
  1727.         @@:
  1728.         mov dl,0
  1729.         .ret_f:
  1730.         pop eax
  1731.         ret
  1732.  
  1733. ;input:
  1734. ; edi = pointer to tedit struct
  1735. align 16
  1736. ted_cur_move_right:
  1737.         push eax ebx
  1738.         mov eax,ted_scr_h
  1739.         xor dl,dl
  1740.         mov ebx,[eax+sb_offs_cur_area]
  1741.         cmp ted_cur_x,ebx
  1742.         jge @f
  1743.                 inc ted_cur_x
  1744.                 mov dl,1
  1745.                 jmp .ret_f
  1746.         @@:
  1747.                 inc dword[eax+sb_offs_position]
  1748.                 mov dl,8
  1749.         .ret_f:
  1750.         pop ebx eax
  1751.         ret
  1752.  
  1753. ;input:
  1754. ; edi = pointer to tedit struct
  1755. align 16
  1756. ted_cur_move_x_last_char:
  1757. ;[hScr.position]
  1758. ;[hScr.cur_area]
  1759. ;dl-???
  1760.   push eax ebx ecx
  1761.   mov eax,ted_cur_y
  1762.   mov ecx,ted_scr_w
  1763.   add eax,[ecx+sb_offs_position]
  1764.   call ted_strlen
  1765.   xor dl,dl
  1766.  
  1767.   mov ecx,ted_scr_h
  1768.   cmp ebx,[ecx+sb_offs_position]
  1769.   jge @f
  1770.     mov dl,8
  1771.     mov [ecx+sb_offs_position],ebx
  1772.   @@:
  1773.   sub ebx,[ecx+sb_offs_position]
  1774.  
  1775.   cmp ebx,[ecx+sb_offs_cur_area]
  1776.   jle @f ; b---[---]---e
  1777.     add [ecx+sb_offs_position],ebx
  1778.     mov ebx,[ecx+sb_offs_cur_area]
  1779.     sub [ecx+sb_offs_position],ebx
  1780.     mov dl,8
  1781.   @@:
  1782.   mov ted_cur_x,ebx
  1783.   pop ecx ebx eax
  1784.   ret
  1785.  
  1786. ;input:
  1787. ; edi = pointer to tedit struct
  1788. ;output:
  1789. ; dl = 0 not move
  1790. ; dl = 1 move cursor
  1791. ; dl = 8 move cursor and scroll
  1792. align 16
  1793. ted_cur_move_x_first_char:
  1794.         xor dl,dl
  1795.         cmp ted_cur_x,0
  1796.         je @f
  1797.                 mov ted_cur_x,0
  1798.                 mov dl,1
  1799.         @@:
  1800.         push eax
  1801.         mov eax,ted_scr_h
  1802.         cmp dword[eax+sb_offs_position],0
  1803.         je @f
  1804.                 mov dword[eax+sb_offs_position],0
  1805.                 mov dl,8
  1806.         @@:
  1807.         pop eax
  1808.         ret
  1809.  
  1810. ;input:
  1811. ; edx = pointer to symbol struct
  1812. ; edi = pointer to tedit struct
  1813. ;output:
  1814. ; eax = array index
  1815. align 16
  1816. ted_get_text_arr_index:
  1817.         push ecx edx
  1818.                 mov eax,edx
  1819.                 sub eax,ted_tex
  1820.                 xor edx,edx
  1821.                 mov ecx,sizeof.symbol
  1822.                 div ecx
  1823.         pop edx ecx
  1824.         ret
  1825.  
  1826. ;input:
  1827. ; edx = pointer to symbol struct
  1828. ; edi = pointer to tedit struct
  1829. ;output:
  1830. ; edx = pointer to 'perv' struct
  1831. align 16
  1832. ted_get_text_perv_pos:
  1833.         mov edx,[edx+symbol.perv]
  1834.         imul edx,sizeof.symbol
  1835.         add edx,ted_tex
  1836.         ret
  1837.  
  1838. ;input:
  1839. ; edx = pointer to symbol struct
  1840. ;output:
  1841. ; edx = pointer to 'next' symbol struct
  1842. align 16
  1843. ted_get_text_next_pos:
  1844.         mov edx,[edx+symbol.next]
  1845.         imul edx,sizeof.symbol
  1846.         add edx,ted_tex
  1847.         ret
  1848.  
  1849. ;input:
  1850. ; edi = pointer to tedit struct
  1851. ;output:
  1852. ; edx = symbol under cursor
  1853. ; ted_gp_opt = 1,2
  1854. ; edx = tex[1].perv if error
  1855. ; ted_gp_opt = 0
  1856. align 16
  1857. ted_get_pos_by_cursor:
  1858.         push eax ecx esi
  1859.                 mov esi,ted_cur_x
  1860.                 mov eax,ted_scr_h
  1861.                 add esi,[eax+sb_offs_position]
  1862.                 mov ecx,ted_cur_y
  1863.                 mov eax,ted_scr_w
  1864.                 add ecx,[eax+sb_offs_position]
  1865.                 call ted_get_pos_by_coords
  1866.         pop esi ecx eax
  1867.         ret
  1868.  
  1869. ;input:
  1870. ; esi = XPos
  1871. ; ecx = YPos
  1872. ; edi = pointer to tedit struct
  1873. ;output:
  1874. ; edx = symbol under cursor
  1875. ; ted_gp_opt = 1 if found text line
  1876. ; ted_gp_opt = 2 if found text line and column
  1877. ; edx = tex[1] if error
  1878. ; ted_gp_opt = 0 if text no found
  1879. align 16
  1880. proc ted_get_pos_by_coords uses eax ebx
  1881.         xor eax,eax ;Row
  1882.         xor ebx,ebx ;Col
  1883.   mov ted_gp_opt,0
  1884.   mov edx,ted_tex
  1885.   @@:
  1886.     call ted_iterat_next
  1887.     cmp edx,ted_tex_1
  1888.     jle @f
  1889.     cmp ebx,esi
  1890.     jne .u1_0 ;Col <> ted_cur_x
  1891.       mov ted_gp_opt,1
  1892.       cmp eax,ecx
  1893.       jge @f ; Row >= ted_cur_y
  1894.     .u1_0:
  1895.     mov ted_gp_opt,0
  1896.     inc ebx
  1897.     cmp byte [edx],13
  1898.     jne @b
  1899.     cmp eax,ecx
  1900.     jge @f ; Row >= ted_cur_y
  1901.     inc eax
  1902.     xor ebx,ebx
  1903.     jmp @b
  1904.   @@:
  1905.   cmp eax,ecx
  1906.   jne @f ; Row = ted_cur_y
  1907.     inc ted_gp_opt
  1908.   @@:
  1909.   cmp ted_gp_opt,0
  1910.   jne @f
  1911.     mov edx,ted_tex_1
  1912.     ;call ted_get_text_perv_pos
  1913.   @@:
  1914.   ret
  1915. endp
  1916.  
  1917. ;input:
  1918. ; eax = Row
  1919. ; edi = pointer to tedit struct
  1920. ;output:
  1921. ; ebx = str len
  1922. align 16
  1923. ted_strlen:
  1924.   push edx ecx
  1925.   ;ecx = Row, from cycle
  1926.  
  1927.   xor ebx,ebx
  1928.   xor ecx,ecx
  1929.   mov edx,ted_tex
  1930.   @@:
  1931.     call ted_iterat_next
  1932.     cmp edx,ted_tex_1
  1933.     jle @f
  1934.     inc ebx
  1935.     cmp byte [edx],13
  1936.     jne @b
  1937.     dec ebx ;lenght minus 1 sumbol to paragraph
  1938.     cmp eax,ecx
  1939.     je @f
  1940.     xor ebx,ebx
  1941.     inc ecx
  1942.     jmp @b
  1943.   @@:
  1944.  
  1945.   cmp eax,ecx
  1946.   je @f
  1947.     xor ebx,ebx
  1948.   @@:
  1949.  
  1950.   pop ecx edx
  1951.   ret
  1952.  
  1953.  
  1954. ;input:
  1955. ; edx = symbol position
  1956. ; edi = pointer to tedit struct
  1957. ;output:
  1958. ; eax = number of line
  1959. ; ebx = symbol position in line
  1960. align 16
  1961. ted_get_text_coords:
  1962.         push edx
  1963.         xor eax,eax
  1964.         xor ebx,ebx
  1965.         @@:
  1966.                 call ted_iterat_perv
  1967.  
  1968.                 or eax,eax
  1969.                 jnz .no_col_mov
  1970.                         inc ebx
  1971.                 .no_col_mov:
  1972.  
  1973.                 cmp edx,ted_tex_1
  1974.                 jle @f
  1975.                 cmp byte [edx],13
  1976.                 jne @b
  1977.                 inc eax
  1978.                 jmp @b
  1979.         @@:
  1980.         dec ebx
  1981.         pop edx
  1982.         ret
  1983.  
  1984. ;input:
  1985. ; edi = pointer to tedit struct
  1986. ;output:
  1987. ; eax = num lines
  1988. align 16
  1989. ted_get_num_lines:
  1990.         push edx
  1991.         mov eax,1
  1992.         mov edx,ted_tex
  1993.         @@:
  1994.                 call ted_iterat_next
  1995.                 cmp edx,ted_tex_1
  1996.                 jle @f
  1997.                 cmp byte[edx],13
  1998.                 jne @b
  1999.                 inc eax
  2000.                 jmp @b
  2001.         @@:
  2002. ;...
  2003. ;dec eax
  2004.         pop edx
  2005.         ret
  2006.  
  2007.  
  2008. ;input:
  2009. ; edi = pointer to tedit struct
  2010. ;description:
  2011. ; ®â¬¥­ï¥â ®â¬¥­¥­­ë¥ ¤¥©á⢨ï, ¯¥à¥¤ ¨§¬¥­¥­¨¥¬ ¤®ªã¬¥­â 
  2012. align 16
  2013. proc ted_set_undo
  2014.         mov ted_drag_k,0 ;§ ª ­ç¨¢ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
  2015.         cmp ted_tim_undo,1
  2016.         jl .no_work
  2017.  
  2018.         push eax ebx edx
  2019.         mov edx,ted_tex
  2020.         call ted_get_text_next_pos ;long i=tex[0].next;
  2021.         mov eax,ted_tim_undo
  2022.         sub ted_tim_ch,eax ;ted_tim_ch-=ted_tim_undo;
  2023.         mov eax,ted_tim_ch
  2024.         cmp ted_tim_ls,eax ;if(ted_tim_ls>ted_tim_ch)
  2025.         jle @f
  2026.                 mov ted_tim_ls,0
  2027.         @@:
  2028.                 cmp edx,ted_tex_1
  2029.                 jle @f
  2030.  
  2031.                 ;if(tex[i].tc>ted_tim_ch){ // ¥á«¨ ᮧ¤ ­¨¥ ᨬ¢®«  ¡ë«® ®â¬¥­¥­®
  2032.                 cmp [edx+symbol.tc],eax
  2033.                 jle .no_u1
  2034.                         mov dword[edx+symbol.tc],0
  2035.                         mov dword[edx+symbol.td],0
  2036.  
  2037.                         mov ebx,[edx+symbol.perv]
  2038.                         imul ebx,sizeof.symbol
  2039.                         add ebx,ted_tex ;ebx=tex[i].perv
  2040.                         m2m dword [ebx+symbol.next],dword [edx+symbol.next] ;tex[tex[i].perv].next=tex[i].next;
  2041.  
  2042.                         mov ebx,[edx+symbol.next]
  2043.                         imul ebx,sizeof.symbol
  2044.                         add ebx,ted_tex ;ebx=tex[i].next
  2045.                         m2m dword [ebx+symbol.perv],dword [edx+symbol.perv] ;tex[tex[i].next].perv=tex[i].perv;
  2046.  
  2047.                         cmp ted_ptr_free_symb,edx
  2048.                         jle .no_cor_free
  2049.                                 mov ted_ptr_free_symb,edx ;¬¥­ï¥¬ 㪠§ â¥«ì ­  ᢮¡®¤­ë© ᨬ¢®«, ¤«ï ¡®«¥¥ ¡ëáâண® ¯®¨áª  ¯ ¬ïâ¨
  2050.                         .no_cor_free:
  2051.                         mov edx,ebx ;®¯â¨¬¨§¨à㥬 ¯® ᪮à®á⨠(edx ¯®á«¥ ¢ë§®¢  ted_get_text_next_pos ¡ã¤¥â à ¢¥­ ebx)
  2052.                         jmp @b
  2053.                 .no_u1:
  2054.  
  2055.                 ;else if(tex[i].td>ted_tim_ch) tex[i].td=0; // ¥á«¨ 㤠«¥­¨¥ ᨬ¢®«  ¡ë«® ®â¬¥­¥­®
  2056.                 cmp [edx+symbol.td],eax
  2057.                 jle .no_u2
  2058.                         mov dword[edx+symbol.td],0
  2059.                 .no_u2:
  2060.  
  2061.                 call ted_get_text_next_pos
  2062.                 jmp @b
  2063.         @@:
  2064.         mov ted_tim_undo,0
  2065.         mov eax,ted_tim_co
  2066.         cmp ted_tim_ch,eax
  2067.         jge @f
  2068.                 mov ted_tim_co,0
  2069.         @@:
  2070.         pop edx ebx eax
  2071.         .no_work:
  2072.         ret
  2073. endp
  2074.  
  2075. ;description:
  2076. ; ¯¥à¥å®¤ ­  㪠§ ­­ãî ¯®§¨æ¨î
  2077. ;input:
  2078. ; row = ­®¬¥à áâப¨
  2079. ; col = ᨬ¢®«
  2080. align 16
  2081. proc ted_go_to_position uses ecx edx edi, edit:dword, row:dword, col:dword
  2082.         mov edi,[edit]
  2083.         ; ¯®¤£®â®¢ª  áâப¨
  2084.         mov edx,[row]
  2085.         call ted_get_num_lines
  2086.         cmp edx,eax
  2087.         jle @f
  2088.                 mov edx,eax ;®£à ­¨ç¥­¨¥ ¯® áâப¥ max
  2089.         @@:
  2090.         dec edx
  2091.         cmp edx,0
  2092.         jge @f
  2093.                 xor edx,edx ;®£à ­¨ç¥­¨¥ ¯® áâப¥ min
  2094.         @@:
  2095.         ; ¯®¤£®â®¢ª  ᨬ¢®« 
  2096.         mov ecx,[col]
  2097.         dec ecx
  2098.         cmp ecx,0
  2099.         jge @f
  2100.                 xor ecx,ecx
  2101.         @@:
  2102.         call ted_go_to_pos
  2103.         stdcall ted_draw,edi
  2104.         ret
  2105. endp
  2106.  
  2107. ;input:
  2108. ; ecx = Col
  2109. ; edx = Row
  2110. ; edi = pointer to tedit struct
  2111. ;output:
  2112. ; ecx = cursor x
  2113. ; edx = cursor y
  2114. align 16
  2115. ted_go_to_pos:
  2116.         push eax ebx
  2117.         mov eax,ted_scr_h
  2118.         sub ecx,[eax+sb_offs_position]
  2119.         cmp ecx,0 ;ted_cur_x < 0
  2120.         jge @f
  2121.                 add [eax+sb_offs_position],ecx ;¯à®ªàã⪠ áªà®««¨­£  ¢«¥¢®
  2122.                 xor ecx,ecx
  2123.         @@:
  2124.         mov ebx,5 ;5 - ¦¥« ¥¬ë© ®âáâ㯠᫥¢ 
  2125.         cmp ecx,ebx
  2126.         jge .end0
  2127.                 sub ebx,ecx ;ebx - ­  ᪮«ìª® ᨬ¢®«®¢ ­ã¦­® ᤢ¨­ãâì ªãàá®à
  2128.                 cmp [eax+sb_offs_position],ebx
  2129.                 jge @f
  2130.                         add ecx,[eax+sb_offs_position]
  2131.                         mov dword[eax+sb_offs_position],0
  2132.                         jmp .end0
  2133.                 @@:
  2134.                         sub [eax+sb_offs_position],ebx
  2135.                         add ecx,ebx
  2136.         .end0:
  2137.         cmp ecx,[eax+sb_offs_cur_area] ;ted_cur_x > [.cur_area]
  2138.         jl .end1
  2139.                 mov ebx,ecx
  2140.                 sub ebx,[eax+sb_offs_cur_area]
  2141.                 inc ebx
  2142.                 add [eax+sb_offs_position],ebx ;¯à®ªàã⪠ áªà®««¨­£  ¢¯à ¢®
  2143.                 sub ecx,ebx
  2144.         .end1:
  2145.         mov ted_cur_x,ecx
  2146.  
  2147.         mov eax,ted_scr_w
  2148.         sub edx,[eax+sb_offs_position]
  2149.         cmp edx,0 ;ted_cur_y < 0
  2150.         jge @f
  2151.                 add [eax+sb_offs_position],edx ;¯à®ªàã⪠ áªà®««¨­£  ¢¢¥àå
  2152.                 xor edx,edx
  2153.                 jmp .end2
  2154.         @@:
  2155.         cmp edx,[eax+sb_offs_cur_area] ;ted_cur_y > [.cur_area]
  2156.         jl .end2
  2157.                 mov ebx,edx
  2158.                 sub ebx,[eax+sb_offs_cur_area]
  2159.                 inc ebx
  2160.                 add [eax+sb_offs_position],ebx ;¯à®ªàã⪠ áªà®««¨­£  ¢­¨§
  2161.                 sub edx,ebx
  2162.         .end2:
  2163.         mov ted_cur_y,edx
  2164.         pop ebx eax
  2165.         ret
  2166.  
  2167. ;input:
  2168. ; edi = pointer to tedit struct
  2169. align 16
  2170. ted_text_colored:
  2171.         push eax edx
  2172.         mov eax,ted_tim_ch
  2173.         sub eax,ted_tim_undo
  2174.         mov ted_tim_co,eax
  2175.         mov edx,ted_tex
  2176.         @@:
  2177.                 call ted_iterat_next
  2178.                 cmp edx,ted_tex_1
  2179.                 jle @f
  2180.                 mov byte[edx+1],0
  2181.                 jmp @b
  2182.         @@:
  2183.  
  2184.         cmp ted_key_words_count,1
  2185.         jl .no_colors
  2186.         mov edx,ted_tex
  2187.         @@:
  2188.                 call ted_text_find_sel_color
  2189.                 cmp edx,ted_tex_1
  2190.                 jle .no_colors
  2191.                 jmp @b
  2192.         .no_colors:
  2193.         pop edx eax
  2194.         ret
  2195.  
  2196.  
  2197. ;input:
  2198. ; edx = pointer to start symbol
  2199. ; edi = pointer to tedit struct
  2200. ;output:
  2201. ; edx = pointer to next symbol
  2202. ;description:
  2203. ; ”ã­ªæ¨ï ¤«ï ¯®¨áª  ¨ ¢ë¤¥«¥­¨ï ¯®¤á¢¥ç¥­ëå á«®¢
  2204. align 16
  2205. proc ted_text_find_sel_color uses eax ebx ecx esi
  2206. locals
  2207.         begPos dd ? ;­ ç «ì­ ï ¯®§¨æ¨ï
  2208.         endPos dd ? ;ª®­¥ç­ ï ¯®§¨æ¨ï
  2209.         find db ? ;0 - ­¥ ­ ©¤¥­®, 1 - ­ ©¤¥­®, 2 - ­ ©¤¥­® ¢ ª®­æ¥ ä ©« 
  2210.         f_color db ? ;¨­¤¥ªá æ¢¥â  ­ ©¤¥­®£® á«®¢ 
  2211. endl
  2212. ;eax = word_n ⥪ã騩 ­®¬¥à (¯®§¨æ¨ï) ¯à®¢¥à塞®£® á«®¢  ¢ ᯨ᪥
  2213. ;ebx = ¤«ï à §­ëå 楫¥©
  2214. ;ecx = l_pos ¯®á«¥¤­¨© ­®¬¥à (¯®§¨æ¨ï) ¯®¤å®¤ï饣® á«®¢  ¢ ᯨ᪥
  2215. ;esi = ¤«ï à §­ëå 楫¥©, ­®¬¥à ¯à®¢¥à塞®£® ᨬ¢®«  ¢ á«®¢¥
  2216.         mov dword[begPos],1
  2217.         mov dword[endPos],1
  2218.         mov byte[find],0
  2219.         mov byte[f_color],1
  2220.         .cycle0:
  2221.                 call ted_iterat_next
  2222.                 cmp edx,ted_tex_1
  2223.                 jle .cycle0end
  2224.  
  2225.                 movzx eax,byte[edx]
  2226.                 shl eax,2 ;eax*=4
  2227.                 add eax,ted_arr_key_pos
  2228.                 mov eax,[eax]
  2229.                 cmp eax,0
  2230.                 jl .cycle0 ;if( (word_n=ted_arr_key_pos[(unsigned char)tex[i].c])>-1 ){
  2231.  
  2232.                 mov ecx,eax
  2233.                 ;while(l_pos<ted_key_words_count && Col[l_pos].Text[0]==Col[word_n].Text[0])
  2234.                 .wh_1b:
  2235.                         cmp ecx,ted_key_words_count
  2236.                         jge .wh_1e
  2237.                         ColToIndexOffset ecx,esi
  2238.                         mov bl,byte[esi]
  2239.                         ColToIndexOffset eax,esi
  2240.                         cmp bl,byte[esi]
  2241.                         jne .wh_1e
  2242.                                 inc ecx
  2243.                         jmp .wh_1b
  2244.                 .wh_1e:
  2245.  
  2246.                 mov [begPos],edx ;bP=i;
  2247.                 mov esi,1
  2248. align 4
  2249.                 .wh_2b: ;while(1){
  2250.                 call ted_iterat_next
  2251.  
  2252.                 ;while(l_pos>word_n && Col[l_pos-1].Text[pos]!=tex[i].c)
  2253.                 @@:
  2254.                         cmp ecx,eax
  2255.                         jle @f
  2256.                         dec ecx
  2257.                         ColToIndexOffset ecx,ebx
  2258.                         inc ecx
  2259.                         ;cmp byte[ebx+esi],byte[edx]
  2260.                         mov bl,byte[ebx+esi]
  2261.                         cmp bl,byte[edx]
  2262.                         je @f
  2263.                                 dec ecx
  2264.                         jmp @b
  2265.                 @@:
  2266.  
  2267.                 ColToIndexOffset eax,ebx
  2268.                 cmp byte[ebx+esi],0
  2269.                 jne .if_0 ;if(Col[word_n].Text[pos]==0){
  2270.                 mov [endPos],edx ;eP=i;
  2271.                 ColToIndexOffset eax,ebx
  2272.                 mov bl,[ebx+MAX_COLOR_WORD_LEN+7]
  2273.                 mov [f_color],bl ;f_color=Col[word_n].color;
  2274.  
  2275.                 mov byte[find],1
  2276.                 ColToIndexOffset eax,ebx ;... ebx = Col[word_n]
  2277.                 mov bl,[ebx+MAX_COLOR_WORD_LEN+4]
  2278.                 cmp bl,0 ;if(Col[word_n].wwo)
  2279.                 je .if_2n
  2280.                         push edx
  2281.                         mov edx,[begPos]
  2282.                         call ted_iterat_perv
  2283.  
  2284.                         btr bx,0 ;1-1
  2285.                         jae @f ;if(Col[word_n].wwo&1)
  2286.                                 ;u1= !(isalnum(cont_s)||cont_s=='_')
  2287.                                 call isalnum
  2288.                                 jae @f
  2289.                                         mov byte[find],0
  2290.                                         jmp .if_4e
  2291.                         @@:
  2292.  
  2293.                         btr bx,3 ;4-1
  2294.                         jae .if_4e ;if(Col[word_n].wwo&8)
  2295.                                 ;u1= !isalpha(cont_s);
  2296.                                 call isalpha
  2297.                                 jae .if_4e
  2298.                                         mov byte[find],0
  2299.                         .if_4e:
  2300.  
  2301.                         mov edx,[endPos]
  2302.                         ;call ted_iterat_next
  2303.  
  2304.                         btr bx,1 ;2-1
  2305.                         jae @f ;if(Col[word_n].wwo&2)
  2306.                                 ;u1= !(isalnum(cont_s)||cont_s=='_')
  2307.                                 call isalnum
  2308.                                 jae @f
  2309.                                         mov byte[find],0
  2310.                                         jmp .if_6e
  2311.                         @@:
  2312.  
  2313.                         btr bx,4 ;5-1
  2314.                         jae .if_6e ;if(Col[word_n].wwo&16)
  2315.                                 ;u1= !isalpha(cont_s);
  2316.                                 call isalpha
  2317.                                 jae .if_6e
  2318.                                         mov byte[find],0
  2319.                         .if_6e:
  2320.  
  2321.                         btr bx,2 ;3-1
  2322.                         jae .if_7e ;if(Col[word_n].wwo&4)
  2323.                                 ColToIndexOffset eax,ebx
  2324.                                 mov bx,word[ebx+MAX_COLOR_WORD_LEN+5]
  2325.                                 call ted_iterat_next_pos_char
  2326.                                 cmp edx,ted_tex_1
  2327.                                 jg @f
  2328.                                         ;¥á«¨ ¤®è«¨ ¤® ª®­æ  ä ©«  ¨ ­¥ ­ è«¨ ᨬ¢®« ª®­æ  à §¬¥âª¨
  2329.                                         call ted_iterat_perv
  2330.                                         mov byte[find],2
  2331.                                 @@:
  2332.                                         mov dword[endPos],edx
  2333.                         .if_7e:
  2334.  
  2335.                         pop edx
  2336.                 .if_2n:
  2337. ;if(i!=1){ // ­¥ ª®­¥æ ¤®ªã¬¥­â 
  2338. ;  cont_s=tex[eP].c;
  2339. ;  if(Col[word_n].wwo&2) u2= !(isalnum(cont_s)||cont_s=='_');  // ­¥ ¡ãª¢.-ç¨á«. ᨬ¢®«
  2340. ;  if(u2 && Col[word_n].wwo&16) u2= !isalpha(cont_s); // ­¥ ç¨á«. ᨬ¢®«
  2341. ;  if(Col[word_n].wwo&4) eP=ted_iterat_next_pos_char(eP,Col[word_n].endc);
  2342.  
  2343.                         cmp eax,ecx
  2344.                         je .wh_2e ;if(word_n==l_pos) break; // do double - ¥á«¨ á«®¢® â®ç­® ¯®á«¥¤­¥¥
  2345.                 .if_0:
  2346.  
  2347.                 cmp edx,ted_tex_1
  2348.                 jle .wh_2e ;if(i==1) break;
  2349.  
  2350.                 ;while(l_pos>word_n && Col[word_n].Text[pos]!=tex[i].c)
  2351.                 .wh_4b:
  2352.                 cmp ecx,eax
  2353.                 jle .wh_4e
  2354.                         ColToIndexOffset eax,ebx
  2355.                         ;cmp byte[ebx+esi],byte[edx]
  2356.                         mov bl,byte[ebx+esi]
  2357.                         cmp bl,byte[edx]
  2358.                         je .wh_4e
  2359.                                 inc eax
  2360.                         jmp .wh_4b
  2361.                 .wh_4e:
  2362.  
  2363.                 cmp eax,ecx
  2364.                 je .wh_2e;if(word_n==l_pos) break;
  2365.                         inc esi ;pos++;
  2366.                         jmp .wh_2b
  2367.                 .wh_2e:
  2368.  
  2369.                 cmp byte[find],0 ;if(fnd)break;
  2370.                 jne .cycle0end
  2371.                         mov edx,[begPos];i=bP;
  2372.                 jmp .cycle0
  2373.         .cycle0end:
  2374.  
  2375.         cmp byte[find],0
  2376.         je .if_1e ;if(fnd){ // ¢ë¤¥«¥­¨¥ ­ ©¤¥­®£® ⥪áâ 
  2377.                 ;if(!mode_sf1 || (mode_sf1 && strlen(Col[word_n].f1->c_str())>0)){
  2378.                 mov eax,[begPos]
  2379.                 mov bl,[f_color]
  2380.                 mov [eax+1],bl ;tex[bP].col=f_color;
  2381.                 mov eax,[endPos]
  2382.                 mov byte[eax+1],0xff ;tex[eP].col=255;
  2383.                 cmp byte[find],2
  2384.                 je .if_1e
  2385.                 ;return ItPoPerv(eP); // ¢®§¢à é ¥¬ ¯®§¨æ¨î ª®­æ  ¢å®¦¤¥­¨ï            
  2386.                 mov edx,[endPos]
  2387.                 call ted_get_text_perv_pos
  2388.                 jmp @f
  2389.         .if_1e:
  2390.                 mov edx,ted_tex
  2391.         @@:
  2392.  
  2393.         ret
  2394. endp
  2395.  
  2396. ;input:
  2397. ; edx = pointer to char (byte)
  2398. ;output:
  2399. ; cf=1 if symbol is...
  2400. align 16
  2401. tab_all_num db 0,0,0,0,0,0,0xff,11b,11111110b,0xff,0xff,10000111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0;,0,0,0,0,0,0,0,0 - tab_alpha_0,0,0,0,0,0,0,0
  2402. tab_alpha db 0,0,0,0,0,0,0,0,11111110b,0xff,0xff,10000111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2403.  
  2404. ;output:
  2405. ; cf=1 ¥á«¨ ¢ [edx] ¡ãª¢ , æ¨äà  ¨«¨ '_'
  2406. align 16
  2407. isalnum:
  2408.         push eax ebx
  2409.         movzx eax,byte[edx] ;al=offset
  2410.         shr eax,3
  2411.         lea ebx,[tab_all_num]
  2412.         add ebx,eax
  2413.         movzx ax,byte[edx] ;al=bit
  2414.         and ax,111b
  2415.         bt word[ebx],ax
  2416.         pop ebx eax
  2417.         ret
  2418.  
  2419. ;output:
  2420. ; cf=1 ¥á«¨ ¢ [edx] ¡ãª¢  ¨«¨ '_'
  2421. align 16
  2422. isalpha:
  2423.         push eax ebx
  2424.         movzx eax,byte[edx] ;al=offset
  2425.         shr eax,3
  2426.         lea ebx,[tab_alpha]
  2427.         add ebx,eax
  2428.         movzx ax,byte[edx] ;al=bit
  2429.         and ax,111b
  2430.         bt word[ebx],ax
  2431.         pop ebx eax
  2432.         ret
  2433.  
  2434. align 16
  2435. proc ted_show_help_f1 uses eax edx edi, edit:dword
  2436.         mov edi,[edit]
  2437.  
  2438.         call ted_get_pos_by_cursor
  2439.         push edx
  2440.                 call ted_iterat_next_color_tag
  2441.                 mov eax,edx
  2442.         pop edx
  2443.         call ted_iterat_perv_color_tag
  2444.  
  2445.         cmp eax,ted_tex
  2446.         jle @f
  2447.         cmp edx,ted_tex_1
  2448.         jle @f
  2449.                 stdcall ted_find_help_id,eax
  2450.         @@:
  2451.         ;call ted_draw_main_cursor
  2452.         call ted_draw_help_f1
  2453.         ret
  2454. endp
  2455.  
  2456. ;input:
  2457. ; edx = position begin 'symbol' struct
  2458. ; edi = pointer to tedit struct
  2459. ; end_pos = position end 'symbol' struct
  2460. align 16
  2461. proc ted_find_help_id uses ebx ecx, end_pos:dword
  2462. ; ecx = word_n
  2463. ; ebx = l_pos
  2464.   mov ted_help_id,-1
  2465.  
  2466.     movzx ebx,byte[edx]
  2467.     shl ebx,2 ;ebx*=4
  2468.     add ebx,ted_arr_key_pos
  2469.     mov ecx,[ebx]
  2470.     cmp ecx,0
  2471.     jl .if_0e ;if( (word_n=ted_arr_key_pos[(unsigned char)tf[0]])>-1 ){
  2472.       push esi eax
  2473.       mov ebx,ecx ;l_pos=word_n;
  2474.       ColToIndexOffset ecx,esi
  2475.       push cx
  2476.       mov cl,[esi]
  2477.       @@:
  2478.         cmp ebx,ted_key_words_count ;while(l_pos<ted_key_words_count)
  2479.         jge @f
  2480.         ;ColToIndexOffset ecx,esi
  2481.         ColToIndexOffset ebx,eax
  2482.         cmp cl,[eax] ;&& Col[l_pos].Text[0]==Col[word_n].Text[0])
  2483.         jne @f
  2484.           inc ebx ;l_pos++;
  2485.           jmp @b
  2486.       @@:
  2487.       pop cx
  2488.       call ted_iterat_next ;pos=1;
  2489.       mov esi,1
  2490.       @@:
  2491.         push dx
  2492.         push word[edx]
  2493.         pop dx
  2494.           .wh_0b:
  2495.             cmp ebx,ecx ;while(l_pos>word_n
  2496.             jle .wh_0e
  2497.             dec ebx
  2498.             ColToIndexOffset ebx,eax
  2499.             inc ebx
  2500.             cmp byte[eax+esi],dl ;&& Col[l_pos-1].Text[pos]!=tf[i])
  2501.             je .wh_0e
  2502.               dec ebx ;l_pos--;
  2503.             jmp .wh_0b
  2504.           .wh_0e:
  2505.  
  2506.           .wh_1b:
  2507.             cmp ebx,ecx ;while(l_pos>word_n
  2508.             jle .wh_1e
  2509.             ColToIndexOffset ecx,eax
  2510.             cmp byte[eax+esi],dl
  2511.             je .wh_1e
  2512.               inc ecx ;word_n++;
  2513.             jmp .wh_1b
  2514.           .wh_1e:
  2515.         pop dx
  2516.  
  2517.         cmp ecx,ebx ;if(word_n==l_pos) break;
  2518.         je @f
  2519.         call ted_iterat_next ;pos++;
  2520.         cmp edx,[end_pos] ;for(...;i<strlen;...)
  2521.         je @f ;jge
  2522.         inc esi
  2523.         jmp @b
  2524.       @@:
  2525.       pop eax esi
  2526.  
  2527.       mov ted_help_id,ecx
  2528.       ;return word_n;
  2529.  
  2530.     .if_0e:
  2531.   ret
  2532. endp
  2533.  
  2534. ;output:
  2535. ; eax = ª®¤ ®è¨¡ª¨
  2536. ; ebx = ª®««¨ç¥á⢮ ¯à®ç¨â ­­ëå ¡ ©â
  2537. align 16
  2538. proc ted_open_file uses ecx edx edi, edit:dword, file:dword, f_name:dword ;äã­ªæ¨ï ®âªàëâ¨ï ä ©« 
  2539.         mov edi,[edit]
  2540.  
  2541.         ; *** ¯à®¢¥à塞 à §¬¥à ¯ ¬ï⨠¨ ¥á«¨ ­¥ 墠⠥â ⮠㢥«¨ç¨¢ ¥¬ ***
  2542.         ;¯à®¡ã¥¬ ¯®«ãç¨âì ¨­ä®à¬ æ¨î ® ä ©«¥
  2543.         mov ebx,[file]
  2544.         mov dword[ebx], SSF_GET_INFO
  2545.         mov dword[ebx+4], 0
  2546.         mov dword[ebx+8], 0
  2547.         mov dword[ebx+12], 0
  2548.         m2m dword[ebx+16], ted_tex
  2549.         mov  byte[ebx+20], 0
  2550.         push dword[f_name]
  2551.         pop dword[ebx+21]
  2552.         mcall SF_FILE
  2553.         or eax,eax
  2554.         jz .end_0
  2555.                 mov edx,ted_max_chars
  2556.                 cmp eax,2 ;äã­ªæ¨ï ­¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ­­®© ä ©«®¢®© á¨á⥬ë
  2557.                 je @f
  2558.                 jmp .ret_f
  2559. align 4
  2560.         .end_0:
  2561.         ;¯à®¢¥à塞 墠â¨â «¨ ¯ ¬ï⨠¤«ï § £à㧪¨ ä ©« 
  2562.         mov ecx,ted_max_chars
  2563.         sub ecx,2 ;ecx = ¬ ªá¨¬ «ì­®¥ ç¨á«® ¡ ©â, ¤«ï ª®â®àëå ¡ë«  ¢ë¤¥«¥­  ¯ ¬ïâì
  2564.         mov edx,ted_tex
  2565.         mov edx,[edx+32] ;+32 = +0x20: qword: à §¬¥à ä ©«  ¢ ¡ ©â å
  2566.         cmp edx,ecx
  2567.         jl @f
  2568.                 ;㢥«¨ç¨¢ ¥¬ ¯ ¬ïâì ¥á«¨ ­¥ 墠⨫®
  2569.                 mov ecx,edx ;¯ ¬ïâì ­¥®¡å®¤¨¬ ï ¤«ï ®âªàëâ¨ï ä ©« 
  2570.                 add ecx,2  ;¯ ¬ïâì ¤«ï á«ã¦¥¡­ëå ­ ç «ì­®£® ¨ ª®­¥ç­®£® ᨬ¢®«®¢
  2571.                 add ecx,ted_increase_size ;¯ ¬ïâì ¤«ï । ªâ¨à®¢ ­¨ï ä ©« 
  2572.                 mov ted_max_chars,ecx
  2573.                 imul ecx,sizeof.symbol
  2574.                 invoke mem.realloc, ted_tex,ecx
  2575.                 mov ted_tex,eax
  2576.                 mov ted_tex_1,eax
  2577.                 add ted_tex_1,sizeof.symbol
  2578.                 add eax,ecx
  2579.                 mov ted_tex_end,eax
  2580.                 mov ecx,ted_tex_1
  2581.                 add ecx,sizeof.symbol
  2582.                 mov ted_ptr_free_symb,ecx
  2583.         @@:
  2584.  
  2585.         ; *** ¯à®¡ã¥¬ ®âªàëâì ä ©« ***
  2586.         mov ebx,[file]
  2587.         mov dword[ebx], SSF_READ_FILE
  2588.         mov dword[ebx+4], 0
  2589.         mov dword[ebx+8], 0
  2590.         m2m dword[ebx+12], edx ;ç¨á«® ¡ ©â, ª®â®àë¥ ¬®£ãâ ¡ëâì áç¨â ­ë á ä ©«  (­¥ ¡®«ìè¥ ç¥¬ ted_max_chars)
  2591.         m2m dword[ebx+16], ted_tex
  2592.         mov  byte[ebx+20], 0
  2593.         push dword[f_name]
  2594.         pop dword[ebx+21]
  2595.         mcall SF_FILE
  2596.  
  2597.         or eax,eax
  2598.         jz @f
  2599.         cmp eax,6
  2600.         jne .ret_f
  2601.         @@:
  2602.         cmp ebx,-1
  2603.         je .ret_f
  2604.                 ;if open file
  2605.                 call ted_on_open_file
  2606.         .ret_f:
  2607.         ret
  2608. endp
  2609.  
  2610. align 16
  2611. proc ted_but_select_word, edit:dword
  2612.         pushad
  2613.         mov edi,[edit]
  2614.  
  2615.         call ted_get_pos_by_cursor
  2616.         push edx
  2617.                 call ted_iterat_perv_color_tag
  2618.                 cmp edx,ted_tex_1
  2619.                 jle @f
  2620.                         call ted_get_text_coords
  2621.                         mov ted_sel_x0,ebx
  2622.                         mov ted_sel_y0,eax
  2623.                 @@:
  2624.         pop edx
  2625.         call ted_iterat_next_color_tag
  2626.         cmp edx,ted_tex_1
  2627.         jle @f
  2628.                 call ted_get_text_coords
  2629.                 mov ted_sel_x1,ebx
  2630.                 mov ted_sel_y1,eax
  2631.         @@:
  2632.  
  2633.         cmp ted_fun_draw_panel_buttons,0
  2634.         je @f
  2635.                 call ted_fun_draw_panel_buttons
  2636.         @@:
  2637.         stdcall ted_draw,edi
  2638.         popad
  2639.         ret
  2640. endp
  2641.  
  2642. ;output:
  2643. ; al = 1 if delete
  2644. align 16
  2645. proc ted_but_cut uses edi, edit:dword
  2646.         mov edi,[edit]
  2647.  
  2648.         stdcall ted_but_copy,edi
  2649.         call ted_set_undo
  2650.         stdcall ted_sel_text_del,ted_opt_ed_change_time
  2651.  
  2652.         cmp al,1
  2653.         jne @f
  2654.                 stdcall ted_draw,edi
  2655.                 cmp ted_fun_draw_panel_buttons,0
  2656.                 je @f
  2657.                         call ted_fun_draw_panel_buttons
  2658.         @@:
  2659.         ret
  2660. endp
  2661.  
  2662. align 16
  2663. proc ted_but_copy, edit:dword
  2664.         pushad
  2665.         mov edi,[edit]
  2666.  
  2667.         call ted_is_select
  2668.         or al,al
  2669.         jz .end_f ;if not selected text
  2670.         call ted_sel_normalize
  2671.  
  2672.         mov esi,ted_seln_x1
  2673.         mov ecx,ted_seln_y1
  2674.         call ted_get_pos_by_coords
  2675.         mov ebx,edx
  2676.         mov esi,ted_seln_x0
  2677.         mov ecx,ted_seln_y0
  2678.         call ted_get_pos_by_coords
  2679.         mov esi,ebx
  2680.  
  2681.         mov ecx,12 ;system buffer header size
  2682.         mov ebx,ted_buffer
  2683.         mov dword[ebx+4],0 ;text data
  2684.         mov dword[ebx+8],1 ;code 866
  2685.         add ebx,ecx
  2686.         @@:
  2687.                 cmp edx,ted_tex_1 ;end of file
  2688.                 jle @f
  2689.                 cmp edx,esi ;end of select
  2690.                 je @f
  2691.                 inc ecx
  2692.                 cmp ecx,ted_buffer_size ;owerflow bufer
  2693.                 je @f
  2694.  
  2695.                 mov al,byte[edx]
  2696.                 mov byte[ebx],al
  2697.                 inc ebx
  2698.                 cmp al,13
  2699.                 jne .no_13
  2700.                         mov byte[ebx],10 ;¤¥« ¥¬ ª®­¥æ áâப¨ ¢ ¡ãä¥à¥ 13,10 ¤«ï ᮢ¬¥á⨬®áâ¨ á ¤à㣨¬¨ ¯à®£à ¬¬ ¬¨
  2701.                         inc ebx
  2702.                         inc ecx
  2703.                 .no_13:
  2704.                
  2705.                 call ted_iterat_next
  2706.                 jmp @b
  2707.         @@:
  2708.         mov byte[ebx],0
  2709.  
  2710.         cmp ecx,12
  2711.         je .end_f
  2712.                 mov ebx,ted_buffer
  2713.                 mov [ebx],ecx
  2714.                 mcall SF_CLIPBOARD,SSF_WRITE_CB,ecx,ted_buffer
  2715.                 call ted_draw_buffer
  2716.                 cmp ted_fun_draw_panel_buttons,0
  2717.                 je .end_f
  2718.                         call ted_fun_draw_panel_buttons
  2719.         .end_f:
  2720.         popad
  2721.         ret
  2722. endp
  2723.  
  2724.  
  2725. align 16
  2726. proc ted_but_paste, edit:dword
  2727.         pushad
  2728.         mov edi,[edit]
  2729.  
  2730.         mcall SF_CLIPBOARD,SSF_GET_SLOT_COUNT
  2731.         cmp eax,1
  2732.         jl .no_buf_r
  2733.  
  2734.         mov esi,eax
  2735.         .cycle: ;®¡à â­ë© 横« ¯® ᫮⠬
  2736.         dec esi ;­®¬¥à ⥪ã饣®, ¯à®¢¥à塞®£® á«®â 
  2737.         mcall SF_CLIPBOARD,SSF_READ_CB,esi
  2738.         cmp eax,1
  2739.         je .no_buf_r
  2740.         cmp eax,-1
  2741.         je .no_buf_r
  2742.                 mov ecx,[eax]
  2743.                 cmp ecx,1 ;size
  2744.                 jl .no_buf_r
  2745.                 cmp dword[eax+4],0 ;text
  2746.                 je @f
  2747.                         cmp esi,1
  2748.                         jge .cycle ;¥á«¨ ¢ ¡ãä¥à¥ ­¥ ⥪áâ,   ᫮⮢ ¢ ¡ãä¥à¥ ­¥áª®«ìª®, ¯à®¡ã¥¬ ¯¥à¥©â¨ ª ¢¥àå­¥¬ã á«®âã
  2749.                         jmp .no_buf_r
  2750.                 @@:
  2751.                 cmp dword[eax+8],1 ;866
  2752.                 je @f
  2753.                         cmp esi,1
  2754.                         jge .cycle ;¥á«¨ ¢ ¡ãä¥à¥ ⥪áâ ­¥ ¢ ª®¤¨à®¢ª¥ 866 ... ¯à®¡ã¥¬ ¯¥à¥©â¨ ª ¢¥àå­¥¬ã á«®âã
  2755.                         jmp .no_buf_r
  2756.                 @@:
  2757.                 ;ª®¯¨à®¢ ­¨¥ ⥪áâ  ¨§ á¨á⥬­®£® ¡ãä¥à  ¢® ¢­ãâ७­¨©
  2758.                 cmp ecx,ted_buffer_size
  2759.                 jle @f
  2760.                         mov ecx,ted_buffer_size
  2761.                 @@:
  2762.                 mov edi,ted_buffer
  2763.                 mov esi,eax
  2764.                 add     esi,4 ;12
  2765.                 mov dword[edi],ecx
  2766.                 add edi,4 ;12
  2767.                 sub ecx,4 ;12
  2768.                 rep movsb
  2769.                 mov edi,[edit]
  2770.  
  2771.                 mov esi,eax
  2772.                 add     esi,12
  2773.                 jmp .buf_r
  2774.         .no_buf_r:
  2775.                
  2776.         ;¥á«¨ ­¥ 㤠«®áì ¯à®ç¨â âì ¤ ­­ë¥ ¨§ á¨á⥬­®£® ¡ãä¥à , ¯®¯ ¤ ¥¬ á
  2777.         mov esi,ted_buffer
  2778.         cmp dword[esi],1 ;¯à®¢¥à塞 ¥áâì «¨ ¤ ­­ë¥ ¢® ¢­ãâ७­¥¬ ¡ãä¥à¥
  2779.         jl .no_paste ;¥á«¨ ¢®®¡é¥ ­¨ç¥£® ­¥ 㤠«®áì ¯à®ç¨â âì ¨¤¥¬ ­  ¢ë室
  2780.         add esi,12 ;system buffer header size
  2781.         .buf_r:
  2782.        
  2783.         mov edx,esi
  2784.         call tl_strlen
  2785.         cmp eax,1
  2786.         jl .no_paste
  2787.                 mov esi,eax
  2788.                 call ted_set_undo
  2789.                 mov ebx,ted_opt_ed_change_time+ted_opt_ed_move_cursor
  2790.                 stdcall ted_sel_text_del,ebx
  2791.                 cmp al,1
  2792.                 jne .del
  2793.                         mov ebx,ted_opt_ed_move_cursor
  2794.                 .del:
  2795.                 stdcall ted_text_add,edi,edx,esi,ebx
  2796.                 stdcall ted_draw,edi
  2797.                 cmp ted_fun_draw_panel_buttons,0
  2798.                 je .no_paste
  2799.                         call ted_fun_draw_panel_buttons
  2800.         .no_paste:
  2801.         popad
  2802.         ret
  2803. endp
  2804.  
  2805. align 16
  2806. proc ted_but_sumb_upper uses edi esi, edit:dword
  2807.         mov edi,[edit]
  2808.  
  2809.         stdcall ted_convert_sel_text,fb_char_toupper
  2810.         or esi,esi
  2811.         jz @f
  2812.                 stdcall ted_draw,edi
  2813.         @@:
  2814.         ret
  2815. endp
  2816.  
  2817. align 16
  2818. proc ted_but_sumb_lover uses edi esi, edit:dword
  2819.         mov edi,[edit]
  2820.  
  2821.         stdcall ted_convert_sel_text,fb_char_todown
  2822.         or esi,esi
  2823.         jz @f
  2824.                 stdcall ted_draw,edi
  2825.         @@:
  2826.         ret
  2827. endp
  2828.  
  2829. align 16
  2830. proc ted_but_reverse uses eax ebx edi, edit:dword
  2831.         mov edi,[edit]
  2832.  
  2833.         call ted_is_select
  2834.         or al,al
  2835.         jz @f
  2836.                 call ted_sel_normalize
  2837.                 push esi ecx edx
  2838.                         mov esi,ted_seln_x0
  2839.                         mov ecx,ted_seln_y0
  2840.                         call ted_get_pos_by_coords
  2841.                         mov eax,edx
  2842.                         mov esi,ted_seln_x1
  2843.                         cmp esi,0
  2844.                         je .beg_str
  2845.                                 dec esi
  2846.                         .beg_str:
  2847.                         mov ecx,ted_seln_y1
  2848.                         call ted_get_pos_by_coords
  2849.                         ;call ted_get_text_perv_pos
  2850.                         mov ebx,edx
  2851.                 pop edx ecx esi
  2852.                 ;cmp eax,...
  2853.                 ;je @f
  2854.                 call ted_revers
  2855.         @@:
  2856.         stdcall ted_draw,edi
  2857.         ret
  2858. endp
  2859.  
  2860. align 16
  2861. proc ted_but_undo uses eax edi, edit:dword
  2862.         mov edi,[edit]
  2863.  
  2864.         mov eax,ted_tim_undo
  2865.         cmp ted_tim_ch,eax
  2866.         jbe @f
  2867.                 inc ted_tim_undo
  2868.                 ;call ted_text_colored
  2869.                 stdcall ted_draw,edi
  2870.                 cmp ted_fun_draw_panel_buttons,0
  2871.                 je @f
  2872.                         call ted_fun_draw_panel_buttons
  2873.         @@:
  2874.         ret
  2875. endp
  2876.  
  2877. align 16
  2878. proc ted_but_redo uses edi, edit:dword
  2879.         mov edi,[edit]
  2880.  
  2881.         cmp ted_tim_undo,1
  2882.         jb @f
  2883.                 dec ted_tim_undo
  2884.                 ;call ted_text_colored
  2885.                 stdcall ted_draw,edi
  2886.                 cmp ted_fun_draw_panel_buttons,0
  2887.                 je @f
  2888.                         call ted_fun_draw_panel_buttons
  2889.         @@:
  2890.         ret
  2891. endp
  2892.  
  2893. ;description:
  2894. ; äã­ªæ¨ï ­ å®¤¨â ⥪áâ ­  ª®â®àë© ãª §ë¢ ¥â ted_buffer_find
  2895. ;input:
  2896. ; f_opt = ¯ à ¬¥âàë ¯®¨áª :
  2897. ;   (0 - ¨áª âì ­¨¦¥ ªãàá®à , 1 - ¨áª âì ¢ëè¥ ªãàá®à , 2 - ¨áª âì ®â ­ ç «  ä ©« )
  2898. ;   ¥á«¨ ãáâ ­®¢«¥­ 31-© ¡¨â, â® ­¥ ®¡­®¢«ï¥âáï ®ª­®
  2899. ;   ¥á«¨ ãáâ ­®¢«¥­ 30-© ¡¨â, â® ¯®¨áª ¨¤¥â ¡¥§ ãç¥â  ॣ¨áâà  á¨¬¢®«®¢
  2900. ;output:
  2901. ; eax = ¡ë« «¨ ­ ©¤¥­ ¨áª®¬ë© ⥪áâ (0 - ­¥â, 1 - ¤ )
  2902. align 16
  2903. proc ted_but_find uses ebx ecx edx edi esi, edit:dword, f_opt:dword
  2904.         mov eax,[f_opt]
  2905.         push eax
  2906.         push [edit]
  2907.         cmp al,2
  2908.         jne @f
  2909.                 call _but_find_first
  2910.                 jmp .end0
  2911.         @@:
  2912.         cmp al,0
  2913.         jne @f
  2914.                 call _but_find_next
  2915.                 jmp .end0
  2916.         @@:
  2917.         cmp al,1
  2918.         jne @f
  2919.                 call _but_find_perv
  2920.                 jmp .end0
  2921.         @@:
  2922.         add esp,8
  2923.         .end0:
  2924.  
  2925.         bt dword[f_opt],31
  2926.         jc .end1
  2927.         or eax,eax
  2928.         jz @f
  2929.                 ;⥪áâ ­ ©¤¥­, ®¡­®¢«ï¥¬ ®ª­®
  2930.                 stdcall ted_draw,edi
  2931.                 jmp .end1
  2932.         @@:
  2933.                 ;⥪áâ ­¥ ­ ©¤¥­, ¯à®¡ã¥¬ ¢ë§¢ âì á®®¡é¥­¨¥
  2934.                 cmp ted_fun_find_err,0
  2935.                 je .end1
  2936.                         call ted_fun_find_err ;¯®«ì§®¢ â¥«ì᪠ï äã­ªæ¨ï
  2937.         .end1:
  2938.         ret
  2939. endp
  2940.  
  2941. ;description:
  2942. ; äã­ªæ¨ï ­ å®¤¨â ⥪á⠮⠭ ç «  ä ©« , ¨«¨ ®â ª®­æ  ⥪ã饣® ¢ë¤¥«¥­¨ï
  2943. ;input:
  2944. ; f_opt = ®¯æ¨¨ ¤«ï ¯®¨áª 
  2945. ;output:
  2946. ; eax = ¡ë« «¨ ­ ©¤¥­ ¨áª®¬ë© ⥪áâ (0 - ­¥â, 1 - ¤ )
  2947. ; ebx, ecx, edx, edi, edi - ¯®àâïâáï
  2948. align 16
  2949. proc _but_find_first, edit:dword, f_opt:dword
  2950.         mov edi,[edit]
  2951.  
  2952.         call ted_is_select
  2953.         or al,al
  2954.         jz @f
  2955.                 call ted_sel_normalize
  2956.                 mov edx,ted_sel_y1
  2957.                 mov ecx,ted_sel_x1
  2958.                 call ted_go_to_pos ;¯¥à¥å®¤ ­  ª®­¥æ ¢ë¤¥«¥­¨ï
  2959.                 call ted_get_pos_by_cursor
  2960.                 jmp .end0
  2961.         @@:
  2962.                 mov edx,ted_tex
  2963.                 call ted_iterat_next
  2964.         .end0:
  2965.         mov ebx,ted_buffer_find
  2966.         @@:
  2967.                 mov eax,[f_opt]
  2968.                 call ted_get_find_rezult
  2969.                 cmp ah,1
  2970.                 je @f ; find
  2971.                         call ted_iterat_next
  2972.                         cmp edx,ted_tex_1
  2973.                         jle @f
  2974.                         jmp @b
  2975.         @@:
  2976.         call _but_find_select
  2977.         ret
  2978. endp
  2979.  
  2980. ;description:
  2981. ; äã­ªæ¨ï ­ å®¤¨â ⥪áâ ¢ëè¥ ªãàá®à 
  2982. ;input:
  2983. ; f_opt = ®¯æ¨¨ ¤«ï ¯®¨áª 
  2984. ;output:
  2985. ; eax = ¡ë« «¨ ­ ©¤¥­ ¨áª®¬ë© ⥪áâ (0 - ­¥â, 1 - ¤ )
  2986. ; ebx, ecx, edx, edi, edi - ¯®àâïâáï
  2987. align 16
  2988. proc _but_find_perv, edit:dword, f_opt:dword
  2989.         mov edi,[edit]
  2990.  
  2991.         call ted_is_select
  2992.         or al,al
  2993.         jz @f
  2994.                 call ted_sel_normalize
  2995.                 mov edx,ted_sel_y0
  2996.                 mov ecx,ted_sel_x0
  2997.                 call ted_go_to_pos ;¯¥à¥å®¤ ­  ­ ç «® ¢ë¤¥«¥­¨ï
  2998.                 call ted_get_pos_by_cursor
  2999.                 call ted_iterat_perv ;¯¥à¥å®¤ ­  1-© ᨬ¢®« ¯¥à¥¤ ¢ë¤¥«¥­¨¥¬
  3000.                 jmp .end0
  3001.         @@:
  3002.         call ted_get_pos_by_cursor
  3003.         .end0:
  3004.         mov ebx,ted_buffer_find
  3005.         @@:
  3006.                 mov eax,[f_opt]
  3007.                 call ted_get_find_rezult
  3008.                 cmp ah,1
  3009.                 je @f ; find
  3010.                         call ted_iterat_perv
  3011.                         cmp edx,ted_tex_1
  3012.                         jle @f
  3013.                         jmp @b
  3014.         @@:
  3015.         call _but_find_select
  3016.         ret
  3017. endp
  3018.  
  3019. ;description:
  3020. ; äã­ªæ¨ï ­ å®¤¨â ⥪áâ ­¨¦¥ ªãàá®à 
  3021. ;input:
  3022. ; f_opt = ®¯æ¨¨ ¤«ï ¯®¨áª 
  3023. ;output:
  3024. ; eax = ¡ë« «¨ ­ ©¤¥­ ¨áª®¬ë© ⥪áâ (0 - ­¥â, 1 - ¤ )
  3025. ; ebx, ecx, edx, edi, esi - ¯®àâïâáï
  3026. align 16
  3027. proc _but_find_next, edit:dword, f_opt:dword
  3028.         mov edi,[edit]
  3029.  
  3030.         call ted_get_pos_by_cursor
  3031.         mov ebx,ted_buffer_find
  3032.         @@:
  3033.                 mov eax,[f_opt]
  3034.                 call ted_get_find_rezult
  3035.                 cmp ah,1
  3036.                 je @f ; find
  3037.                         call ted_iterat_next
  3038.                         cmp edx,ted_tex_1
  3039.                         jle @f
  3040.                         jmp @b
  3041.         @@:
  3042.         call _but_find_select
  3043.         ret
  3044. endp
  3045.  
  3046. ;description:
  3047. ; ¢á¯®¬®£ â¥«ì­ ï äã­ªæ¨ï, ¢ë¤¥«ï¥â ­ ©¤¥­­ë© ⥪áâ
  3048. ;input:
  3049. ; ah = ¡ë« «¨ ­ ©¤¥­ ¨áª®¬ë© ⥪áâ (0 - ­¥â, 1 - ¤ )
  3050. ; esi = first symbol pointer
  3051. align 16
  3052. _but_find_select:
  3053.         or ah,ah
  3054.         jz @f
  3055.                 call ted_get_text_coords
  3056.                 inc ebx ;move cursor right
  3057.                 mov ted_sel_x1,ebx
  3058.                 mov ted_sel_y1,eax
  3059.                 mov edx,eax
  3060.                 mov ecx,ebx
  3061.                 call ted_go_to_pos
  3062.                 mov edx,esi
  3063.                 call ted_get_text_coords
  3064.                 mov ted_sel_x0,ebx
  3065.                 mov ted_sel_y0,eax
  3066.                 xor eax,eax
  3067.                 inc eax
  3068.                 jmp .end0
  3069.         @@:
  3070.                 xor eax,eax ;⥪áâ ­¥ ­ ©¤¥­
  3071.         .end0:
  3072.         ret
  3073.  
  3074. ;input:
  3075. ; rpl_text = ⥪áâ ¤«ï § ¬¥­ë
  3076. ; r_opt = ¯ à ¬¥âàë ¯®¨áª :
  3077. ;   (0 - ¨áª âì ­¨¦¥ ªãàá®à , 1 - ¨áª âì ¢ëè¥ ªãàá®à , 2 - ¨áª âì ®â ­ ç «  ä ©« )
  3078. ; n_tim = 䨪á¨à®¢ âì § ¬¥­ã ¢ ¨§¬¥­¥­¨ïå (0 - ­¥â, 1 - ¤ )
  3079. ;output:
  3080. ; eax = 0 - ­¥ 㤠筮, 1 - 㤠筮
  3081. align 16
  3082. proc ted_but_replace uses edx edi esi, edit:dword, rpl_text:dword, r_opt:dword, n_tim:dword
  3083.         mov edi,[edit]
  3084.         mov eax,[r_opt]
  3085.         bts eax,31
  3086.         stdcall ted_but_find, edi,eax
  3087.         or eax,eax
  3088.         jz .end0
  3089.  
  3090.         xor edx,edx
  3091.         cmp dword[n_tim],0
  3092.         je @f
  3093.                 call ted_set_undo
  3094.                 mov edx,ted_opt_ed_change_time
  3095.         @@:
  3096.         stdcall ted_sel_text_del, edx
  3097.         or eax,0xff
  3098.         jz .end0
  3099.                 mov esi,[rpl_text]
  3100.                 stdcall tl_strlen
  3101.                 or eax,eax
  3102.                 jz .end0
  3103.                 stdcall ted_text_add, edi,esi,eax,ted_opt_ed_move_cursor
  3104.                 xor eax,eax
  3105.                 inc eax
  3106.         .end0:
  3107.         ret
  3108. endp
  3109.  
  3110. ;description:
  3111. ; ”ã­ªæ¨ï ¯à®¢¥àï¥â ᮢ¯ ¤ ¥â «¨ ⥪áâ ¢ ¡ãä¥à¥ ebx
  3112. ; á ⥪á⮬ । ªâ®à  ¯® 㪠§ â¥«î edx.
  3113. ; ‘â ­¤ àâ­ë¥ ä㭪樨 (­ ¯à. strcmp) âãâ ­¥ ¯®¤®©¤ãâ, ¯®â®¬ã çâ®
  3114. ; ¢ ¯ ¬ï⨠। ªâ®à  ⥪áâ ᮤ¥à¦¨âáï ­¥ ¢ ¢¨¤¥ ascii áâப.
  3115. ;input:
  3116. ; eax - options to find
  3117. ; ebx - text need find
  3118. ; edx - first symbol pointer
  3119. ; edi - pointer to tedit struct
  3120. ;output:
  3121. ; ah - rezult
  3122. ; edx - last text position (if find sucess)
  3123. ; esi - first symbol pointer
  3124. align 16
  3125. proc ted_get_find_rezult uses ebx
  3126.         mov al,byte[ebx]
  3127.         bt eax,30
  3128.         jnc @f
  3129.                 call fb_char_toupper
  3130.         @@:
  3131.         mov ah,1
  3132.         mov esi,edx ;copy edx
  3133.         .cycle0:
  3134.                 mov cl,al
  3135.                 mov al,byte[edx]
  3136.                 bt eax,30
  3137.                 jnc @f
  3138.                         call fb_char_toupper
  3139.                 @@:
  3140.                 cmp al,cl
  3141.                 jne .no_text
  3142.  
  3143.                 inc ebx ;*** get next symbol (in find text) ***
  3144.                 mov al,byte[ebx]
  3145.                 or al,al
  3146.                 jz .end_f ;end of find text
  3147.                 bt eax,30
  3148.                 jnc @f
  3149.                         call fb_char_toupper
  3150.                 @@:
  3151.  
  3152.                 call ted_iterat_next ;*** get next symbol (in editor text) ***
  3153.                 cmp edx,ted_tex_1
  3154.                 jg .cycle0
  3155. align 4
  3156.                 .no_text:
  3157.         xor ah,ah
  3158.         mov edx,esi ;restore edx
  3159.         .end_f:
  3160.         ret
  3161. endp
  3162.  
  3163. ;input:
  3164. ; edi = pointer to tedit struct
  3165. align 16
  3166. ted_key_ctrl_home:
  3167.         mov ted_cur_x,0
  3168.         mov ted_cur_y,0
  3169.         push eax
  3170.                 mov eax,ted_scr_w
  3171.                 mov dword[eax+sb_offs_position],0
  3172.                 mov eax,ted_scr_h
  3173.                 mov dword[eax+sb_offs_position],0
  3174.         pop eax
  3175.         stdcall ted_draw,edi
  3176.         cmp ted_fun_draw_panel_buttons,0
  3177.         je @f
  3178.                 call ted_fun_draw_panel_buttons
  3179.         @@:
  3180.         ret
  3181.  
  3182. ;input:
  3183. ; edi = pointer to tedit struct
  3184. align 16
  3185. ted_key_ctrl_end:
  3186.         push eax ebx
  3187.                 call ted_get_num_lines
  3188.                 mov ebx,ted_scr_w
  3189.                 mov [ebx+sb_offs_position],eax ;áâ ¢¨¬ ¯®«§ã­®ª ­  ¯®á«¥¤­îî áâப㠤®ªã¬¥­â 
  3190.                 cmp eax,[ebx+sb_offs_cur_area]
  3191.                 jle @f
  3192.                         mov eax,[ebx+sb_offs_cur_area] ;¯®«ãç ¥¬ ç¨á«® áâப ¢« §ïé¨å ¢ ®ª­®
  3193.                 @@:
  3194.                 sub [ebx+sb_offs_position],eax ;®â­¨¬ ¥¬ ®â ¯®«§ã­ª  ç¨á«® áâப ¢« §ïé¨å ¢ ®ª­® (­® ­¥ ¡®«ìè¥ â¥å, çâ® ¥áâì ¢ ¤®ªã¬¥­â¥)
  3195.                 dec eax
  3196.                 mov ted_cur_y,eax ;áâ ¢¨¬ ªãàá®à ­  ¯®á«¥¤­îî áâப㠤®ªã¬¥­â 
  3197.         pop ebx eax
  3198.         call ted_cur_move_x_last_char
  3199.         stdcall ted_draw,edi
  3200.         cmp ted_fun_draw_panel_buttons,0
  3201.         je @f
  3202.                 call ted_fun_draw_panel_buttons
  3203.         @@:
  3204.         ret
  3205.  
  3206. ;input:
  3207. ; edi = pointer to tedit struct
  3208. align 16
  3209. proc ted_sel_key_up
  3210.   cmp ted_drag_k,1
  3211.   je @f
  3212.     call ted_sel_start
  3213.     mov ted_drag_k,1
  3214.   @@:
  3215.   push dx
  3216.     call ted_cur_move_up
  3217.     cmp dl,8
  3218.     jne @f
  3219.       call ted_scroll_set_redraw
  3220.     @@:
  3221.   pop dx
  3222.   call ted_sel_move
  3223.   stdcall ted_draw,edi
  3224.   ret
  3225. endp
  3226.  
  3227. ;input:
  3228. ; edi = pointer to tedit struct
  3229. align 16
  3230. proc ted_sel_key_down
  3231.   cmp ted_drag_k,1
  3232.   je @f
  3233.     call ted_sel_start
  3234.     mov ted_drag_k,1
  3235.   @@:
  3236.   push dx
  3237.     call ted_cur_move_down
  3238.     cmp dl,8
  3239.     jne @f
  3240.       call ted_scroll_set_redraw
  3241.     @@:
  3242.   pop dx
  3243.   call ted_sel_move
  3244.   stdcall ted_draw,edi
  3245.   ret
  3246. endp
  3247.  
  3248. ;input:
  3249. ; edi = pointer to tedit struct
  3250. align 16
  3251. proc ted_sel_key_left
  3252.         cmp ted_drag_k,1
  3253.         je @f
  3254.                 call ted_sel_start
  3255.         @@:
  3256.         push dx
  3257.                 call ted_cur_move_left
  3258.                 call ted_sel_move
  3259.                 cmp ted_drag_k,1
  3260.                 je @f
  3261.                         mov ted_drag_k,1
  3262.                         mov dl,8
  3263.                 @@:
  3264.                 cmp dl,8
  3265.                 jne @f
  3266.                         call ted_scroll_set_redraw
  3267.                         stdcall ted_draw,edi
  3268.                         jmp .end_f
  3269.                 @@:
  3270.                 stdcall ted_draw_cur_line,edi
  3271.                 .end_f:
  3272.         pop dx
  3273.         ret
  3274. endp
  3275.  
  3276. ;input:
  3277. ; edi = pointer to tedit struct
  3278. align 16
  3279. proc ted_sel_key_right
  3280.         cmp ted_drag_k,1
  3281.         je @f
  3282.                 call ted_sel_start
  3283.         @@:
  3284.         push dx
  3285.                 call ted_cur_move_right
  3286.                 call ted_sel_move
  3287.                 cmp ted_drag_k,1
  3288.                 je @f
  3289.                         mov ted_drag_k,1
  3290.                         mov dl,8
  3291.                 @@:
  3292.                 cmp dl,8
  3293.                 jne @f
  3294.                         call ted_scroll_set_redraw
  3295.                         stdcall ted_draw,edi
  3296.                         jmp .end_f
  3297.                 @@:
  3298.                 stdcall ted_draw_cur_line,edi
  3299.                 .end_f:
  3300.         pop dx
  3301.         ret
  3302. endp
  3303.  
  3304. ;input:
  3305. ; edi = pointer to tedit struct
  3306. ;description:
  3307. ; this function need to optimize output
  3308. align 16
  3309. proc ted_draw_cursor_sumb
  3310. pushad
  3311.         mov ebx,ted_wnd_l
  3312.         add ebx,ted_rec_l
  3313.         mov edx,ted_cur_x
  3314.         imul edx,ted_rec_w
  3315.         add ebx,edx
  3316.         shl ebx,16
  3317.         add ebx,ted_rec_w
  3318.  
  3319.         mov ecx,ted_wnd_t ;calc rect -> y0,y1
  3320.         add ecx,ted_rec_t
  3321.         mov edx,ted_cur_y
  3322.         imul edx,ted_rec_h
  3323.         add ecx,edx
  3324.         shl ecx,16
  3325.         add ecx,ted_rec_h
  3326.  
  3327.         mov edx,ted_color_wnd_work
  3328.         call ted_sel_normalize
  3329.  
  3330.         mov esi,ted_scr_w
  3331.         mov eax,[esi+sb_offs_position]
  3332.         sub ted_seln_y0,eax
  3333.         sub ted_seln_y1,eax
  3334.  
  3335.         mov eax,ted_cur_y
  3336.         cmp eax,ted_seln_y0
  3337.         jl .no_cur_sel
  3338.         cmp eax,ted_seln_y1
  3339.         jg .no_cur_sel
  3340.                 mov edx,ted_color_select ;¬¥­ï¥¬ 梥â ä®­  ­  梥⠢뤥«¥­¨ï
  3341.                 mov esi,ted_scr_h
  3342.                 cmp eax,ted_seln_y0
  3343.                 jne @f
  3344.                         mov eax,ted_cur_x
  3345.                         add eax,[esi+sb_offs_position]
  3346.                         cmp eax,ted_seln_x0
  3347.                         jge @f
  3348.                         mov edx,ted_color_wnd_work
  3349.                 @@:
  3350.                 mov eax,ted_cur_y
  3351.                 cmp eax,ted_seln_y1
  3352.                 jne .no_cur_sel
  3353.                         mov eax,ted_cur_x
  3354.                         add eax,[esi+sb_offs_position]
  3355.                         cmp eax,ted_seln_x1
  3356.                         jl .no_cur_sel
  3357.                         mov edx,ted_color_wnd_work
  3358.         .no_cur_sel:
  3359.         mcall SF_DRAW_RECT
  3360.  
  3361.         call ted_get_pos_by_cursor ;¡¥à¥¬ ¯®§¨æ¨î ᨬ¢®« 
  3362.         cmp ted_gp_opt,2
  3363.         jne @f
  3364.                 mov esi,1
  3365.                 ror ecx,16
  3366.                 mov bx,cx
  3367.                 add ebx,0x10001
  3368.                 call ted_get_symb_color
  3369.                 call ted_convert_invis_symb
  3370.                 mcall SF_DRAW_TEXT ;à¨á®¢ ­¨¥ ᨬ¢®« 
  3371.         @@:
  3372. popad
  3373.         ret
  3374. endp
  3375.  
  3376. ;input:
  3377. ; edx -> pointer to text
  3378. ; edi -> 㪠§ â¥«ì ­  áâàãªâãàã tedit
  3379. ;output:
  3380. ; ecx = color
  3381. ; if ted_mode_color=0 then ecx=ted_color_wnd_text
  3382. align 16
  3383. ted_get_symb_color:
  3384.         mov ecx,ted_color_wnd_text ;§ ¤ ¥¬ 梥â ⥪áâ  ¯® 㬮«ç ­¨î
  3385.  
  3386.         push eax edx
  3387.         cmp ted_mode_color,0
  3388.         je .exit
  3389.                 jmp .on_first
  3390.                 @@:
  3391.                         call ted_iterat_perv
  3392.                         cmp edx,ted_tex_1
  3393.                         jle .exit
  3394.                 .on_first:
  3395.                         movzx eax,byte[edx+1]
  3396.                         or eax,eax ;¥á«¨ al=0 ⮠梥⠭¥ ¬¥­ï¥âáï
  3397.                         jz @b
  3398.  
  3399.                 cmp eax,ted_colors_text_count
  3400.                 jge .exit
  3401.  
  3402.                 mov ecx,ted_text_colors ;¯à¨¡ ¢«ï¥¬ ᬥ饭¨¥ 1-£® 梥â 
  3403.                 lea ecx,[ecx+4*eax]
  3404.                 mov ecx,[ecx] ;ãáâ ­ ¢«¨¢ ¥¬ ⥪ã騩 梥â ⥪áâ  ¯® ᬥ饭¨î
  3405.         .exit:
  3406.         or ecx,ted_font_size
  3407.         pop edx eax
  3408.         ret
  3409.  
  3410. ;input:
  3411. ; edx = pointer to text
  3412. ; edi = pointer to tedit struct
  3413. ;description:
  3414. ; ”ã­ªæ¨ï ¯à¥®¡à §ã¥â ­¥¢¨¤¨¬ë¥ ᨬ¢®«ë ¢ ¯¥ç â ¥¬ë¥ ­  íªà ­¥
  3415. align 16
  3416. ted_convert_invis_symb:
  3417.         cmp ted_mode_invis,1
  3418.         jne .else
  3419.                 cmp byte[edx],9
  3420.                 jne @f
  3421.                         lea edx,[ted_symbol_tab]
  3422.                         jmp .end_f
  3423. align 4
  3424.                 @@:
  3425.                 cmp byte[edx],13
  3426.                 jne @f
  3427.                         mov edx,edi
  3428.                         add edx,ted_offs_symbol_new_line
  3429.                 @@:
  3430.                 jmp .end_f
  3431. align 4
  3432.         .else:
  3433.                 cmp byte[edx],9
  3434.                 je @f
  3435.                 cmp byte[edx],13
  3436.                 jne .end_f
  3437.                 @@:
  3438.                         lea edx,[ted_symbol_space]
  3439.         .end_f:
  3440.         ret
  3441.  
  3442. ;input:
  3443. ; edi = pointer to tedit struct
  3444. align 16
  3445. ted_scroll_set_redraw:
  3446.         push eax
  3447.         mov eax,ted_scr_w
  3448.         mov dword[eax+sb_offs_redraw],1
  3449.         mov eax,ted_scr_h
  3450.         mov dword[eax+sb_offs_redraw],1
  3451.         pop eax
  3452.         ret
  3453.  
  3454. align 16
  3455. proc ted_draw, edit:dword
  3456.         locals
  3457.                 line_num dd ?
  3458.         endl
  3459.         pushad
  3460.         mov edi,[edit]
  3461.  
  3462.         mov eax,SF_DRAW_TEXT
  3463.         mov ecx,ted_text_colors
  3464.         mov ecx,[ecx]
  3465.  
  3466.         mov ebx,ted_wnd_l
  3467.         add ebx,ted_rec_l
  3468.         shl ebx,16
  3469.         add ebx,ted_wnd_t
  3470.         add ebx,ted_rec_t
  3471.         add ebx,0x10001 ;¤®¡ ¢«ï¥¬ ®âáâã¯ë ¤«ï ¢ëà ¢­¨¢ ­¨ï ¡ãª¢ë ¯® 業âàã
  3472.  
  3473.         call ted_sel_normalize ;need before draw select
  3474.         mov esi,ted_scr_w
  3475.         mov esi,[esi+sb_offs_position]
  3476.         mov [line_num],esi
  3477.  
  3478.         stdcall ted_clear_line_before_draw, edi,ebx,1,esi
  3479.         call ted_get_first_visible_pos
  3480.         or edx,edx
  3481.         jz .no_draw_text
  3482.         mov esi,1 ;¤«¨­­  ¢ë¢®¤¨¬®£® ⥪áâ  ¯® 1-¬ã ᨬ¢®«ã
  3483.         @@:
  3484.                 call ted_iterat_next
  3485.                 cmp edx,ted_tex_1
  3486.                 jle .no_draw_text
  3487.  
  3488.                 ; *** 梥⮢ ï à §¬¥âª 
  3489.                 cmp ted_mode_color,0
  3490.                 je .no_col_change
  3491.                 cmp byte[edx+1],0
  3492.                 je .no_col_change
  3493.                         call ted_get_symb_color
  3494.                 .no_col_change:
  3495.  
  3496.                 cmp byte[edx],13
  3497.                 jne .no_13
  3498.                         cmp ted_mode_invis,1
  3499.                         jne .no_invis
  3500.                                 push edx
  3501.                                 mov edx,edi
  3502.                                 add edx,ted_offs_symbol_new_line
  3503.                                 int 0x40
  3504.                                 pop edx
  3505.                         .no_invis:
  3506.                         add ebx,ted_rec_h
  3507.                         ;optimized output \/
  3508.                         mov eax,ted_wnd_h
  3509.                         add eax,ted_wnd_t
  3510.                         cmp bx,ax
  3511.                         jg .no_draw_text
  3512.                         mov eax,SF_DRAW_TEXT
  3513.                         ;optimized output /\        
  3514.                         and ebx,0xffff
  3515.                         ror ebx,16
  3516.                         add ebx,ted_wnd_l
  3517.                         add ebx,ted_rec_l
  3518.                         inc ebx
  3519.                         ror ebx,16
  3520.                         inc dword[line_num] ;increment line number
  3521.                         stdcall ted_clear_line_before_draw,edi,ebx,1,dword[line_num]
  3522.                         call ted_opt_draw_line_left
  3523.                         jmp @b
  3524. align 4
  3525.                 .no_13:
  3526.  
  3527.                 int 0x40
  3528.                 ror ebx,16
  3529.                 add ebx,ted_rec_w
  3530.                 mov esi,ted_wnd_l
  3531.                 add esi,ted_wnd_w
  3532.                 cmp bx,si
  3533.                 jl .no_opt
  3534.                         call ted_opt_draw_line_right
  3535.                 .no_opt:
  3536.                 mov si,1
  3537.                 ror ebx,16
  3538.                 jmp @b
  3539.         .no_draw_text:
  3540.  
  3541.         inc dword[line_num]
  3542.         stdcall ted_clear_line_before_draw,edi,ebx,0,dword[line_num]
  3543.         call ted_draw_line_numbers
  3544.         call ted_draw_main_cursor
  3545.  
  3546. ;---------------------------------------------
  3547. ; set all_redraw flag for draw all ScrollBar
  3548. ; In some cases it is necessity to draw only the area
  3549. ; of moving of a "runner", for acceleration of output -
  3550. ; in this case the flag needs to be reset to 0 (zero).
  3551.         mov eax,ted_scr_h
  3552.         mov esi,ted_scr_w
  3553.         mov dword[eax+sb_offs_all_redraw],1
  3554.         mov dword[esi+sb_offs_all_redraw],1
  3555.  
  3556. ; à¨á®¢ ­¨¥ ¯®«®á ¯à®ªàã⪨
  3557.         stdcall scroll_bar_horizontal.draw,eax ;[scrollbar_hor_draw]
  3558.         stdcall scroll_bar_vertical.draw,esi ;[scrollbar_ver_draw]
  3559. ; reset all_redraw flag
  3560.         mov dword[eax+sb_offs_all_redraw],0
  3561.         mov dword[esi+sb_offs_all_redraw],0
  3562. ;---------------------------------------------
  3563.  
  3564.         ;left-bottom square
  3565.         mov ebx,ted_wnd_l
  3566.         shl ebx,16
  3567.         add ebx,ted_rec_l
  3568.         mov ecx,ted_wnd_t
  3569.         add ecx,ted_wnd_h
  3570.         shl ecx,16
  3571.         mov cx,word[eax+sb_offs_size_y]
  3572.         inc cx
  3573.         mcall SF_DRAW_RECT,,,ted_color_wnd_capt ;[sc.work]
  3574.  
  3575.         ;right-bottom square
  3576.         mov ebx,ted_wnd_l
  3577.         add ebx,ted_wnd_w
  3578.         shl ebx,16
  3579.         mov bx,word[esi+sb_offs_size_x]
  3580.         inc bx
  3581.         int 0x40
  3582.  
  3583.         cmp ted_fun_draw_panels,0
  3584.         je @f
  3585.                 stdcall ted_fun_draw_panels, edi
  3586.         @@:
  3587.         popad
  3588.         ret
  3589. endp
  3590.  
  3591. ;input:
  3592. ; edi = pointer to tedit struct
  3593. align 16
  3594. proc ted_draw_main_cursor
  3595. pushad
  3596.         mov eax,SF_DRAW_RECT ;draw cursor
  3597.         mov ecx,ted_wnd_t ;calc rect -> y0,y1
  3598.         add ecx,ted_rec_t
  3599.         mov edx,ted_cur_y
  3600.         imul edx,ted_rec_h
  3601.         add ecx,edx
  3602.  
  3603.         shl ecx,16
  3604.         add ecx,ted_rec_h
  3605.  
  3606.         mov ebx,ted_wnd_l ;calc rect -> x0,x1
  3607.         add ebx,ted_rec_l
  3608.         mov edx,ted_cur_x
  3609.         imul edx,ted_rec_w
  3610.         add ebx,edx
  3611.         shl ebx,16
  3612.         add ebx,ted_rec_w
  3613.         cmp ted_cur_ins,1 ;¯à®¢¥àª  ०¨¬  à ¡®âë ªãàá®à  (®¡ëç­ë© ¨«¨ ¢áâ ¢ª )
  3614.         jne @f
  3615.                 shr bx,2 ;㬥­ìè ¥¬ è¨à¨­ã ªãàá®à 
  3616.         @@:
  3617.  
  3618.         mov edx,ted_color_cursor
  3619.         int 0x40 ;¢ë¢®¤ ªãàá®à 
  3620.  
  3621.         call ted_get_pos_by_cursor
  3622.         cmp ted_gp_opt,2
  3623.         jne @f
  3624.                 mov esi,1
  3625.                 ror ecx,16
  3626.                 mov bx,cx
  3627.                 add ebx,0x10001
  3628.                 mov ecx,ted_color_cur_text
  3629.                 or ecx,ted_font_size
  3630.                 call ted_convert_invis_symb
  3631.                 mcall SF_DRAW_TEXT
  3632.         @@:
  3633.  
  3634.         mov ebx,ted_wnd_l
  3635.         add ebx,ted_rec_l
  3636.         shl ebx,16
  3637.         add ebx,ted_wnd_t
  3638.         add ebx,3
  3639.         mov ecx,ted_color_wnd_bord
  3640.         or  ecx,0x80000000
  3641.         lea edx,[txtRow]
  3642.         mcall SF_DRAW_TEXT ;¢ë¢®¤ ¯®¤¯¨á¨ '‘âப '
  3643.  
  3644.         add ebx,0x500000
  3645.         lea edx,[txtCol]
  3646.         int 0x40 ;¢ë¢®¤ ¯®¤¯¨á¨ '‡­ ª'
  3647.  
  3648.         cmp ted_tim_undo,0
  3649.         je @f
  3650.                 add ebx,0x500000
  3651.                 lea edx,[txtOtm]
  3652.                 int 0x40
  3653.                 sub ebx,0x500000
  3654.         @@:
  3655.  
  3656.         call ted_draw_buffer
  3657.         call ted_draw_help_f1
  3658.  
  3659.         mov eax,47 ;draw cursor coords
  3660.         mov esi,ted_color_wnd_bord
  3661.         or  esi,0x40000000
  3662.  
  3663.         mov edx,ebx
  3664.         ror edx,16
  3665.         sub edx,35
  3666.         ror edx,16
  3667.         ;add edx,3
  3668.         mov ebx,0x40000 ;Row=...
  3669.         mov ecx,ted_scr_w
  3670.         mov ecx,[ecx+sb_offs_position]
  3671.         add ecx,ted_cur_y
  3672.         inc ecx
  3673.  
  3674. push edi
  3675.         mov edi,ted_color_wnd_work
  3676.         int 0x40 ;¢ë¢®¤ ç¨á«  ⥪ã饩 áâப¨
  3677. pop edi
  3678.  
  3679.         ;mov ebx,0x40000 ;Col=...
  3680.         mov ecx,ted_scr_h
  3681.         mov ecx,[ecx+sb_offs_position]
  3682.         add ecx,ted_cur_x
  3683.         inc ecx
  3684.         add edx,0x500000
  3685. push edi
  3686.         mov edi,ted_color_wnd_work
  3687.         int 0x40 ;¢ë¢®¤ ç¨á«  §­ ª®¢
  3688. pop edi
  3689.  
  3690.         cmp ted_tim_undo,0
  3691.         je @f
  3692.                 mov ecx,ted_tim_undo
  3693.                 add edx,0x500000
  3694.                 mov edi,ted_color_wnd_work ;¯®à⨬ ॣ¨áâà edi, ­® ¢ ª®­æ¥ ä㭪樨 í⮠㦥 ­¥ ¢ ¦­®
  3695.                 int 0x40 ;¢ë¢®¤ ç¨á«  ®â¬¥­¥­­ëå ¤¥©á⢨©
  3696.         @@:
  3697.  
  3698. popad
  3699.         ret
  3700. endp
  3701.  
  3702. ;input:
  3703. ; edi = pointer to tedit struct
  3704. align 16
  3705. proc ted_draw_buffer
  3706.         pushad
  3707.  
  3708.         mov eax,ted_buffer
  3709.         cmp dword[eax],1 ;ᬮâਬ à §¬¥à ¡ãä¥à 
  3710.         jl @f
  3711.                 mov ebx,ted_rec_l
  3712.                 add bx,300
  3713.                 cmp ebx,ted_wnd_w ;áà ¢­¨¢ ¥¬ ª®®à¤¨­ âã ¤«ï ¢ë¢®¤ ⥪áâ 
  3714.                 jge @f ;¯®¤¯¨áì ­¥ ¢« §¨â ¢ ®ª­®
  3715.  
  3716.                 add ebx,ted_wnd_l
  3717.                 shl ebx,16
  3718.                 add ebx,ted_wnd_t
  3719.                 add ebx,3
  3720.                 mov ecx,ted_color_wnd_bord
  3721.                 or ecx,0x40000000
  3722.  
  3723.                 mov edx,ted_buffer
  3724.                 add edx,12
  3725.                 mov esi,edx
  3726.                 mov edi,ted_color_wnd_work ;edi - destroy not pointer to tedit
  3727.                 call tl_strlen
  3728.                 ;cmp eax,0 ;¡ãä¥à ¯ãáâ
  3729.                 ;je @f
  3730.                 cmp eax,20
  3731.                 jle .crop_buf
  3732.                         mov eax,20 ;®¡à¥§ª  ¯®¤¯¨á¨ ¤® 20 ᨬ¢®«®¢
  3733.                 .crop_buf:
  3734.                 mov esi,eax
  3735.                 mcall SF_DRAW_TEXT ;¢ë¢®¤ ᮤ¥à¦¨¬®£® ¡ãä¥à 
  3736.  
  3737.                 sub ebx,50 shl 16
  3738.                 lea edx,[txtBuf]
  3739.                 mov esi,edx
  3740.                 call tl_strlen
  3741.                 mov esi,eax
  3742.                 xor ecx,0x40000000 ;㡨ࠥ¬ 梥â ä®­ 
  3743.                 mcall SF_DRAW_TEXT ;¢ë¢®¤ ¯®¤¯¨á¨ ¤«ï ¡ãä¥à 
  3744.         @@:
  3745.         popad
  3746.         ret
  3747. endp
  3748.  
  3749. ;input:
  3750. ; edi = pointer to tedit struct
  3751. align 16
  3752. proc ted_draw_help_f1
  3753.         pushad
  3754.         cmp ted_rec_t,13 ;¬¨­¨¬ «ì­ ï ¢ëá®â  ¤«ï à¨á®¢ ­¨ï á¯à ¢ª¨
  3755.         jle @f
  3756.                 ;clear place before draw help
  3757.                 mov ebx,ted_wnd_l
  3758.                 add ebx,ted_rec_l
  3759.                 shl ebx,16
  3760.                 add ebx,ted_wnd_w
  3761.                 sub ebx,ted_rec_l
  3762.                 mov ecx,ted_wnd_t
  3763.                 add ecx,13
  3764.                 shl ecx,16
  3765.                 add ecx,9 ;9 - ¢ëá®â  0-£® èà¨äâ , áâ ¢¨âì ted_rec_h ¯®ª  ¥é¥ à ­®
  3766.                 mcall SF_DRAW_RECT,,,ted_color_wnd_capt
  3767.  
  3768.         cmp ted_help_id,-1
  3769.         je @f
  3770.                 mov eax,ted_help_id
  3771.                 ColToIndexOffset eax,edx
  3772.  
  3773.                 ;SetCoordinates
  3774.                 mov ebx,ted_wnd_l
  3775.                 add ebx,ted_rec_l
  3776.                 shl ebx,16
  3777.                 add ebx,ted_wnd_t
  3778.                 add ebx,13 ;=3+10
  3779.  
  3780.                 ;SetTextColor
  3781.                 movzx eax,byte[edx+MAX_COLOR_WORD_LEN+7]
  3782.                 shl eax,2
  3783.                 mov ecx,ted_text_colors
  3784.                 add ecx,eax
  3785.                 mov ecx,[ecx]
  3786.                 or      ecx,0xc0000000 ;SetTextStyles
  3787.                 mov esi,edi
  3788.                 mcall SF_DRAW_TEXT,,,,,ted_color_wnd_work
  3789.                 mov edi,esi
  3790.  
  3791.                 mov esi,edx
  3792.                 call tl_strlen
  3793.  
  3794.                 ;*** draw help string ***
  3795.                 mov ecx,ted_color_wnd_bord
  3796.                 or ecx,0x80000000
  3797.                 mov edx,[edx+MAX_COLOR_WORD_LEN]
  3798.                 or edx,edx
  3799.                 jz @f
  3800.                         add edx,ted_help_text_f1
  3801.                         inc eax
  3802.                         imul eax,6 ;è¨à¨­  ᨬ¢®«  ¢ á¨áâ. èà¨äâ¥
  3803.                         shl eax,16                     
  3804.                         add ebx,eax
  3805.                         mcall SF_DRAW_TEXT
  3806.         @@:
  3807.         popad
  3808.         ret
  3809. endp
  3810.  
  3811. ;input:
  3812. ; edi = pointer to tedit struct
  3813. align 16
  3814. proc ted_draw_line_numbers
  3815. pushad
  3816.         ;top panel with caption
  3817.         mov ebx,ted_wnd_l
  3818.         ;add ebx,ted_rec_l
  3819.         shl ebx,16
  3820.         add ebx,ted_wnd_w
  3821.         ;sub ebx,ted_rec_l
  3822.         mov edx,ted_color_wnd_work
  3823.         mov ecx,ted_wnd_t
  3824.         shl ecx,16
  3825.         add ecx,ted_rec_t
  3826.         mov edx,ted_color_wnd_capt
  3827.         mcall SF_DRAW_RECT
  3828.  
  3829.         ;line numbers
  3830.         mov ebx,0x40000 ;format
  3831.         mov ecx,ted_scr_w
  3832.         mov ecx,[ecx+sb_offs_position]
  3833.         inc ecx
  3834.         mov edx,3
  3835.         add edx,ted_wnd_l
  3836.         rol edx,16
  3837.         add edx,ted_wnd_t
  3838.         add edx,ted_rec_t
  3839.         @@:
  3840.  
  3841. push ebx ecx edx
  3842.         ;left panel with numbers
  3843.         mov ebx,ted_wnd_l
  3844.         shl ebx,16
  3845.         add ebx,ted_rec_l
  3846.         mov ecx,ted_rec_h
  3847.         rol ecx,16
  3848.         mov cx,dx
  3849.         rol ecx,16
  3850.         mov edx,ted_color_wnd_capt
  3851.         mcall SF_DRAW_RECT ;à¨á㥬 ¯àאַ㣮«ì­¨ª ¯®¤ ­®¬¥à®¬ áâப¨
  3852. pop edx ecx ebx
  3853.  
  3854.                 mov esi,ted_color_wnd_bord
  3855.                 mcall SF_DRAW_NUMBER ;à¨á㥬 ­®¬¥à áâப¨
  3856.                 inc ecx
  3857.                 add edx,ted_rec_h
  3858.                 sub edx,ted_wnd_t
  3859.                 mov esi,edx
  3860.                 and esi,0xffff
  3861.                 cmp esi,ted_wnd_h
  3862.                 jge @f
  3863.                 add edx,ted_wnd_t
  3864.                 jmp @b
  3865. align 4
  3866.         @@:
  3867. popad
  3868.         ret
  3869. endp
  3870.  
  3871. ;output:
  3872. ; ah = symbol
  3873. align 16
  3874. proc KeyConvertToASCII uses ebx, table:dword
  3875.         mov ebx,[table] ;convert scan to ascii
  3876.         shr ax,8
  3877.         add bx,ax ;? ebx,eax
  3878.         mov ah,byte[ebx]
  3879.         ret
  3880. endp
  3881.  
  3882. align 16
  3883. proc ted_draw_cur_line, edit:dword
  3884. pushad
  3885.         mov edi,[edit]
  3886.  
  3887.         mov ebx,ted_wnd_l
  3888.         add ebx,ted_rec_l
  3889.         shl ebx,16
  3890.         mov eax,ted_cur_y
  3891.         imul eax,ted_rec_h
  3892.         mov bx,ax
  3893.         add ebx,ted_wnd_t
  3894.         add ebx,ted_rec_t ;ebx - ª®®à¤¨­ âë ¤«ï ¯àאַ㣮«ì­¨ª  ®ç¨á⪨ «¨­¨¨
  3895.         add ebx,0x10001   ;¤®¡ ¢«ï¥¬ ®âáâã¯ë ¤«ï ¢ëà ¢­¨¢ ­¨ï ¡ãª¢ë ¯® 業âàã
  3896.  
  3897.         call ted_sel_normalize ;need before draw select
  3898.         mov ecx,ted_cur_y
  3899.         mov eax,ted_scr_w
  3900.         add ecx,[eax+sb_offs_position]
  3901.         stdcall ted_clear_line_before_draw,edi,ebx,1,ecx
  3902.  
  3903.         mov eax,ted_scr_h
  3904.         mov esi,[eax+sb_offs_position]
  3905.         call ted_get_pos_by_coords
  3906.  
  3907.         cmp ted_gp_opt,2
  3908.         jne .no_draw_text
  3909.         call ted_get_symb_color
  3910.         mov esi,1 ;draw 1 symbol
  3911.         @@:
  3912.                 ;call ted_iterat_next
  3913.                 cmp edx,ted_tex_1
  3914.                 jle .no_draw_text
  3915.  
  3916.                 ; *** 梥⮢ ï à §¬¥âª 
  3917.                 cmp ted_mode_color,0
  3918.                 je .no_col_change
  3919.                 cmp byte[edx+1],0
  3920.                 je .no_col_change
  3921.                         call ted_get_symb_color
  3922.                 .no_col_change:
  3923.  
  3924.                 mov eax,SF_DRAW_TEXT
  3925.                 cmp byte [edx],13
  3926.                 jne .no_13
  3927.                         cmp ted_mode_invis,1
  3928.                         jne .no_draw_text
  3929.                         push edx
  3930.                         mov edx,edi
  3931.                         add edx,ted_offs_symbol_new_line
  3932.                         int 0x40
  3933.                         pop edx
  3934.                         jmp .no_draw_text
  3935. align 4
  3936.                 .no_13:
  3937.  
  3938.                 int 0x40
  3939.                 ror ebx,16
  3940.                 add ebx,ted_rec_w
  3941.                 mov eax,ted_wnd_w
  3942.                 add eax,ted_wnd_l ;ax = ®âáâ㯠¯® ®á¨ x
  3943.                 cmp bx,ax
  3944.                 jge .no_draw_text ;Opt
  3945.                 ror ebx,16
  3946.                 call ted_iterat_next
  3947.                 jmp @b
  3948. align 4
  3949.         .no_draw_text:
  3950.  
  3951.         call ted_draw_main_cursor
  3952. popad
  3953.         ret
  3954. endp
  3955.  
  3956. ;input:
  3957. ;  clear_o - ¥á«¨ =1 ®ç¨áâ¨âì ®¤­ã áâபã, =0 ®ç¨áâ¨âì ¢á¥ áâப¨ ®ª­  ¤® ­¨§ã
  3958. align 16
  3959. proc ted_clear_line_before_draw, edit:dword, coords:dword, clear_o:dword, numb_lin:dword
  3960.         pushad
  3961.         mov edi,[edit]
  3962.         mov ebx,[coords] ;ebx = x*2^16+y coords to left up point clear line
  3963.         mov esi,[numb_lin] ;esi - number text line
  3964.  
  3965.         sub ebx,0x10001 ;®â­¨¬ ¥¬ ®âáâã¯ë ¤«ï ¢ëà ¢­¨¢ ­¨ï ¡ãª¢ë ¯® 業âàã
  3966.         cmp dword[clear_o],0
  3967.         jne @f
  3968.                 add ebx,ted_rec_h
  3969.                 ror ebx,16
  3970.                 xor bx,bx
  3971.                 add ebx,ted_wnd_l
  3972.                 add ebx,ted_rec_l ;bx = ted_wnd_l+ted_rec_l
  3973.                 ror ebx,16
  3974.         @@:
  3975.  
  3976.         mov eax,ted_wnd_h
  3977.         add eax,ted_wnd_t
  3978.         cmp ax,bx
  3979.         jl .no_clear
  3980.         sub ax,bx
  3981.  
  3982.         mov cx,bx
  3983.         shl ecx,16
  3984.  
  3985.         xor bx,bx
  3986.         add ebx,ted_wnd_w
  3987.         sub ebx,ted_rec_l
  3988.         xor cx,cx
  3989.         add ecx,ted_rec_h
  3990.         mov edx,ted_color_wnd_work
  3991.  
  3992.         cmp dword[clear_o],0
  3993.         je .pusto
  3994.         cmp ax,cx
  3995.         jge @f
  3996.         .pusto:
  3997.                 mov cx,ax
  3998.                 jmp .no_select ;¥á«¨ ®ç¨á⪠ ®ª­  ¤® ­¨§ã, â® ¢á¥£¤  ä®­®¢ë¬ 梥⮬
  3999.         @@:
  4000.  
  4001.         call ted_is_select
  4002.         or al,al
  4003.         jz .no_select
  4004.         cmp ted_seln_y0,esi
  4005.         jg .no_select
  4006.         cmp ted_seln_y1,esi
  4007.         jl .no_select
  4008.                 mov edx,ted_color_select ;draw selected line
  4009.         .no_select:
  4010.  
  4011.         mcall SF_DRAW_RECT ;§ ªà áª  ¯®«­®© áâப¨ 梥⮬ ä®­  ¨«¨ 梥⮬ ¢ë¤¥«¥­¨ï
  4012.  
  4013.         call ted_is_select
  4014.         or al,al
  4015.         jz .no_clear
  4016.  
  4017.         mov al,SF_DRAW_RECT
  4018.         xor cx,cx
  4019.         add ecx,ted_rec_h
  4020.         cmp ted_seln_y0,esi
  4021.         jne @f
  4022.                 push bx esi
  4023.                 mov edx,ted_seln_x0 ; ¢¥àå­ïï ¯®«®á  (§ â¨à ¥â á«¥¢ )
  4024.                 mov esi,ted_scr_h
  4025.                 cmp edx,[esi+sb_offs_position]
  4026.                 jle .in_wnd
  4027.                         sub edx,[esi+sb_offs_position]
  4028.                         imul edx,ted_rec_w
  4029.                         mov bx,dx
  4030.                         jmp .no_wnd
  4031.                 .in_wnd:
  4032.                 xor bx,bx
  4033.                 .no_wnd:
  4034.                 mov edx,ted_color_wnd_work
  4035.                 int 0x40
  4036.                 pop esi bx
  4037.         @@:
  4038.         cmp ted_seln_y1,esi
  4039.         jne @f
  4040.                 ;push esi
  4041.                 ;¥á«¨ ¢ë¤¥«¥­ ¢¥áì ä ©« âãâ ¬®¦­® ᤥ« âì ¢ë室, ­® ⮣¤  ­ã¦­® ¢ëè¥ ã¡à âì jmp .no_select
  4042.                 mov edx,ted_seln_x1 ; ­¨¦­ïï ¯®«®á  (§ â¨à ¥â á¯à ¢ )
  4043.                 mov esi,ted_scr_h
  4044.                 cmp edx,[esi+sb_offs_position]
  4045.                 jle .in_wnd2
  4046.                         sub edx,[esi+sb_offs_position]
  4047.                         imul edx,ted_rec_w
  4048.                         sub bx,dx
  4049.                         shl edx,16
  4050.                         add ebx,edx
  4051.                 .in_wnd2:
  4052.                 mov edx,ted_color_wnd_work
  4053.                 int 0x40
  4054.                 ;pop esi
  4055.         @@:
  4056.  
  4057.         .no_clear:
  4058.         popad
  4059.         ret
  4060. endp
  4061.  
  4062. ;input:
  4063. ; edi = pointer to tedit struct
  4064. ;output:
  4065. ; ecx = ­®¢ë© 梥â ᨬ¢®« 
  4066. ; edx = pointer to symbol
  4067. ; edx = 0 if text not in screen
  4068. align 16
  4069. ted_get_first_visible_pos:
  4070.         push eax ecx
  4071.         mov eax,ted_scr_w
  4072.         mov edx,ted_tex
  4073.         xor ecx,ecx
  4074.         @@:
  4075.                 cmp ecx,[eax+sb_offs_position]
  4076.                 je @f
  4077.                 call ted_iterat_next
  4078.                 cmp edx,ted_tex_1
  4079.                 jle @f
  4080.                 cmp byte[edx],13
  4081.                 jne @b
  4082.                 inc ecx
  4083.                 jmp @b
  4084. align 4
  4085.         @@:
  4086.  
  4087.         cmp ecx,[eax+sb_offs_position]
  4088.         je @f
  4089.                 xor edx,edx
  4090.         @@:
  4091.         cmp ecx,[eax+sb_offs_max_area]
  4092.         jle @f
  4093.                 mov [eax+sb_offs_max_area],ecx
  4094.         @@:
  4095.         pop ecx eax
  4096.         call ted_opt_draw_line_left
  4097.         ret
  4098.  
  4099. ;input:
  4100. ; edx = pointer to symbol
  4101. ; edi = pointer to tedit struct
  4102. ;output:
  4103. ; ecx = 梥â ᨬ¢®« 
  4104. ; edx = 㪠§ â¥«ì ­  ¯¥à¢ë© «¥¢ë© ᨬ¢®«
  4105. ;description:
  4106. ; äã­ªæ¨ï ­ã¦­  ¤«ï ®¯â¨¬¨§ æ¨¨ ¢ë¢®¤  ⥪áâ 
  4107. align 16
  4108. proc ted_opt_draw_line_left uses ebx
  4109.         mov ebx,ted_scr_h
  4110.         mov ebx,[ebx+sb_offs_position]
  4111.         or ebx,ebx
  4112.         jz .ret_f
  4113.         push eax
  4114.         mov eax,edx
  4115.  
  4116.         cmp edx,ted_tex
  4117.         jne @f
  4118.                 call ted_iterat_next
  4119.                 jmp .beg_cycle
  4120.         @@:
  4121.  
  4122.         or ebx,ebx
  4123.         jz @f
  4124.  
  4125.         cmp byte[edx],13
  4126.         jne @f
  4127.                 call ted_iterat_next
  4128.                 .beg_cycle:
  4129.         @@:
  4130.                 cmp edx,ted_tex_1
  4131.                 jle @f
  4132.                 cmp byte[edx],13
  4133.                 je @f
  4134.                 or ebx,ebx
  4135.                 jz @f
  4136. ;--------------------------------------
  4137. ;eax ¡ã¤¥â ¬¥­ïâìáï
  4138. movzx eax,byte[edx+1]
  4139. or eax,eax
  4140. jz .no_color
  4141. cmp eax,ted_colors_text_count
  4142. jge .no_color
  4143.         movzx ecx,byte[edx+1]
  4144.         shl ecx,2
  4145.         add ecx,ted_text_colors
  4146.         mov ecx,[ecx]
  4147. .no_color:
  4148. ;--------------------------------------
  4149.                 mov eax,edx
  4150.                 call ted_iterat_next
  4151.                 dec ebx
  4152.                 jmp @b
  4153. align 4
  4154.         @@:
  4155.                 mov edx,eax
  4156.         pop eax
  4157.         .ret_f:
  4158.         call ted_get_symb_color
  4159.         ret
  4160. endp
  4161.  
  4162. ;input:
  4163. ; edx = pointer to symbol
  4164. ; edi = pointer to tedit struct
  4165. ;output:
  4166. ; ecx = symbol color
  4167. ; edx = pointer to 13 symbol
  4168. ;description:
  4169. ; äã­ªæ¨ï ­ã¦­  ¤«ï ®¯â¨¬¨§ æ¨¨ ¢ë¢®¤  ⥪áâ 
  4170. align 16
  4171. proc ted_opt_draw_line_right uses eax
  4172.         mov eax,edx
  4173.         @@:
  4174.                 cmp edx,ted_tex_1
  4175.                 jle @f
  4176.                 cmp byte[edx],13
  4177.                 je @f
  4178.                 mov eax,edx
  4179.                 call ted_iterat_next
  4180.                 jmp @b
  4181.         @@:
  4182.         mov edx,eax ;perv sumbol
  4183.         call ted_get_symb_color
  4184.         ret
  4185. endp
  4186.  
  4187. align 16
  4188. proc ted_mouse, edit:dword
  4189.         pushad
  4190.         mov edi,[edit]
  4191.  
  4192.         ;®¡à ¡ â뢠¥¬ áªà®««¨­£¨
  4193.         mov edx,ted_scr_h
  4194.         mov ecx,ted_scr_w
  4195.  
  4196.         cmp word[edx+sb_offs_delta2],0
  4197.         jne .horizontal
  4198.  
  4199.         mov eax,[ecx+sb_offs_max_area]
  4200.         cmp eax,[ecx+sb_offs_cur_area]
  4201.         jbe .horizontal
  4202.         ; mouse event for Vertical ScrollBar
  4203.         stdcall scroll_bar_vertical.mouse,ecx ;[scrollbar_ver_mouse]
  4204.         cmp dword[ecx+sb_offs_redraw],0
  4205.         je @f
  4206.                 mov dword[ecx+sb_offs_redraw],0
  4207.                 stdcall ted_draw,edi
  4208.                 jmp .no_in_wnd
  4209.         @@:
  4210.         cmp word[ecx+sb_offs_delta2],0
  4211.         jne .no_in_wnd
  4212.         .horizontal:
  4213.         mov eax,[edx+sb_offs_max_area]
  4214.         cmp eax,[edx+sb_offs_cur_area]
  4215.         jbe .other
  4216.         ; mouse event for Horizontal ScrollBar
  4217.         stdcall scroll_bar_horizontal.mouse,edx ;[scrollbar_hor_mouse]
  4218.         cmp dword[edx+sb_offs_redraw],0
  4219.         je .other
  4220.                 mov dword[edx+sb_offs_redraw],0
  4221.                 stdcall ted_draw,edi
  4222.                 jmp .no_in_wnd
  4223.         .other:
  4224.         cmp word[ecx+sb_offs_delta2],0
  4225.         jne .no_in_wnd
  4226.         cmp word[edx+sb_offs_delta2],0
  4227.         jne .no_in_wnd
  4228.  
  4229.         ;®¡à ¡ â뢠¥¬ ®ª­® । ªâ®à 
  4230.         mcall SF_MOUSE_GET,SSF_BUTTON
  4231.         cmp al,1
  4232.         jne @f
  4233.                 mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
  4234.                 mov ebx,ted_wnd_t
  4235.                 add ebx,ted_rec_t
  4236.                 cmp ax,bx
  4237.                 jl @f ;y_mouse<y_wnd
  4238.  
  4239.                 sub ebx,ted_rec_t
  4240.                 add ebx,ted_wnd_h
  4241.                 cmp bx,ax
  4242.                 jl @f ;y_mouse>y_wnd
  4243.  
  4244.                 mov ebx,ted_wnd_l
  4245.                 add ebx,ted_rec_l
  4246.                 mov ecx,eax
  4247.                 shr ecx,16
  4248.                 cmp cx,bx
  4249.                 jl @f ;x_mouse<x_wnd
  4250.  
  4251.                 sub ebx,ted_rec_l
  4252.                 add ebx,ted_wnd_w
  4253.                 cmp bx,cx
  4254.                 jl @f ;x_mouse>x_wnd
  4255.  
  4256.                 call ted_draw_cursor_sumb
  4257.                 call ted_wnd_main_click
  4258.                 jmp .no_in_wnd
  4259.         @@:
  4260.         mov edx,ted_el_focus
  4261.         cmp [edx],edi
  4262.         jne @f
  4263.                 call ted_wnd_main_mouse_scroll ;ᬮâਬ ­  ¯à®ªàãâªã ª®«¥á  ¬ëè¨
  4264.         @@:
  4265.         cmp ted_drag_m,0
  4266.         je .no_in_wnd
  4267.                 mov ted_drag_m,0
  4268.                 stdcall ted_draw,edi
  4269.                 cmp ted_fun_draw_panel_buttons,0
  4270.                 je .no_in_wnd
  4271.                         call ted_fun_draw_panel_buttons
  4272.         .no_in_wnd:
  4273.         popad
  4274.         ret
  4275. endp
  4276.  
  4277. ;input:
  4278. ; eax -> (x,y)
  4279. ; edi -> 㪠§ â¥«ì ­  áâàãªâãàã tedit
  4280. ;description:
  4281. ; äã­ªæ¨ï ¢ë§ë¢¥âáï ¯à¨ ­ ¦ â¨¨ ª­®¯ª®© ¬ëè¨ ¨ ¯®¯ ¤¥­¨¨ ªãàá®à®¬ ¢ ®ª­® । ªâ®à 
  4282. align 16
  4283. ted_wnd_main_click:
  4284.         push ebx ecx edx
  4285.         mov ebx,ted_el_focus
  4286.         mov [ebx],edi ;áâ ¢¨¬ 䮪ãá
  4287.  
  4288.         push eax
  4289.                 shr eax,16
  4290.                 sub eax,ted_wnd_l
  4291.                 sub eax,ted_rec_l
  4292.  
  4293.                 xor edx,edx
  4294.                 mov ecx,ted_rec_w
  4295.                 div cx
  4296.                 ;inc eax
  4297.                 mov ebx,ted_scr_h
  4298.                 cmp eax,[ebx+sb_offs_cur_area]
  4299.                 jle @f
  4300.                         mov eax,[ebx+sb_offs_cur_area]
  4301.                 @@:
  4302.                 ;dec eax
  4303.                 mov ted_cur_x,eax
  4304.         pop eax
  4305.  
  4306.         push eax
  4307.                 and eax,0xffff
  4308.                 sub eax,ted_wnd_t
  4309.                 sub eax,ted_rec_t
  4310.  
  4311.                 xor edx,edx
  4312.                 mov ecx,ted_rec_h
  4313.                 div cx
  4314.                 inc eax
  4315.                 mov ebx,ted_scr_w
  4316.                 cmp eax,[ebx+sb_offs_cur_area]
  4317.                 jle @f
  4318.                         mov eax,[ebx+sb_offs_cur_area]
  4319.                 @@:
  4320.                 dec eax
  4321.                 mov ted_cur_y,eax
  4322.         pop eax
  4323.  
  4324.         cmp ted_drag_m,0
  4325.         je @f
  4326.                 call ted_sel_move
  4327.                 jmp .sel_move
  4328.         @@:
  4329.                 mov ted_drag_m,1
  4330.                 call ted_sel_start
  4331.         .sel_move:
  4332.         pop edx ecx ebx
  4333.         ret
  4334.  
  4335. ;input:
  4336. ; edi = pointer to tedit struct
  4337. align 16
  4338. ted_wnd_main_mouse_scroll:
  4339.         push eax ebx ecx
  4340.         mcall SF_MOUSE_GET,SSF_SCROLL_DATA
  4341.         or ax,ax
  4342.         jz .no_scroll
  4343.                 mov ecx,ted_scr_w
  4344.                 movsx eax,ax
  4345.                 lea eax,[eax+eax*2] ;㬭®¦ ¥¬ ­  3 (ç¨á«® áâப ¯à®ªàã⪨ §  ®¤­® ¤¢¨¦¥­¨¥ ª®«¥á  ¬ëè¨)
  4346.                 add eax,[ecx+sb_offs_position]
  4347.                 mov ebx,[ecx+sb_offs_max_area]
  4348.                 shl ebx,1
  4349.                 sub ebx,[ecx+sb_offs_cur_area] ;®â­¨¬ ¥¬ ¯®«®¢¨­ã ¢ëá®âë ®ª­ 
  4350.                 shr ebx,1
  4351.                 cmp eax,ebx
  4352.                 jae .no_scroll
  4353.                 mov ebx,ted_cur_y ;¯®§¨æ¨ï ªãàá®à 
  4354.                 sub ebx,eax       ;- ­®¢ ï ¯®§¨æ¨ï áªà®««¨­£ 
  4355.                 add ebx,[ecx+sb_offs_position] ;+ áâ à ï ¯®§¨æ¨ï áªà®««¨­£ 
  4356.                 bt ebx,31
  4357.                 jnc @f
  4358.                         xor ebx,ebx ;¥á«¨ ªãàá®à áâ « ¢ëè¥ ®ª­ , â® áâ ¢¨¬ ­  ¢¥àå­îî áâபã
  4359.                 @@:
  4360.                 inc ebx
  4361.                 cmp ebx,[ecx+sb_offs_cur_area]
  4362.                 jle @f
  4363.                         mov ebx,[ecx+sb_offs_cur_area] ;¥á«¨ ªãàá®à áâ « ­¨¦¥ ®ª­ , â® áâ ¢¨¬ ­  ­¨¦­îî áâபã
  4364.                 @@:
  4365.                 dec ebx
  4366.                 mov ted_cur_y,ebx
  4367.                 mov [ecx+sb_offs_position],eax
  4368.                 stdcall ted_draw,edi
  4369.         .no_scroll:
  4370.         pop ecx ebx eax
  4371.         ret
  4372.  
  4373. align 16
  4374. proc ted_save_file, edit:dword, file:dword, f_name:dword
  4375. pushad
  4376.         mov edi,[edit]
  4377.  
  4378.         stdcall ted_can_save,edi
  4379.         ;or al,al
  4380.         ;jz .no_save
  4381.  
  4382.         mov ecx,ted_max_chars
  4383.         invoke mem.alloc,ecx
  4384.         push eax ;§ ¯®¬¨­ ¥¬ 㪠§ â¥«ì ­  ¢ë¤¥«¥­­ãî ¯ ¬ïâì
  4385.  
  4386.         mov edx,ted_tex
  4387.         xor ecx,ecx
  4388.         @@:
  4389.                 call ted_iterat_next
  4390.                 cmp edx,ted_tex_1
  4391.                 jle @f ;edx = ted_tex or edx = ted_tex+sizeof.symbol
  4392.                 mov bl,[edx]
  4393.                 mov byte[eax],bl
  4394.                 inc eax
  4395.                 inc ecx
  4396.                 jmp @b
  4397. align 4
  4398.         @@:
  4399.  
  4400.         or ecx,ecx
  4401.         jz @f
  4402.                 mov ebx,[file]
  4403.                 pop eax ;§ ¯¨á뢠¥¬ 㪠§ â¥«ì ­  ¢ë¤¥«¥­­ãî ¯ ¬ïâì
  4404.                 mov [ebx+16],eax
  4405.                 push eax ;®¡à â­® § ¯®¬¨­ ¥¬ 㪠§ â¥«ì ­  ¢ë¤¥«¥­­ãî ¯ ¬ïâì
  4406.                 mov dword[ebx], SSF_CREATE_FILE
  4407.                 mov dword[ebx+4], 0
  4408.                 mov dword[ebx+8], 0
  4409.                 mov [ebx+12], ecx
  4410.                 mov  byte[ebx+20], 0
  4411.                 push dword[f_name]
  4412.                 pop dword[ebx+21]
  4413.                 mcall SF_FILE
  4414.  
  4415.                 mov ted_err_save,al
  4416.  
  4417.                 or eax,eax
  4418.                 jz .no_msg
  4419.                 cmp ax,10
  4420.                 jl .zifra_0_9
  4421.                         mov al,'?'
  4422.                         sub ax,48
  4423.                 .zifra_0_9:
  4424.                 add ax,48
  4425.                 cmp ted_fun_save_err,0
  4426.                 je @f
  4427.                 call ted_fun_save_err
  4428.                 jmp @f
  4429.                 .no_msg:
  4430.                 m2m ted_tim_ls,ted_tim_ch
  4431.         @@:
  4432.  
  4433.         pop ecx ;§ ¯¨á뢠¥¬ 㪠§ â¥«ì ­  ¢ë¤¥«¥­­ãî ¯ ¬ïâì
  4434.         invoke mem.free,ecx
  4435.         .no_save:
  4436. popad
  4437.         ret
  4438. endp
  4439.