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


;£à®¬­ ï ¡« £®¤ à­®áâì ¢á¥¬, ªâ® ¯®¬®£ «: ª®¤®¬/á®¢¥â®¬/¤¨§ ©­®¬ ...
 
use32
  org 0x0
  db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
  dd 0x01
  dd start
  dd i_end ; à §¬¥à ¯à¨«®¦¥­¨ï
  dd mem
  dd stacktop
  dd file_name ; command line
  dd sys_path
 
MAX_COLOR_WORD_LEN equ 40
maxChars equ 100002 ;(...+2)
BUF_SIZE equ 4096 ;buffer for copy|paste
maxSyntaxFileSize equ 410000
TOOLBAR_ICONS_SIZE equ 1200*20
 
include '../../proc32.inc'
;include '../../config.inc'
include '../../macros.inc'
include '../../dll.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../system/desktop/trunk/kglobals.inc'
include '../../system/desktop/trunk/unpacker.inc'
include 'lang.inc'
 
include 't_data.inc'
include 'strlen.inc'
include 't_draw.inc' ;draw main window functions
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,0x0
	else
		copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	end if
 
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [buf],eax
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword size
	m2m [run_file_70.Buffer], [buf]
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], file_name
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	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]
	@@:
}
 
image_data dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
icon_tl_sys dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨áâ¥¬­ëå ¨ª®­®ª
 
align 4
start:
	mcall 48,3,sc,sizeof.system_colors
 
	mcall 68,11
	or eax,eax
	jz button.exit
 
	mcall 66,1,1 ;scan code
	mcall 40,0xC0000027
 
	mov esi,file_name
	call strlen
	mov ecx,eax
	mov edi,openfile_path
	cld
	rep movsb ;ª®¯¨àã¥¬ ¨¬ï ä ©«  ¢ ¡ãä¥à openfile_path
 
load_libraries l_libs_start,load_lib_end
 
;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
mov	ebp,lib0
.test_lib_open:
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
	mcall -1 ;exit not correct
@@:
	add ebp,ll_struc_size
	cmp ebp,load_lib_end
	jl .test_lib_open
 
;---------------------------------------------------------------------
	stdcall [ted_init], tedit0
	stdcall dword[tl_data_init], tree1
 
; OpenDialog initialisation
	stdcall [OpenDialog_Init],OpenDialog_data
 
; kmenu initialisation	
	stdcall [kmenu_init], sc
	
	stdcall [ksubmenu_new]
	mov [main_menu], eax
	
	stdcall [ksubmenu_new]
	mov [main_menu_file], eax
	
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_New, 3
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Open, 4
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Save, 5
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
	stdcall [ksubmenu_add], [main_menu_file], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Exit, 199
	stdcall [ksubmenu_add], [main_menu_file], eax
	
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_File, [main_menu_file]
	stdcall [ksubmenu_add], [main_menu], eax
 
; init toolbar file
	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬­®¦¥­¨¥ ­  2 ¤«ï á¥àëå ª­®¯®ª
	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
	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
	mov eax,dword[icon_tl_sys]
	mov dword[tree1.data_img],eax
;------------------------------------------------------------------------------
  copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨­â ªá¨á 
  mov eax,70
  mov ebx,tree_file_struct
  int 0x40
 
cmp ebx,-1
je .end_dir_init
 
  mov eax,dir_mem
  add eax,32+4+1+3+4*6+8
mov ecx,ebx
@@:
  cmp byte[eax],'.' ;ä¨«ìâàã¥¬ ä ©«ë á ¨¬¥­ ¬¨ '.' ¨ '..'
  je .filter
    ;0x10000 ;1*2^16 - £¤¥ 1 ­®¬¥à ¨ª®­ª¨ á ª­¨£®©
    stdcall dword[tl_node_add], eax,0x10000, tree1
 
    stdcall dword[tl_cur_next], tree1
  .filter:
  add eax,304
  loop @b
  stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ­  ­ ç «® á¯¨áª 
.end_dir_init:
 
;--- load ini file ---
	copy_path ini_name,sys_path,file_name,0
	;window startup pozition
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l
	mov word[wnd_s_pos+2],ax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w
	mov word[wnd_s_pos],ax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t
	mov word[wnd_s_pos+6],ax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h
	mov word[wnd_s_pos+4],ax
	;scrool type
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type
	mov [wScr.type],eax
	mov [hScr.type],eax
	mov [ws_dir_lbox.type],eax
    mov [w_scr_t3.type],eax
	;symbol size
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w
	mov dword[tedit0.rec.width],eax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h
	mov dword[tedit0.rec.height],eax
	lea eax,[eax+eax*2]
	mov dword[tedit0.rec.top],eax
	;ä ©«®¢ë¥ à áè¨à¥­¨ï
	xor edx,edx
	mov ebx,synt_auto_open
	@@:
		;¡¥à¥¬ ¨¬ï ä ©« 
		stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f
		cmp byte[ebx],0
		je @f
		inc byte[key_synt_file.numb]
		add ebx,32
		;¡¥à¥¬ à áè¨à¥­¨ï
		stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f
		inc byte[key_synt_ext.numb]
		add ebx,32
		inc edx
		cmp edx,max_synt_auto_open
		jl @b
	@@:
 
;--- load color option file ---
	mov ebx,dword[fn_col_option]
	call open_unpac_synt_file
 
;--- get cmd line ---
	cmp byte[openfile_path+3],0 ;openfile_path
	je @f ;if file names exist
		mov esi,openfile_path
		call strlen ;eax=strlen
		call but_no_msg_OpenFile
	@@:
 
 
 
align 4
red_win:
  call draw_window
 
align 4
still:
	mcall 10
	cmp dword[exit_code],1
	je button.exit
 
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
	jz red_win
	cmp al,2
	jz key
	cmp al,3
	jz button
	cmp al,6 ;¬ëèì
	jne @f
		jmp mouse
	@@:
	jmp still
 
align 4
draw_window:
	mcall 12,1
 
	mov edx,[sc.work]
	or  edx,0x73000000
	mov edi,hed
	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]
 
	mcall 9,procinfo,-1
	mov edi,tedit0 ;§­ ç¥­¨¥ edi ­ã¦­® ¤«ï EvSize ¨ ted_wnd_t
	call EvSize
 
	mov eax,13 ;¢¥àå­¨© ¯àï¬®ã£®«ì­¨ª, ¤«ï ®ç¨áâª¨ ¢¥àå­¥© ¯ ­¥«¨
	xor ebx,ebx
	mov ecx,ted_wnd_t
	mov bx,word[procinfo.client_box.width]
	inc bx
	int 0x40
 
 
 
 
 
 
 
 
	call draw_but_toolbar
	
	stdcall [kmainmenu_draw], [main_menu]
 
	stdcall [ted_draw], tedit0
 
	mcall 12,2
	ret
 
align 4
mouse:
	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
	stdcall [ted_mouse], tedit0
 
	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel
	jne @f
		stdcall [edit_box_mouse], dword edit2
	@@:
	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel
	jne .mouse_end
	stdcall [tl_mouse], tree1
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
.mouse_end:
	jmp still
;---------------------------------------------------------------------
 
;output:
; ah = symbol
align 4
proc KeyConvertToASCII, table:dword
  push ebx
  mov ebx,dword[table] ;convert scan to ascii
  ror ax,8
  xor ah,ah
  add bx,ax
  mov ah,byte[ebx]
  pop ebx
  ret
endp
 
align 4
key:
  mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï­¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
  xor esi,esi
  mov ecx,1
  test al,0x03 ;[Shift]
  jz @f
    mov cl,2
    or esi,KM_SHIFT
  @@:
  test al,0x0c ;[Ctrl]
  jz @f
    or esi,KM_CTRL
  @@:
  test al,0x30 ;[Alt]
  jz @f
    mov cl,3
    or esi,KM_ALT
  @@:
  test al,0x80 ;[NumLock]
  jz @f
    or esi,KM_NUMLOCK
  @@:
 
  mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
  mcall 2 ;¯®«ãç ¥¬ ª®¤ ­ ¦ â®© ª« ¢¨è¨
  stdcall [tl_key], tree1
 
  test word [edit2.flags],10b;ed_focus ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
  je @f
    cmp ah,0x80 ;if key up
    ja still
    cmp ah,42 ;[Shift] (left)
    je still
    cmp ah,54 ;[Shift] (right)
    je still
    cmp ah,56 ;[Alt]
    je still
    cmp ah,29 ;[Ctrl]
    je still
    cmp ah,69 ;[Pause Break]
    je still
 
    stdcall KeyConvertToASCII, dword conv_tabl
    stdcall [edit_box_key], dword edit2
    jmp still
  @@:
 
  stdcall [ted_key], tedit0, conv_tabl,esi
  jmp still
 
align 4
button:
 
 
 
 
 
 
  mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
  cmp ah,3
  jne @f
    call ted_but_new_file
  @@:
  cmp ah,4
  jne @f
    call ted_but_open_file
  @@:
  cmp ah,5
  jne @f
    call ted_but_save_file
  @@:
  cmp ah,6
  jne @f
    stdcall [ted_but_select_word], tedit0
  @@:
  cmp ah,7
  jne @f
    stdcall [ted_but_cut], tedit0
  @@:
  cmp ah,8
  jne @f
    stdcall [ted_but_copy], tedit0
  @@:
  cmp ah,9
  jne @f
    stdcall [ted_but_paste], tedit0
  @@:
  cmp ah,10
  jne @f
    call ted_but_find
  @@:
  cmp ah,11
  jne @f
    call but_replace
  @@:
  cmp ah,12
  jne @f
    call but_find_key_w
  @@:
  cmp ah,13
  jne @f
    stdcall [ted_but_sumb_upper], tedit0
  @@:
  cmp ah,14
  jne @f
    stdcall [ted_but_sumb_lover], tedit0
  @@:
  cmp ah,15
  jne @f
    stdcall [ted_but_reverse], tedit0
  @@:
  cmp ah,16
  jne @f
    stdcall [ted_but_undo], tedit0
  @@:
  cmp ah,17
  jne @f
    stdcall [ted_but_redo], tedit0
  @@:
  cmp ah,18
  jne @f
    stdcall but_sumb_invis, tedit0
  @@:
  cmp ah,19
  jne @f
    stdcall but_k_words_show, tedit0
  @@:
  cmp ah,20
  jne @f
    stdcall but_synt_show, tedit0
  @@:
  cmp ah,21
  jne @f
    stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866
  @@:
  cmp ah,22
  jne @f
    stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251
  @@:
 
  cmp ah,200
  jne @f
    stdcall ted_but_open_syntax, tedit0
  @@:
  cmp ah,201
  jne @f
    stdcall [ted_but_find_next], tedit0
  @@:
 
  cmp ah,1
  je .exit
 
  cmp ah,199
  je .exit
  
  jmp still
.exit:
	cmp dword[exit_code],1
	je @f
	stdcall [ted_can_save], tedit0
	cmp al,1
	jne @f
		stdcall [mb_create],msgbox_2,thread ;message: save changes in file?
		stdcall [mb_setfunctions],msgbox_2E_funct
		jmp still
	@@:
	stdcall mem.Free,[bmp_icon]
	cmp dword[unpac_mem],0
	je @f
		stdcall mem.Free,[unpac_mem]
	@@:
 
	stdcall [ted_delete], tedit0
	stdcall dword[tl_data_clear], tree1
	mcall -1 ;¢ëå®¤ ¨§ ¯à®£à ¬¬ë
 
edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0
 
unpac_mem dd 0
 
if lang eq ru
  head_f_i:
  head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0
  err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
  err_message_import0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib.obj',39,0
  err_message_found_lib1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'msgbox.obj',39,0
  err_message_import1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'msgbox.obj',39,0
  err_message_found_lib2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
  err_message_import2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
  err_message_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
  err_message_import_3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
  err_message_found_lib_4 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libini.obj',39,0
  err_message_import_4 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libini.obj',39,0
  err_message_found_lib_5 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libkmenu.obj',39,0
  err_message_import_5 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libkmenu.obj',39,0
else
  head_f_i:
  head_f_l db 'System error',0
  err_message_found_lib0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0
  err_message_import0 db 'Error on load import library ',39,'box_lib.obj',39,0
  err_message_found_lib1 db 'Sorry I cannot found library ',39,'msgbox.obj',39,0
  err_message_import1 db 'Error on load import library ',39,'msgbox.obj',39,0
  err_message_found_lib2 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0
  err_message_import2 db 'Error on load import library ',39,'proc_lib.obj',39,0
  err_message_found_lib_3 db 'Sorry I cannot found library ',39,'libimg.obj',39,0
  err_message_import_3 db 'Error on load import library ',39,'libimg.obj',39,0
  err_message_found_lib_4 db 'Sorry I cannot found library ',39,'libini.obj',39,0
  err_message_import_4 db 'Error on load import library ',39,'libini.obj',39,0
  err_message_found_lib_5 db 'Sorry I cannot found library ',39,'libkmenu.obj',39,0
  err_message_import_5 db 'Error on load import library ',39,'libkmenu.obj',39,0
end if
 
;library structures
l_libs_start:
	lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
		err_message_found_lib0, head_f_l, import_box_lib,err_message_import0, head_f_i
	lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
		err_message_found_lib1, head_f_l, import_msgbox_lib, err_message_import1, head_f_i
	lib2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\
		err_message_found_lib2, head_f_l, import_proclib, err_message_import2, head_f_i
	lib3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
		err_message_found_lib_3, head_f_l, import_libimg, err_message_import_3, head_f_i
	lib4 l_libs lib_name_4, sys_path, file_name, system_dir_4,\
		err_message_found_lib_4, head_f_l, import_libini, err_message_import_4, head_f_i
	lib5 l_libs lib_name_5, sys_path, file_name, system_dir_5,\
		err_message_found_lib_5, head_f_l, import_libkmenu, err_message_import_5, head_f_i
load_lib_end:
 
IncludeIGlobals
hed db 'TextEdit '
i_end:
	openfile_path: ;¯®«­ë© ¯ãâì ª ä ©«ã á ª®â®àë¬ ¨¤¥â à ¡®â 
		rb 4096
	dir_mem rb 32+304*count_of_dir_list_files
	wnd_s_pos: ;¬¥áâ® ¤«ï ­ áâà®¥ª áâ àâ®¢®© ¯®§¨æ¨¨ ®ª­ 
		rq 1
	last_open_synt_file rb 32 ;¨¬ï ¯®á«¥¤­¥£® ¯®¤ª«îç¥­­®£® ä ©«  á¨­â ªá¨á 
	buf rb BUF_SIZE ;¡ãä¥à ¤«ï ª®¯¨à®¢ ­¨ï ¨ ¢áâ ¢ª¨
	buf_find rb 302 ;¡ãä¥à ¤«ï ¯®¨áª  â¥ªáâ 
IncludeUGlobals
	align 16
	procinfo process_information
		rb 1024
	thread:
	rb 1024
    thread_coords:
	rb 1024
stacktop:
	sys_path: ;¯ãâì ®âªã¤  § ¯ãáâ¨«áï ¨á¯®«­ï¥¬ë© ä ©«
		rb 4096
	file_name: ;¯ à ¬¥âàë § ¯ãáª 
		rb 4096
	syntax_path: ;¨¬ï ¯®¤ª«îç ¥¬®£® ä ©«  á¨­â ªá¨á 
		rb 4096
	plugin_path:
		rb 4096
	text_work_area: ;¯ãâì ª ä ©«ã, ª®â®àë© ¯®ª §ë¢ ¥âáï ¢ ®ª­¥
		rb 4096
	filename_area: ;¨¬ï ä ©«  ¤«ï ¤¨ «®£  ®âªàëâ¨ï/§ ªàëâ¨ï
		rb 256
	file_info:
		rb 40
mem:

Rev 5643	Rev 5649
1	;£à®¬ ï ¡« £®¤ à®áâì ¢á¥¬, ªâ® ¯®¬®£ «: ª®¤®¬/á®¢¥â®¬/¤¨§ ©®¬ ...	1	;£à®¬ ï ¡« £®¤ à®áâì ¢á¥¬, ªâ® ¯®¬®£ «: ª®¤®¬/á®¢¥â®¬/¤¨§ ©®¬ ...
2		2
3	use32	3	use32
4	org 0x0	4	org 0x0
5	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	5	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
6	dd 0x01	6	dd 0x01
7	dd start	7	dd start
8	dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï	8	dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
9	dd mem	9	dd mem
10	dd stacktop	10	dd stacktop
11	dd file_name ; command line	11	dd file_name ; command line
12	dd sys_path	12	dd sys_path
13		13
14	MAX_COLOR_WORD_LEN equ 40	14	MAX_COLOR_WORD_LEN equ 40
15	maxChars equ 100002 ;(...+2)	15	maxChars equ 100002 ;(...+2)
16	BUF_SIZE equ 4096 ;buffer for copy\|paste	16	BUF_SIZE equ 4096 ;buffer for copy\|paste
17	maxSyntaxFileSize equ 410000	17	maxSyntaxFileSize equ 410000
18	TOOLBAR_ICONS_SIZE equ 1200*20	18	TOOLBAR_ICONS_SIZE equ 1200*20
19		19
20	include '../../proc32.inc'	20	include '../../proc32.inc'
21	;include '../../config.inc'	21	;include '../../config.inc'
22	include '../../macros.inc'	22	include '../../macros.inc'
23	include '../../dll.inc'	23	include '../../dll.inc'
24	include '../../develop/libraries/box_lib/load_lib.mac'	24	include '../../develop/libraries/box_lib/load_lib.mac'
25	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	25	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
26	include '../../system/desktop/trunk/kglobals.inc'	26	include '../../system/desktop/trunk/kglobals.inc'
27	include '../../system/desktop/trunk/unpacker.inc'	27	include '../../system/desktop/trunk/unpacker.inc'
28	include 'lang.inc'	28	include 'lang.inc'
29		29
30	include 't_data.inc'	30	include 't_data.inc'
31	include 'strlen.inc'	31	include 'strlen.inc'
32	include 't_draw.inc' ;draw main window functions	32	include 't_draw.inc' ;draw main window functions
33	include 't_button.inc' ;text work functions	33	include 't_button.inc' ;text work functions
34	include 'wnd_k_words.inc'	34	include 'wnd_k_words.inc'
35		35
36	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	36	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
37		37
38		38
39	; ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj	39	; ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj
40	;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á ã¦ë ¯¥à¥¬¥ë¥:	40	;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á ã¦ë ¯¥à¥¬¥ë¥:
41	; - run_file_70 FileInfoBlock	41	; - run_file_70 FileInfoBlock
42	; - image_data dd 0	42	; - image_data dd 0
43	macro load_image_file path,buf,size	43	macro load_image_file path,buf,size
44	{	44	{
45	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	45	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
46	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	46	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
47	jmp @f	47	jmp @f
48	local .path_str	48	local .path_str
49	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	49	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
50	db 0	50	db 0
51	@@:	51	@@:
52	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	52	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
53	copy_path .path_str,[32],file_name,0x0	53	copy_path .path_str,[32],file_name,0x0
54	else	54	else
55	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	55	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
56	end if	56	end if
57		57
58	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	58	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
59	mov [buf],eax	59	mov [buf],eax
60		60
61	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	61	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
62	mov [run_file_70.Function], 0	62	mov [run_file_70.Function], 0
63	mov [run_file_70.Position], 0	63	mov [run_file_70.Position], 0
64	mov [run_file_70.Flags], 0	64	mov [run_file_70.Flags], 0
65	mov [run_file_70.Count], dword size	65	mov [run_file_70.Count], dword size
66	m2m [run_file_70.Buffer], [buf]	66	m2m [run_file_70.Buffer], [buf]
67	mov byte[run_file_70+20], 0	67	mov byte[run_file_70+20], 0
68	mov [run_file_70.FileName], file_name	68	mov [run_file_70.FileName], file_name
69	mov ebx,run_file_70	69	mov ebx,run_file_70
70	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	70	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
71	cmp ebx,0xffffffff	71	cmp ebx,0xffffffff
72	je @f	72	je @f
73	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	73	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
74	stdcall dword[img_decode], dword[buf],ebx,0	74	stdcall dword[img_decode], dword[buf],ebx,0
75	mov dword[image_data],eax	75	mov dword[image_data],eax
76	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	76	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
77	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	77	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
78	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	78	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
79	stdcall dword[img_destroy], dword[image_data]	79	stdcall dword[img_destroy], dword[image_data]
80	@@:	80	@@:
81	}	81	}
82		82
83	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	83	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
84	icon_tl_sys dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª	84	icon_tl_sys dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
85		85
86	align 4	86	align 4
87	start:	87	start:
88	mcall 48,3,sc,sizeof.system_colors	88	mcall 48,3,sc,sizeof.system_colors
89		89
90	mcall 68,11	90	mcall 68,11
91	or eax,eax	91	or eax,eax
92	jz button.exit	92	jz button.exit
93		93
94	mcall 66,1,1 ;scan code	94	mcall 66,1,1 ;scan code
95	mcall 40,0xC0000027	95	mcall 40,0xC0000027
96		96
97	mov esi,file_name	97	mov esi,file_name
98	call strlen	98	call strlen
99	mov ecx,eax	99	mov ecx,eax
100	mov edi,openfile_path	100	mov edi,openfile_path
101	cld	101	cld
102	rep movsb ;ª®¯¨àã¥¬ ¨¬ï ä ©« ¢ ¡ãä¥à openfile_path	102	rep movsb ;ª®¯¨àã¥¬ ¨¬ï ä ©« ¢ ¡ãä¥à openfile_path
103		103
104	load_libraries l_libs_start,load_lib_end	104	load_libraries l_libs_start,load_lib_end
105		105
106	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨	106	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
107	mov ebp,lib0	107	mov ebp,lib0
108	.test_lib_open:	108	.test_lib_open:
109	cmp dword [ebp+ll_struc_size-4],0	109	cmp dword [ebp+ll_struc_size-4],0
110	jz @f	110	jz @f
111	mcall -1 ;exit not correct	111	mcall -1 ;exit not correct
112	@@:	112	@@:
113	add ebp,ll_struc_size	113	add ebp,ll_struc_size
114	cmp ebp,load_lib_end	114	cmp ebp,load_lib_end
115	jl .test_lib_open	115	jl .test_lib_open
116		116
117	;---------------------------------------------------------------------	117	;---------------------------------------------------------------------
118	stdcall [ted_init], tedit0	118	stdcall [ted_init], tedit0
119	stdcall dword[tl_data_init], tree1	119	stdcall dword[tl_data_init], tree1
120		120
121	; OpenDialog initialisation	121	; OpenDialog initialisation
122	stdcall [OpenDialog_Init],OpenDialog_data	122	stdcall [OpenDialog_Init],OpenDialog_data
-		123
-		124	; kmenu initialisation
-		125	stdcall [kmenu_init], sc
-		126
-		127	stdcall [ksubmenu_new]
-		128	mov [main_menu], eax
-		129
-		130	stdcall [ksubmenu_new]
-		131	mov [main_menu_file], eax
-		132
-		133	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_New, 3
-		134	stdcall [ksubmenu_add], [main_menu_file], eax
-		135	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Open, 4
-		136	stdcall [ksubmenu_add], [main_menu_file], eax
-		137	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Save, 5
-		138	stdcall [ksubmenu_add], [main_menu_file], eax
-		139	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
-		140	stdcall [ksubmenu_add], [main_menu_file], eax
-		141	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_File_Exit, 199
-		142	stdcall [ksubmenu_add], [main_menu_file], eax
-		143
-		144	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_File, [main_menu_file]
-		145	stdcall [ksubmenu_add], [main_menu], eax
123		146
124	; init toolbar file	147	; init toolbar file
125	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬®¦¥¨¥ 2 ¤«ï á¥àëå ª®¯®ª	148	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬®¦¥¨¥ 2 ¤«ï á¥àëå ª®¯®ª
126	mov eax,[bmp_icon]	149	mov eax,[bmp_icon]
127	add eax,TOOLBAR_ICONS_SIZE	150	add eax,TOOLBAR_ICONS_SIZE
128	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3	151	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3
129	;---------------------------------------------------------------------	152	;---------------------------------------------------------------------
130	; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨	153	; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨
131	load_image_file 'tl_sys_16.png', icon_tl_sys,54+325613	154	load_image_file 'tl_sys_16.png', icon_tl_sys,54+325613
132	mov eax,dword[icon_tl_sys]	155	mov eax,dword[icon_tl_sys]
133	mov dword[tree1.data_img_sys],eax	156	mov dword[tree1.data_img_sys],eax
134	;---------------------------------------------------------------------	157	;---------------------------------------------------------------------
135	; ç¨â ¥¬ ä ©« á ¨ª®ª ¬¨ ã§«®¢	158	; ç¨â ¥¬ ä ©« á ¨ª®ª ¬¨ ã§«®¢
136	load_image_file 'tl_nod_16.png', icon_tl_sys,54+32562	159	load_image_file 'tl_nod_16.png', icon_tl_sys,54+32562
137	mov eax,dword[icon_tl_sys]	160	mov eax,dword[icon_tl_sys]
138	mov dword[tree1.data_img],eax	161	mov dword[tree1.data_img],eax
139	;------------------------------------------------------------------------------	162	;------------------------------------------------------------------------------
140	copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á	163	copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á
141	mov eax,70	164	mov eax,70
142	mov ebx,tree_file_struct	165	mov ebx,tree_file_struct
143	int 0x40	166	int 0x40
144		167
145	cmp ebx,-1	168	cmp ebx,-1
146	je .end_dir_init	169	je .end_dir_init
147		170
148	mov eax,dir_mem	171	mov eax,dir_mem
149	add eax,32+4+1+3+4*6+8	172	add eax,32+4+1+3+4*6+8
150	mov ecx,ebx	173	mov ecx,ebx
151	@@:	174	@@:
152	cmp byte[eax],'.' ;ä¨«ìâàã¥¬ ä ©«ë á ¨¬¥ ¬¨ '.' ¨ '..'	175	cmp byte[eax],'.' ;ä¨«ìâàã¥¬ ä ©«ë á ¨¬¥ ¬¨ '.' ¨ '..'
153	je .filter	176	je .filter
154	;0x10000 ;1*2^16 - £¤¥ 1 ®¬¥à ¨ª®ª¨ á ª¨£®©	177	;0x10000 ;1*2^16 - £¤¥ 1 ®¬¥à ¨ª®ª¨ á ª¨£®©
155	stdcall dword[tl_node_add], eax,0x10000, tree1	178	stdcall dword[tl_node_add], eax,0x10000, tree1
156		179
157	stdcall dword[tl_cur_next], tree1	180	stdcall dword[tl_cur_next], tree1
158	.filter:	181	.filter:
159	add eax,304	182	add eax,304
160	loop @b	183	loop @b
161	stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ç «® á¯¨áª	184	stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ç «® á¯¨áª
162	.end_dir_init:	185	.end_dir_init:
163		186
164	;--- load ini file ---	187	;--- load ini file ---
165	copy_path ini_name,sys_path,file_name,0	188	copy_path ini_name,sys_path,file_name,0
166	;window startup pozition	189	;window startup pozition
167	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l	190	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l
168	mov word[wnd_s_pos+2],ax	191	mov word[wnd_s_pos+2],ax
169	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w	192	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w
170	mov word[wnd_s_pos],ax	193	mov word[wnd_s_pos],ax
171	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t	194	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t
172	mov word[wnd_s_pos+6],ax	195	mov word[wnd_s_pos+6],ax
173	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h	196	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h
174	mov word[wnd_s_pos+4],ax	197	mov word[wnd_s_pos+4],ax
175	;scrool type	198	;scrool type
176	stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type	199	stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type
177	mov [wScr.type],eax	200	mov [wScr.type],eax
178	mov [hScr.type],eax	201	mov [hScr.type],eax
179	mov [ws_dir_lbox.type],eax	202	mov [ws_dir_lbox.type],eax
180	mov [w_scr_t3.type],eax	203	mov [w_scr_t3.type],eax
181	;symbol size	204	;symbol size
182	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w	205	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w
183	mov dword[tedit0.rec.width],eax	206	mov dword[tedit0.rec.width],eax
184	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h	207	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h
185	mov dword[tedit0.rec.height],eax	208	mov dword[tedit0.rec.height],eax
186	lea eax,[eax+eax*2]	209	lea eax,[eax+eax*2]
187	mov dword[tedit0.rec.top],eax	210	mov dword[tedit0.rec.top],eax
188	;ä ©«®¢ë¥ à áè¨à¥¨ï	211	;ä ©«®¢ë¥ à áè¨à¥¨ï
189	xor edx,edx	212	xor edx,edx
190	mov ebx,synt_auto_open	213	mov ebx,synt_auto_open
191	@@:	214	@@:
192	;¡¥à¥¬ ¨¬ï ä ©«	215	;¡¥à¥¬ ¨¬ï ä ©«
193	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f	216	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f
194	cmp byte[ebx],0	217	cmp byte[ebx],0
195	je @f	218	je @f
196	inc byte[key_synt_file.numb]	219	inc byte[key_synt_file.numb]
197	add ebx,32	220	add ebx,32
198	;¡¥à¥¬ à áè¨à¥¨ï	221	;¡¥à¥¬ à áè¨à¥¨ï
199	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f	222	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f
200	inc byte[key_synt_ext.numb]	223	inc byte[key_synt_ext.numb]
201	add ebx,32	224	add ebx,32
202	inc edx	225	inc edx
203	cmp edx,max_synt_auto_open	226	cmp edx,max_synt_auto_open
204	jl @b	227	jl @b
205	@@:	228	@@:
206		229
207	;--- load color option file ---	230	;--- load color option file ---
208	mov ebx,dword[fn_col_option]	231	mov ebx,dword[fn_col_option]
209	call open_unpac_synt_file	232	call open_unpac_synt_file
210		233
211	;--- get cmd line ---	234	;--- get cmd line ---
212	cmp byte[openfile_path+3],0 ;openfile_path	235	cmp byte[openfile_path+3],0 ;openfile_path
213	je @f ;if file names exist	236	je @f ;if file names exist
214	mov esi,openfile_path	237	mov esi,openfile_path
215	call strlen ;eax=strlen	238	call strlen ;eax=strlen
216	call but_no_msg_OpenFile	239	call but_no_msg_OpenFile
217	@@:	240	@@:
218		241
219		242
220		243
221	align 4	244	align 4
222	red_win:	245	red_win:
223	call draw_window	246	call draw_window
224		247
225	align 4	248	align 4
226	still:	249	still:
227	mcall 10	250	mcall 10
228	cmp dword[exit_code],1	251	cmp dword[exit_code],1
229	je button.exit	252	je button.exit
230		253
231	cmp al,1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª	254	cmp al,1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª
232	jz red_win	255	jz red_win
233	cmp al,2	256	cmp al,2
234	jz key	257	jz key
235	cmp al,3	258	cmp al,3
236	jz button	259	jz button
237	cmp al,6 ;¬ëèì	260	cmp al,6 ;¬ëèì
238	jne @f	261	jne @f
239	jmp mouse	262	jmp mouse
240	@@:	263	@@:
241	jmp still	264	jmp still
242		265
243	align 4	266	align 4
244	draw_window:	267	draw_window:
245	mcall 12,1	268	mcall 12,1
246		269
247	mov edx,[sc.work]	270	mov edx,[sc.work]
248	or edx,0x73000000	271	or edx,0x73000000
249	mov edi,hed	272	mov edi,hed
250	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]	273	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]
251		274
252	mcall 9,procinfo,-1	275	mcall 9,procinfo,-1
253	mov edi,tedit0 ;§ ç¥¨¥ edi ã¦® ¤«ï EvSize ¨ ted_wnd_t	276	mov edi,tedit0 ;§ ç¥¨¥ edi ã¦® ¤«ï EvSize ¨ ted_wnd_t
254	call EvSize	277	call EvSize
255		278
256	mov eax,13 ;¢¥àå¨© ¯àï¬®ã£®«ì¨ª, ¤«ï ®ç¨áâª¨ ¢¥àå¥© ¯ ¥«¨	279	mov eax,13 ;¢¥àå¨© ¯àï¬®ã£®«ì¨ª, ¤«ï ®ç¨áâª¨ ¢¥àå¥© ¯ ¥«¨
257	xor ebx,ebx	280	xor ebx,ebx
258	mov ecx,ted_wnd_t	281	mov ecx,ted_wnd_t
259	mov bx,word[procinfo.client_box.width]	282	mov bx,word[procinfo.client_box.width]
260	inc bx	283	inc bx
261	int 0x40	284	int 0x40
262		-
263	; mov eax,4	-
264	; mov ebx,185*65536+9	-
265	; mov ecx,[sc.work_text]	-
266	; or ecx,0x80000000	-
267	; mov edx,txtFile	-
268	; int 0x40	-
269		285
-		286	call draw_but_toolbar
-		287
270	call draw_but_toolbar	288	stdcall [kmainmenu_draw], [main_menu]
271		289
272	stdcall [ted_draw], tedit0	290	stdcall [ted_draw], tedit0
273		291
274	mcall 12,2	292	mcall 12,2
275	ret	293	ret
276		294
277	align 4	295	align 4
278	mouse:	296	mouse:
-		297	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
279	stdcall [ted_mouse], tedit0	298	stdcall [ted_mouse], tedit0
280		299
281	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel	300	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel
282	jne @f	301	jne @f
283	stdcall [edit_box_mouse], dword edit2	302	stdcall [edit_box_mouse], dword edit2
284	@@:	303	@@:
285	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel	304	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel
286	jne @f ;.menu_bar_1	305	jne .mouse_end
287	stdcall [tl_mouse], tree1	306	stdcall [tl_mouse], tree1
288	;-----------------------------------------------	-
289	.menu_bar_1:	-
290	mov [menu_data_1.get_mouse_flag],1	-
291	; mouse event for Menu 1	-
292	stdcall [menu_bar_mouse],dword menu_data_1	-
293	cmp dword[menu_data_1.click],1	-
294	jne .mnu_1	-
295	cmp dword[menu_data_1.cursor_out],4	-
296	je button.exit	-
297	cmp dword[menu_data_1.cursor_out],3	-
298	jne @f	-
299	call ted_but_save_file	-
300	@@:	-
301	cmp dword[menu_data_1.cursor_out],2	-
302	jne @f	-
303	call ted_but_open_file	-
304	@@:	-
305	cmp dword[menu_data_1.cursor_out],1	-
306	jne @f	-
307	call ted_but_new_file	-
308	@@:	-
309	.mnu_1:	307	.mouse_end:
310	jmp still	308	jmp still
311	;---------------------------------------------------------------------	309	;---------------------------------------------------------------------
312		310
313	;output:	311	;output:
314	; ah = symbol	312	; ah = symbol
315	align 4	313	align 4
316	proc KeyConvertToASCII, table:dword	314	proc KeyConvertToASCII, table:dword
317	push ebx	315	push ebx
318	mov ebx,dword[table] ;convert scan to ascii	316	mov ebx,dword[table] ;convert scan to ascii
319	ror ax,8	317	ror ax,8
320	xor ah,ah	318	xor ah,ah
321	add bx,ax	319	add bx,ax
322	mov ah,byte[ebx]	320	mov ah,byte[ebx]
323	pop ebx	321	pop ebx
324	ret	322	ret
325	endp	323	endp
326		324
327	align 4	325	align 4
328	key:	326	key:
329	mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è	327	mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
330	xor esi,esi	328	xor esi,esi
331	mov ecx,1	329	mov ecx,1
332	test al,0x03 ;[Shift]	330	test al,0x03 ;[Shift]
333	jz @f	331	jz @f
334	mov cl,2	332	mov cl,2
335	or esi,KM_SHIFT	333	or esi,KM_SHIFT
336	@@:	334	@@:
337	test al,0x0c ;[Ctrl]	335	test al,0x0c ;[Ctrl]
338	jz @f	336	jz @f
339	or esi,KM_CTRL	337	or esi,KM_CTRL
340	@@:	338	@@:
341	test al,0x30 ;[Alt]	339	test al,0x30 ;[Alt]
342	jz @f	340	jz @f
343	mov cl,3	341	mov cl,3
344	or esi,KM_ALT	342	or esi,KM_ALT
345	@@:	343	@@:
346	test al,0x80 ;[NumLock]	344	test al,0x80 ;[NumLock]
347	jz @f	345	jz @f
348	or esi,KM_NUMLOCK	346	or esi,KM_NUMLOCK
349	@@:	347	@@:
350		348
351	mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë	349	mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
352	mcall 2 ;¯®«ãç ¥¬ ª®¤ ¦ â®© ª« ¢¨è¨	350	mcall 2 ;¯®«ãç ¥¬ ª®¤ ¦ â®© ª« ¢¨è¨
353	stdcall [tl_key], tree1	351	stdcall [tl_key], tree1
354		352
355	test word [edit2.flags],10b;ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬	353	test word [edit2.flags],10b;ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
356	je @f	354	je @f
357	cmp ah,0x80 ;if key up	355	cmp ah,0x80 ;if key up
358	ja still	356	ja still
359	cmp ah,42 ;[Shift] (left)	357	cmp ah,42 ;[Shift] (left)
360	je still	358	je still
361	cmp ah,54 ;[Shift] (right)	359	cmp ah,54 ;[Shift] (right)
362	je still	360	je still
363	cmp ah,56 ;[Alt]	361	cmp ah,56 ;[Alt]
364	je still	362	je still
365	cmp ah,29 ;[Ctrl]	363	cmp ah,29 ;[Ctrl]
366	je still	364	je still
367	cmp ah,69 ;[Pause Break]	365	cmp ah,69 ;[Pause Break]
368	je still	366	je still
369		367
370	stdcall KeyConvertToASCII, dword conv_tabl	368	stdcall KeyConvertToASCII, dword conv_tabl
371	stdcall [edit_box_key], dword edit2	369	stdcall [edit_box_key], dword edit2
372	jmp still	370	jmp still
373	@@:	371	@@:
374		372
375	stdcall [ted_key], tedit0, conv_tabl,esi	373	stdcall [ted_key], tedit0, conv_tabl,esi
376	jmp still	374	jmp still
377		375
378	align 4	376	align 4
379	button:	377	button:
380	; cmp [menu_active],1 ;¥á«¨ ¦ «¨ ¬¥î, â® á ç « à¥ ªæ¨ï ¬¥î	-
381	; jne @f ;mouse.menu_bar_1	-
382	; mov [menu_active],0	-
383	; jmp still	-
384	; @@:	-
385		378
386	mcall 17 ;¯®«ãç¨âì ª®¤ ¦ â®© ª®¯ª¨	379	mcall 17 ;¯®«ãç¨âì ª®¤ ¦ â®© ª®¯ª¨
387	cmp ah,3	380	cmp ah,3
388	jne @f	381	jne @f
389	call ted_but_new_file	382	call ted_but_new_file
390	@@:	383	@@:
391	cmp ah,4	384	cmp ah,4
392	jne @f	385	jne @f
393	call ted_but_open_file	386	call ted_but_open_file
394	@@:	387	@@:
395	cmp ah,5	388	cmp ah,5
396	jne @f	389	jne @f
397	call ted_but_save_file	390	call ted_but_save_file
398	@@:	391	@@:
399	cmp ah,6	392	cmp ah,6
400	jne @f	393	jne @f
401	stdcall [ted_but_select_word], tedit0	394	stdcall [ted_but_select_word], tedit0
402	@@:	395	@@:
403	cmp ah,7	396	cmp ah,7
404	jne @f	397	jne @f
405	stdcall [ted_but_cut], tedit0	398	stdcall [ted_but_cut], tedit0
406	@@:	399	@@:
407	cmp ah,8	400	cmp ah,8
408	jne @f	401	jne @f
409	stdcall [ted_but_copy], tedit0	402	stdcall [ted_but_copy], tedit0
410	@@:	403	@@:
411	cmp ah,9	404	cmp ah,9
412	jne @f	405	jne @f
413	stdcall [ted_but_paste], tedit0	406	stdcall [ted_but_paste], tedit0
414	@@:	407	@@:
415	cmp ah,10	408	cmp ah,10
416	jne @f	409	jne @f
417	call ted_but_find	410	call ted_but_find
418	@@:	411	@@:
419	cmp ah,11	412	cmp ah,11
420	jne @f	413	jne @f
421	call but_replace	414	call but_replace
422	@@:	415	@@:
423	cmp ah,12	416	cmp ah,12
424	jne @f	417	jne @f
425	call but_find_key_w	418	call but_find_key_w
426	@@:	419	@@:
427	cmp ah,13	420	cmp ah,13
428	jne @f	421	jne @f
429	stdcall [ted_but_sumb_upper], tedit0	422	stdcall [ted_but_sumb_upper], tedit0
430	@@:	423	@@:
431	cmp ah,14	424	cmp ah,14
432	jne @f	425	jne @f
433	stdcall [ted_but_sumb_lover], tedit0	426	stdcall [ted_but_sumb_lover], tedit0
434	@@:	427	@@:
435	cmp ah,15	428	cmp ah,15
436	jne @f	429	jne @f
437	stdcall [ted_but_reverse], tedit0	430	stdcall [ted_but_reverse], tedit0
438	@@:	431	@@:
439	cmp ah,16	432	cmp ah,16
440	jne @f	433	jne @f
441	stdcall [ted_but_undo], tedit0	434	stdcall [ted_but_undo], tedit0
442	@@:	435	@@:
443	cmp ah,17	436	cmp ah,17
444	jne @f	437	jne @f
445	stdcall [ted_but_redo], tedit0	438	stdcall [ted_but_redo], tedit0
446	@@:	439	@@:
447	cmp ah,18	440	cmp ah,18
448	jne @f	441	jne @f
449	stdcall but_sumb_invis, tedit0	442	stdcall but_sumb_invis, tedit0
450	@@:	443	@@:
451	cmp ah,19	444	cmp ah,19
452	jne @f	445	jne @f
453	stdcall but_k_words_show, tedit0	446	stdcall but_k_words_show, tedit0
454	@@:	447	@@:
455	cmp ah,20	448	cmp ah,20
456	jne @f	449	jne @f
457	stdcall but_synt_show, tedit0	450	stdcall but_synt_show, tedit0
458	@@:	451	@@:
459	cmp ah,21	452	cmp ah,21
460	jne @f	453	jne @f
461	stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866	454	stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866
462	@@:	455	@@:
463	cmp ah,22	456	cmp ah,22
464	jne @f	457	jne @f
465	stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251	458	stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251
466	@@:	459	@@:
467		460
468	cmp ah,200	461	cmp ah,200
469	jne @f	462	jne @f
470	stdcall ted_but_open_syntax, tedit0	463	stdcall ted_but_open_syntax, tedit0
471	@@:	464	@@:
472	cmp ah,201	465	cmp ah,201
473	jne @f	466	jne @f
474	stdcall [ted_but_find_next], tedit0	467	stdcall [ted_but_find_next], tedit0

Subversion Repositories Kolibri OS

(root)/programs/other/t_edit/t_edit.asm – Rev 5643 → 5649