WebSVN – Kolibri OS – Diff – /programs/other/t_edit/t_edit.asm

 BUF_SIZE equ 4096 ;buffer for copy|paste
 maxSyntaxFileSize equ 410000
 TOOLBAR_ICONS_SIZE equ 1200*20
-include '../../proc32.inc'
-;include '../../config.inc'
+include '../../proc32.inc'
-include '../../macros.inc'
-include '../../dll.inc'
+include '../../macros.inc'
 include '../../KOSfuncs.inc'
-include '../../develop/libraries/box_lib/load_lib.mac'
+include '../../load_img.inc'
 include '../../develop/libraries/box_lib/trunk/box_lib.mac'
 include '../../system/skincfg/trunk/kglobals.inc'
 include '../../system/skincfg/trunk/unpacker.inc'
 include 't_button.inc' ;text work functions
 include 'wnd_k_words.inc'
-@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-; ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj
-;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á  ã¦ë ¯¥à¥¬¥ë¥:
-; - run_file_70 FileInfoBlock
-; - image_data dd 0
-macro load_image_file path,buf,size
-{
-	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
-	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤  «¨ áâà®ª®© ¯ à ¬¥âà path
-		jmp @f
-			local .path_str
-			.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
-			db 0
-		@@:
-		;32 - áâ ¤ àâë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
-		copy_path .path_str,[32],file_name,0
-	else
-		copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
-	end if
-	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
-	mov [buf],eax
-	mov [run_file_70.Function], SSF_READ_FILE
-	mov [run_file_70.Position], 0
-	mov [run_file_70.Flags], 0
-	mov [run_file_70.Count], dword size
-	m2m [run_file_70.Buffer], eax
-	mov byte[run_file_70+20], 0
-	mov [run_file_70.FileName], file_name
-	mcall SF_FILE,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
-	cmp ebx,0xffffffff
-	je @f
-		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
-		stdcall dword[img_decode], dword[buf],ebx,0
-		mov dword[image_data],eax
-		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
-		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
-		;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
-		stdcall dword[img_destroy], dword[image_data]
-	@@:
-}
 @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 image_data dd 0 ;ãª § â¥«ì   ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
 icon_tl_sys dd 0 ;ãª § â¥«ì   ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
 	stdcall [ksubmenu_add], [main_menu_encoding], eax
 	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_Encoding, [main_menu_encoding]
 	stdcall [ksubmenu_add], [main_menu], eax
 ; init toolbar file
-	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬®¦¥¨¥   2 ¤«ï á¥àëå ª®¯®ª
+	load_image_file 'te_icon.png', bmp_icon,,,6 ;6 ¤«ï á¥àëå ª®¯®ª
 	mov eax,[bmp_icon]
 	add eax,TOOLBAR_ICONS_SIZE
 	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3
 ;---------------------------------------------------------------------
 ; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨
-	load_image_file 'tl_sys_16.png', icon_tl_sys,54+3*256*13
+	load_image_file 'tl_sys_16.png', icon_tl_sys
 	mov eax,dword[icon_tl_sys]
 	mov dword[tree1.data_img_sys],eax
 ;---------------------------------------------------------------------
 ; ç¨â ¥¬ ä ©« á ¨ª®ª ¬¨ ã§«®¢
-	load_image_file 'tl_nod_16.png', icon_tl_sys,54+3*256*2
+	load_image_file 'tl_nod_16.png', icon_tl_sys
 	mov eax,dword[icon_tl_sys]
 	mov dword[tree1.data_img],eax
 ;------------------------------------------------------------------------------
 	copy_path fn_syntax_dir,sys_path,file_name,0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á
 		call but_no_msg_OpenFile
 	@@:
-align 4
+align 16
 red_win:
 	call draw_window
-align 4
+align 16
 	jne @f
 		jmp mouse
 	@@:
 	jmp still
-align 4
+align 16
 draw_window:
 	mcall SF_REDRAW,SSF_BEGIN_DRAW
 	stdcall [ted_draw], tedit0
 	mcall SF_REDRAW,SSF_END_DRAW
 	ret
-align 4
+align 16
+mouse:
+	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
+	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
+	cmp word[tedit0.wnd.top],ax
+	jg .no_edit
+	shr eax,16
+	cmp word[tedit0.wnd.left],ax
+	jg .no_edit
+	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
+	bt eax,24 ;¤¢®©®© é¥«çñª «¥¢®© ª®¯ª®©
+	jnc @f
+		stdcall [ted_but_select_word], tedit0
-mouse:
+		jmp still
+	@@:
-	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
+		stdcall [ted_mouse], tedit0
-	stdcall [ted_mouse], tedit0
+	.no_edit:
 	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel
 	jne @f
-		stdcall [edit_box_mouse], dword edit2
+		stdcall [edit_box_mouse], edit2
 	@@:
 	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel
-	jne .mouse_end
+	jne @f
-	stdcall [tl_mouse], tree1
+		stdcall [tl_mouse], tree1
-.mouse_end:
+	@@:
 	jmp still
 ;---------------------------------------------------------------------
 ;output:
 ; ah = symbol
-align 4
+align 16
 proc KeyConvertToASCII uses ebx, table:dword
 	mov ebx,dword[table] ;convert scan to ascii
 	ror ax,8
 	xor ah,ah
 	add bx,ax
 	mov ah,byte[ebx]
 	ret
 endp
-align 4
+align 16
-  @@:
+	@@:
-  stdcall [ted_key], tedit0, conv_tabl,esi
+	stdcall [ted_key], tedit0, conv_tabl,esi
-  jmp still
+	jmp still
-align 4
-button:
+align 16
 button:
-  mcall SF_GET_BUTTON
+	mcall SF_GET_BUTTON
-  cmp ah,3
+	cmp ah,3
+	jne @f
-  jne @f
+		call ted_but_new_file
-    call ted_but_new_file
+		jmp still
-  @@:
+	@@:
-  cmp ah,4
+	cmp ah,4
+	jne @f
-  jne @f
+		call ted_but_open_file
-    call ted_but_open_file
+		jmp still
-  @@:
+	@@:
-  cmp ah,5
+	cmp ah,5
+	jne @f
-  jne @f
+		call ted_but_save_file
-    call ted_but_save_file
+		jmp still
-  @@:
+	@@:
-  cmp ah,6
+	cmp ah,6
+	jne @f
-  jne @f
+		stdcall [ted_but_select_word], tedit0
-    stdcall [ted_but_select_word], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,7
+	cmp ah,7
+	jne @f
-  jne @f
+		stdcall [ted_but_cut], tedit0
-    stdcall [ted_but_cut], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,8
+	cmp ah,8
+	jne @f
-  jne @f
+		stdcall [ted_but_copy], tedit0
-    stdcall [ted_but_copy], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,9
+	cmp ah,9
+	jne @f
-  jne @f
+		stdcall [ted_but_paste], tedit0
-    stdcall [ted_but_paste], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,10
+	cmp ah,10
+	jne @f
-  jne @f
+		call ted_but_find
-    call ted_but_find
+		jmp still
-  @@:
+	@@:
-  cmp ah,11
+	cmp ah,11
+	jne @f
-  jne @f
+		call but_replace
-    call but_replace
+		jmp still
-  @@:
+	@@:
-  cmp ah,12
+	cmp ah,12
+	jne @f
-  jne @f
+		call but_find_key_w
-    call but_find_key_w
+		jmp still
-  @@:
+	@@:
-  cmp ah,13
+	cmp ah,13
+	jne @f
-  jne @f
+		stdcall [ted_but_sumb_upper], tedit0
-    stdcall [ted_but_sumb_upper], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,14
+	cmp ah,14
+	jne @f
-  jne @f
+		stdcall [ted_but_sumb_lover], tedit0
-    stdcall [ted_but_sumb_lover], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,15
+	cmp ah,15
+	jne @f
-  jne @f
+		stdcall [ted_but_reverse], tedit0
-    stdcall [ted_but_reverse], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,16
+	cmp ah,16
+	jne @f
-  jne @f
+		stdcall [ted_but_undo], tedit0
-    stdcall [ted_but_undo], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,17
+	cmp ah,17
+	jne @f
-  jne @f
+		stdcall [ted_but_redo], tedit0
-    stdcall [ted_but_redo], tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,18
+	cmp ah,18
+	jne @f
-  jne @f
+		stdcall but_sumb_invis, tedit0
-    stdcall but_sumb_invis, tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,19
+	cmp ah,19
+	jne @f
-  jne @f
+		stdcall but_k_words_show, tedit0
-    stdcall but_k_words_show, tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,20
+	cmp ah,20
+	jne @f
-  jne @f
+		stdcall but_synt_show, tedit0
-    stdcall but_synt_show, tedit0
+		jmp still
-  @@:
+	@@:
-  cmp ah,21
+	cmp ah,21
+	jne @f
-  jne @f
+		stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866
-    stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866
+		jmp still
-  @@:
+	@@:
-  cmp ah,22
+	cmp ah,22
+	jne @f
-  jne @f
+		stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251
-    stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251
+		jmp still
-  @@:
+	@@:
+	cmp ah,200
-  cmp ah,200
+	jne @f
-  jne @f
+		stdcall ted_but_open_syntax, tedit0
-    stdcall ted_but_open_syntax, tedit0
+		jmp still
-  @@:
+	@@:
+	cmp ah,201
-  cmp ah,201
+	jne @f
-  jne @f
+		stdcall [ted_but_find_next], tedit0
-    stdcall [ted_but_find_next], tedit0
+		jmp still

Subversion Repositories Kolibri OS

(root)/programs/other/t_edit/t_edit.asm – Rev 6169 → 6239