t_edit:

1) add keys Ctrl+H, Ctrl+G
2) update panels code

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

programs/develop/libraries/box_lib/trunk/box_lib.asm

@@ -321,7 +321,8 @@ dd	sz_ted_but_reverse,		ted_but_reverse
 dd	sz_ted_but_find,		ted_but_find
 dd	sz_ted_but_replace,		ted_but_replace
 dd	sz_ted_text_colored,	ted_text_colored
-dd	sz_ted_version, 		0x00000005
+dd	sz_ted_go_to_position,	ted_go_to_position
+dd	sz_ted_version, 		6
 
 dd	sz_Frame_draw,			frame.draw
 dd	szVersion_frame,		0x00010001
@@ -434,6 +435,7 @@ sz_ted_but_reverse		db 'ted_but_reverse',0
 sz_ted_but_find			db 'ted_but_find',0
 sz_ted_but_replace		db 'ted_but_replace',0
 sz_ted_text_colored		db 'ted_text_colored',0
+sz_ted_go_to_position	db 'ted_go_to_position',0
 sz_ted_version			db 'version_text_edit',0
 
 sz_Frame_draw			db 'frame_draw',0

programs/develop/libraries/box_lib/trunk/box_lib.mac

@@ -408,16 +408,13 @@ ted_cur_ins         equ  byte[edi+194] ;०
 ted_mode_color      equ  byte[edi+195] ;०¨¬ ¢ë¤¥«¥­¨ï á«®¢ 梥⮬ (0-¢ëª«. 1-¢ª«.)
 ted_mode_invis      equ  byte[edi+196] ;०¨¬ ¯®ª §  ­¥¯¥ç â ¥¬ëå ᨬ¢®«®¢
 ted_gp_opt          equ  byte[edi+197] ;®¯æ¨¨ ¢®§¢à é ¥¬ë¥ ä㭪樥© ted_get_pos_by_cursor
-ted_fun_on_key_ctrl_o equ dword[edi+198] ;㪠§ â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¯à¨ ­ ¦ â¨¨ Ctrl+O (®âªàë⨥ ä ©« )
-ted_fun_on_key_ctrl_f equ dword[edi+202] ;... Ctrl+F (¢ë§®¢ /áªàëâ¨ï ¯ ­¥«¨ ¯®¨áª )
-ted_fun_on_key_ctrl_n equ dword[edi+206] ;... Ctrl+N (ᮧ¤ ­¨¥ ­®¢®£® ¤®ªã¬¥­â )
-ted_fun_on_key_ctrl_s equ dword[edi+210] ;... Ctrl+S
+ted_fun_on_key_ctrl_all equ dword[edi+198] ;㪠§ â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¯à¨ ­ ¦ â¨¨ Ctrl+N,O,F,S,H,G
+;+202,+206,+210 § à¥§¥à¢¨à®¢ ­®
 ted_buffer_size       equ dword[edi+214] ;à §¬¥à ¡ãä¥à  ª®¯¨à®¢ ­¨ï/¢áâ ¢ª¨
 ted_fun_find_err      equ dword[edi+218] ;㪠§ â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¥á«¨ ¯®¨áª § ª®­ç¨«áï ­¥ã¤ ç­®
 ;ted_fun_init_synt_err equ dword[edi+222] ;㪠§ â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¯à¨ ®è¨¡®ç­®¬ ®âªàë⨨ ä ©«  ᨭ⠪á¨á 
 ted_fun_draw_panel_buttons equ dword[edi+226] ;㪠§ â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ á ª­®¯ª ¬¨
-ted_fun_draw_panel_find    equ dword[edi+230] ;㪠§ â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ ¯®¨áª 
-ted_fun_draw_panel_syntax  equ dword[edi+234] ;㪠§ â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ ᨭ⠪á¨á 
+ted_fun_draw_panels    equ dword[edi+230] ;㪠§ â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ ¯®¨áª |...|ᨭ⠪á¨á 
 ted_fun_save_err      equ dword[edi+238] ;㪠§ â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¥á«¨ á®åà ­¥­¨¥ ä ©«  § ª®­ç¨«®áì ­¥ã¤ ç­®
 ted_increase_size     equ dword[edi+242] ;ç¨á«® ᨬ¢®«®¢ ­  ª®â®àë¥ ¡ã¤¥â 㢥稢 âìáï ¯ ¬ïâì ¯à¨ ­¥å¢ âª¥
 ted_ptr_free_symb     equ dword[edi+246] ;㪠§ â¥«ì ­  ᢮¡®¤­ãî ¯ ¬ïâì, ¢ ª®â®àãî ¬®¦­® ¤®¡ ¢«ïâì ᨬ¢®« (¨á¯®«ì§ã¥âáï ¢­ãâà¨ í«¥¬¥­â  ¤«ï ã᪮७¨ï ¢áâ ¢ª¨ ⥪áâ )

programs/develop/libraries/box_lib/trunk/doc/t_edit/t_edit.htm

@@ -37,6 +37,7 @@
 <li><a href="#fun_open_file">ted_open_file</a></li>
 <li><a href="#fun_text_add">ted_text_add</a></li>
 <li><a href="#fun_text_colored">ted_text_colored</a></li>
+<li><a href="#fun_go_to_position">ted_go_to_position</a></li>
 </ul>
 <p><a href="#syn_file">Формат файла подсветки *.syn</a></p>
 <p><a href="#struc_tedit">Структура tedit</a></p>
@@ -48,8 +49,8 @@
 
 <h2>Возможности элемента</h2>
 <ul>
-  <li>Открытие (Ctrl+O)/Сохранение файла.</li>
-  <li>Редактирование: Повтор/Отмена действия (Ctrl+Z), Вырезать/Копировать (Ctrl+C)/Вставить (Ctrl+V), Поиск (Ctrl+F, F3).</li>
+  <li>Открытие (Ctrl+O), Сохранение файла (Ctrl+S, Ctrl+Shift+S).</li>
+  <li>Редактирование: Повтор/Отмена действия (Ctrl+Z), Вырезать, Копировать (Ctrl+C), Вставить (Ctrl+V), Поиск (Ctrl+F, F3), Замена (Ctrl+H), Переход на строку (Ctrl+G).</li>
   <li>Выделение цветом слов, заданных в файле синтаксиса. Вывод справки по ним, если она есть (нажатием F1 когда курсор на слове).</li>
 </ul>
 
@@ -284,6 +285,14 @@ stdcall [ted_text_add], tedit0,text_buffer,30,ebx</pre>
 	call [ted_text_colored]
 pop edi</pre>
 
+<h4><a name="fun_go_to_position">ted_go_to_position</a></h4>
+<p>Функция для перехода на указанную позицию. Принимает 3 параметра:</p>
+<p>1) структура tedit,</p>
+<p>2) номер строки,</p>
+<p>3) номер символа.</p>
+<p>Пример использования:</p>
+<pre>stdcall [ted_go_to_position], tedit0,50,3</pre>
+
 <h2>Внутренние функции:</h2>
 <p><b>ted_get_text_perv_pos</b> - переход на предыдущий символ в цепи (через указатель 'perv')</p>
 <p><b>ted_get_text_next_pos</b> - переход на следующий символ в цепи (через указатель 'next')</p>
@@ -373,22 +382,20 @@ tedit0: ;
 	.mode_color  db 1 ;+195 режим выделения слов цветом (0-выкл. 1-вкл.)
 	.mode_invis  db 0 ;+196 режим показа непечатаемых символов
 	.gp_opt      db 0 ;+197 опции возвращаемые функцией ted_get_pos_by_cursor
-	.fun_on_key_ctrl_o dd but_ctrl_o ;+198 указатель на функцию вызываемую при нажатии Ctrl+O (открытие файла)
-	.fun_on_key_ctrl_f dd 0 ;+202 ... Ctrl+F (вызова/скрытия панели поиска)
-	.fun_on_key_ctrl_n dd but_ctrl_n ;+206 ... Ctrl+N (создание нового документа)
-	.fun_on_key_ctrl_s dd 0 ;+210 ... Ctrl+S
-	.buffer_size	   dd BUF_SIZE ;+214 размер буфера копирования/вставки
-	.fun_find_err	   dd 0 ;+218 указатель на функцию вызываемую если поиск закончился неудачно
+	.fun_on_key_ctrl_all dd but_ctrl_all ;+198 указатель на функцию вызываемую при нажатии Ctrl+N,O,S,F,H,G
+	dd 0,0,0 ;зарезервировано
+	.buffer_size       dd BUF_SIZE ;+214 размер буфера копирования/вставки
+	.fun_find_err      dd 0 ;+218 указатель на функцию вызываемую если поиск закончился неудачно
 	.fun_init_synt_err dd 0 ;+222 указатель на функцию вызываемую при ошибочном открытии файла синтаксиса
 	.fun_draw_panel_buttons dd 0 ;+226 указатель на функцию рисования панели с кнопками
-	.fun_draw_panel_find	dd 0 ;+230 указатель на функцию рисования панели поиска
-	.fun_draw_panel_syntax	dd 0 ;+234 указатель на функцию рисования панели синтаксиса
-	.fun_save_err		dd 0 ;+238 указатель на функцию вызываемую если сохранение файла закончилось неудачно
+	.fun_draw_panels   dd 0 ;+230 указатель на функцию рисования панели поиска/замены/перехода/синтаксиса
+	dd 0 ;зарезервировано
+	.fun_save_err      dd 0 ;+238 указатель на функцию вызываемую если сохранение файла закончилось неудачно
 	.increase_size dd 225 ;+242 число символов на которые будет увечиваться память при нехватке
 	.ptr_free_symb dd   ? ;+246 указатель на свободную память, в которую можно добавлять символ (используется внутри элемента для ускорения вставки текста)
 	.font_s dd ? ;+250 стили для шрифта (от 0 до 7 множитель для размера, +16 для второго системного шрифта)</pre>
 <hr>
-<p>Документация обновлялась последний раз 21.01.19.</p>
+<p>Документация обновлялась последний раз 29.01.19.</p>
 
 </body>
 </html>

programs/develop/libraries/box_lib/trunk/t_edit.asm

@@ -1,6 +1,6 @@
 ; ¬ ªà®á ¤«ï á¨á⥬­®© ¡¨¡«¨®â¥ª¨ box_lib.obj
 ; í«¥¬¥­â TextEditor ¤«ï Kolibri OS
-; ä ©« ¯®á«¥¤­¨© à § ¨§¬¥­ï«áï 21.10.2018 IgorA
+; ä ©« ¯®á«¥¤­¨© à § ¨§¬¥­ï«áï 29.01.2019 IgorA
 ; ­  ª®¤ ¯à¨¬¥­¥­  GPL2 «¨æ¥­§¨ï
 
 ;input:
@@ -20,12 +20,6 @@ macro ColToIndexOffset ind_reg,out_reg {
 	add out_reg,ted_key_words_data
 }
 
-TED_PANEL_NULL	 equ 0 ;­¥â ®âªàë⮩ ¯ ­¥«¨
-TED_PANEL_FIND	 equ 1 ;¯ ­¥«ì ¯®¨áª 
-TED_PANEL_SYNTAX equ 2 ;¯ ­¥«ì ¢ë¡®à  ä ©«®¢ ¯®¤á¢¥âª¨
-TED_PANEL_REPLACE equ 3 ;¯ ­¥«ì § ¬¥­ë
-TED_PANEL_WIDTH  equ 150 ;è¨à¨­  ¯ ­¥«¨
-
 TED_LINES_IN_NEW_FILE equ 30 ;ç¨á«® áâப ¢ ­®¢®¬ ä ©«¥
 MAX_COLOR_WORD_LEN equ 40
 ;------------------------------------------------------------------------------
@@ -241,38 +235,44 @@ proc ted_key, edit:dword, table:dword, control:dword
 	test esi,KM_CTRL ;Ctrl+...
 	jz .key_Ctrl
 		; *** ¢ë§®¢ ¢­¥è­¨å ä㭪権 ª®â®àë¥ âॡãîâ ®ª­  ®âªàëâ¨ï/á®åà ­¥­¨ï/¯®¨áª /...
+		cmp ted_fun_on_key_ctrl_all,0
+		je .end0
+		xor al,al
 		cmp ah,24 ;Ctrl+O
 		jne @f
-			cmp ted_fun_on_key_ctrl_o,0
-			je .end_key_fun
-				call ted_fun_on_key_ctrl_o
+			mov al,'O'
 		@@:
 		cmp ah,31 ;Ctrl+S
-		jne .end_ctrl_s
-			cmp ted_fun_on_key_ctrl_s,0
-			je .end_key_fun
-				xor eax,eax
-				test esi,KM_SHIFT
-				jz @f
-					inc eax
-				@@:				
-				call ted_fun_on_key_ctrl_s
-				jmp .end_key_fun
-		.end_ctrl_s:
+		jne @f
+			mov al,'S'
+		@@:
 		cmp ah,33 ;Ctrl+F
 		jne @f
-		cmp ted_panel_id,TED_PANEL_FIND
-		je @f
-			cmp ted_fun_on_key_ctrl_f,0
-			je .end_key_fun
-				call ted_fun_on_key_ctrl_f
+			mov al,'F'
+		@@:
+		cmp ah,34 ;Ctrl+G
+		jne @f
+			mov al,'G'
+		@@:
+		cmp ah,35 ;Ctrl+H
+		jne @f
+			mov al,'H'
 		@@:
 		cmp ah,49 ;Ctrl+N
 		jne @f
-			cmp ted_fun_on_key_ctrl_n,0
-			je .end_key_fun
-				call ted_fun_on_key_ctrl_n
+			mov al,'N'
 		@@:
+		or al,al
+		jz .end0
+			and eax,0xff
+			test esi,KM_SHIFT
+			jz @f
+				or eax,0x100
+			@@:
+			stdcall ted_fun_on_key_ctrl_all, eax
+			jmp .end_key_fun
+		.end0:
+
 		; *** ¢ë§®¢ ¢­ãâ७­¨å ä㭪権
 		cmp ah,30 ;Ctrl+A
 		jne @f
@@ -441,7 +441,7 @@ proc ted_key, edit:dword, table:dword, control:dword
 
 	cmp dword[table],0
 	je @f
-		stdcall KeyConvertToASCII, dword[table]
+		stdcall KeyConvertToASCII, [table]
 	@@:
 
 	;mov ted_drag_k,0 ;§ ª ­ç¨¢ ¥¬ ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
@@ -1157,7 +1157,7 @@ proc ted_text_add, edit:dword, text:dword, t_len:dword, add_opt:dword
 			jg .no_cur_mov
 				inc ted_cur_x ;move cursor
 				;call ted_go_to_pos
-				cmp byte [esi],13
+				cmp byte[esi],13
 				jne .no_cur_mov
 					mov ted_cur_x,0
 					inc ted_cur_y
@@ -1169,18 +1169,18 @@ proc ted_text_add, edit:dword, text:dword, t_len:dword, add_opt:dword
 			; *** ¢áâ ¢ª  ⥪ã饣® ᨬ¢®«  ¨§ áâப¨ ***
 			mov ecx,ted_opt_ed_change_time
 			not ecx
-			and dword[add_opt],ecx ;n_tim=false;
+			and [add_opt],ecx ;n_tim=false;
 
-			mov cl,byte [esi] ;tex[i].c=ta[ns];
-			mov byte [edx],cl
-			m2m dword [edx+10],ted_tim_ch ;tex[i].tc=ted_tim_ch;
+			mov cl,byte[esi] ;tex[i].c=ta[ns];
+			mov byte[edx],cl
+			m2m dword[edx+10],ted_tim_ch ;tex[i].tc=ted_tim_ch;
 			mov [edx+2],eax ;tex[i].perv=po_t;
 
 			mov ecx,eax
 			imul ecx,sizeof.symbol
 			add ecx,ted_tex ; *** ecx = tex[po_t] ***
 			add ecx,6   ; *** ecx = tex[po_t].next ***
-			m2m dword [edx+6],dword [ecx] ;tex[i].next=tex[po_t].next;
+			m2m dword[edx+6],dword[ecx] ;tex[i].next=tex[po_t].next;
 
 			call ted_get_text_arr_index ;*** eax = i ***
 			mov [ecx],eax ;tex[po_t].next=i; // áá뫪¨ ¯¥à¥­ ¯à ¢«ï¥¬
@@ -1968,7 +1968,7 @@ ted_get_num_lines:
 		call ted_iterat_next
 		cmp edx,ted_tex_1
 		jle @f
-		cmp byte [edx],13
+		cmp byte[edx],13
 		jne @b
 		inc eax
 		jmp @b
@@ -2046,6 +2046,38 @@ proc ted_set_undo
 	ret
 endp
 
+;description:
+; ¯¥à¥å®¤ ­  㪠§ ­­ãî ¯®§¨æ¨î
+;input:
+; row = ­®¬¥à áâப¨
+; col = ᨬ¢®«
+align 16
+proc ted_go_to_position uses ecx edx edi, edit:dword, row:dword, col:dword
+	mov edi,[edit]
+	; ¯®¤£®â®¢ª  áâப¨
+	mov edx,[row]
+	call ted_get_num_lines
+	cmp edx,eax
+	jle @f
+		mov edx,eax ;®£à ­¨ç¥­¨¥ ¯® áâப¥ max
+	@@:
+	dec edx
+	cmp edx,0
+	jge @f
+		xor edx,edx ;®£à ­¨ç¥­¨¥ ¯® áâப¥ min
+	@@:
+	; ¯®¤£®â®¢ª  ᨬ¢®« 
+	mov ecx,[col]
+	dec ecx
+	cmp ecx,0
+	jge @f
+		xor ecx,ecx
+	@@:
+	call ted_go_to_pos
+	stdcall ted_draw,edi
+	ret
+endp
+
 ;input:
 ; ecx = Col
 ; edx = Row
@@ -3498,13 +3530,9 @@ align 4
 	inc bx
 	int 0x40
 
-	cmp ted_fun_draw_panel_find,0
+	cmp ted_fun_draw_panels,0
 	je @f
-		call ted_fun_draw_panel_find
-	@@:
-	cmp ted_fun_draw_panel_syntax,0
-	je @f
-		call ted_fun_draw_panel_syntax
+		stdcall ted_fun_draw_panels, edi
 	@@:
 	popad
 	ret
@@ -3515,7 +3543,6 @@ endp
 align 16
 proc ted_draw_main_cursor
 pushad
-
 	mov eax,SF_DRAW_RECT ;draw cursor
 	mov ecx,ted_wnd_t ;calc rect -> y0,y1
 	add ecx,ted_rec_t
@@ -3811,8 +3838,7 @@ endp
 align 16
 proc KeyConvertToASCII uses ebx, table:dword
 	mov ebx,[table] ;convert scan to ascii
-	ror ax,8
-	xor ah,ah
+	shr ax,8
 	add bx,ax ;? ebx,eax
 	mov ah,byte[ebx]
 	ret