Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1649 → Rev 1650

/programs/develop/heed/trunk/heed.asm
48,7 → 48,7
dd 0x0 ;buf_cmd_lin
dd cur_dir_path
 
_title equ 'HeEd 0.15'
_title equ 'HeEd 0.15', 0
 
include 'lang.inc'
include '../../../macros.inc'
178,17 → 178,17
mov esi,-1
mov eax,procinfo
mov eax,[eax+46]
cmp eax,200
cmp eax,299
jae @f
mov esi,200
mov esi,299
mcall 67,-1,ebx,ebx
@@:
mov edx,-1
mov eax,procinfo
mov eax,[eax+42]
cmp eax,300
cmp eax,399
jae @f
mov edx,300
mov edx,399
mcall 67,-1,ebx,,ebx
@@:
.end:
315,6 → 315,7
mcall 17
dec ah
jnz still
 
jmp close_prog
 
align 4
1613,7 → 1614,18
;help window
create_help_window:
pushad
cmp [help_is_open_already], 1
jne @f
mov ECX, [help_window_pid]
mcall 18, 21
xchg EAX, ECX
mcall 18, 3
popad
ret
@@:
mcall 51,1,.thread,(.threat_stack+16*4)
mov [help_is_open_already], 1
mov [help_window_pid], EAX
popad
ret
.thread:
1627,11 → 1639,13
dec al
jz .button
jmp .still
and [help_is_open_already], 0
mcall -1
.button:
mcall 17,1
cmp ah,1
jne @f
and [help_is_open_already], 0
mcall -1
@@:
cmp ah,2
2953,7 → 2967,11
.mouse_pos dd 0 ;+24
.mouse_keys dd 0 ;+28
.x1:
if lang eq ru
.size_x1 dw 4*2+9*6 ;+32
else
.size_x1 dw 40 ;+32
end if
.start_x1 dw 2 ;+34
.y1:
.size_y1 dw 100 ;+36
2980,13 → 2998,22
.get_mouse_flag dd 0 ;+116
 
menu_text_area:
if lang eq ru
db '” ©«',0
.1:
db 'Žâªàëâì',0
db '‘®åà ­¨âì',0
db '‚ë室',0
else
db 'File',0
.1:
db 'Open',0
db 'Save',0
db 'Exit',0
end if
.end:
db 0
 
;---------------------------------------------------------------------
align 4
menu_data_2:
3003,7 → 3030,7
.mouse_pos dd 0 ;+24
.mouse_keys dd 0 ;+28
.x1:
.size_x1 dw 50 ;+32
.size_x1 dw 4*2+5*6 ;+32
.start_x1 dw 43 ;+34
.y1:
.size_y1 dw 100 ;+36
3030,8 → 3057,13
.get_mouse_flag dd 0 ;+116
 
menu_text_area_2:
if lang eq ru
db '‚¨¤',0
.1:
else
db 'View',0
.1:
end if
db 'Add 4',0
db 'Add 8',0
db 'Sub 4',0
3038,12 → 3070,17
db 'Sub 8',0
.end:
db 0
 
;---------------------------------------------------------------------
align 4
menu_data_3:
.type: dd 0 ;+0
.x:
if lang eq ru
.size_x dw 4*2+7*6 ;+32
else
.size_x dw 40 ;+4
end if
.start_x dw 84 ;+6
.y:
.size_y dw 15 ;+8
3054,7 → 3091,11
.mouse_pos dd 0 ;+24
.mouse_keys dd 0 ;+28
.x1:
if lang eq ru
.size_x1 dw 4*2+7*6 ;+32
else
.size_x1 dw 40 ;+32
end if
.start_x1 dw 84 ;+34
.y1:
.size_y1 dw 100 ;+36
3081,21 → 3122,27
.get_mouse_flag dd 0 ;+116
 
menu_text_area_3:
if lang eq ru
db '‘¯à ¢ª ',0
.1:
db '‘¯à ¢ª ',0
else
db 'Help',0
.1:
db 'Help',0
end if
.end:
db 0
;---------------------------------------------------------------------
edit1 edit_box 200,190,27,0xffffff,0x6a9480,0,0xAABBCC,0,134,cur_dir_path,ed_focus,ed_focus,6,6 ;ä ©« ®âªàëâì\á®åà ­¨âì
edit2 edit_box 55,260,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0 ;¯¥à¥å®¦¤ ­  ᬥ饭¨¥
edit3 edit_box 55,260,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,find_string,ed_focus,ed_focus,0,0 ;¯®¨áª
edit2 edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0 ;¯¥à¥å®¦¤ ­  ᬥ饭¨¥
edit3 edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,find_string,ed_focus,ed_focus,0,0 ;¯®¨áª
edit4 edit_box 55,220,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel1_string,ed_focus,ed_focus,0,0 ;¢ë¤¥«¨âì ¡«®ª ­ ç.ᬥé.
edit5 edit_box 55,300,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel2_string,ed_focus,0,0,0 ;¢ë¤¥«¨âì ¡«®ª ª®­.ᬥé.
 
op1 option_box option_group1,210,50,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1,1
op2 option_box option_group1,310,50,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
op3 option_box option_group1,210,65,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
op3 option_box option_group1,310,65,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
op11 option_box option_group2,210,50,6,12,0xffffff,0,0,op_text2.11,op_text2.e11-op_text2.11
op12 option_box option_group2,310,50,6,12,0xffffff,0,0,op_text2.21,op_text2.e21-op_text2.21
 
3105,6 → 3152,14
Option_boxs2 dd op11,op12,0
 
op_text: ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
if lang eq ru
.1 db '€¡á®«îâ­®¥'
.e1:
.2 db '‚¯¥à¥¤'
.e2:
.3 db ' § ¤'
.e3:
else
.1 db 'Absolutely'
.e1:
.2 db 'Forward'
3111,6 → 3166,7
.e2:
.3 db 'Back'
.e3:
end if
 
op_text2:
.11 db 'Hex'
3122,7 → 3178,22
system_dir_Boxlib db '/sys/lib/box_lib.obj',0
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
 
sel_text db "From to",0
 
help_but_text = menu_text_area_3 ;db 'Help',0
 
head_f_i:
if lang eq ru
head_f_l db '®è¨¡ª ',0
err_message_found_lib1 db 'box_lib.obj - ¥ ­ ©¤¥­!',0
err_message_found_lib2 db 'proc_lib.obj - ¥ ­ ©¤¥­!',0
 
err_message_import1 db 'box_lib.obj - Žè¨¡ª  ¨¬¯®àâ !',0
err_message_import2 db 'proc_lib.obj - Žè¨¡ª  ¨¬¯®àâ !',0
 
error_open_file_string db "” ©« ­¥ ­ ©¤¥­!",0
error_save_file_string db "” ©« ­¥ á®åà ­¥­!",0
else
head_f_l db 'error',0
err_message_found_lib1 db 'box_lib.obj - Not found!',0
err_message_found_lib2 db 'proc_lib.obj - Not found!',0
3130,11 → 3201,9
err_message_import1 db 'box_lib.obj - Wrong import!',0
err_message_import2 db 'proc_lib.obj - Wrong import!',0
 
sel_text db "From to",0
 
help_but_text = menu_text_area_3 ;db 'Help',0
error_open_file_string db "Isn't found!",0
error_save_file_string db "Isn't saved!",0
end if
string_cp866 db ' cp866'
string_cp1251 db 'cp1251'
string_koi8r db 'koi8-r'
3223,32 → 3292,6
cp1251 file 'cp1251-8x16'
koi8_r file 'koi8-r-8x16'
 
 
;########################## open_dial
get_loops dd 0
dlg_pid_get dd 0
DLGPID dd 0
param:
dd 0 ; My dec PID
dd 0,0 ; Type of dialog
run_fileinfo:
dd 7
dd 0
dd param
dd 0
dd 0
;run_filepath
db '/sys/SYSXTREE',0
readdir_fileinfo:
dd 1
dd 0
dd 0
readblocks dd 0
directory_ptr dd 0
 
;##########################
 
 
title db _title
;---------------------------------------------------------------------
l_libs_start:
3347,6 → 3390,9
sel2_string rb 9
cur_help_string rb 1 ;­®¬¥à áâப¨, á ª®â®à®© ¢ë¢®¤¨âáï ⥪áâ ¢ help - ®ª­¥
 
help_is_open_already db ? ;¥á«¨ ®ª­® á¯à ¢ª¨ ®âªàëâ®, â® §¤¥áì 1
help_window_pid dd ?
 
func_70 f70
;---------------------------------------------------------------------
fname_buf: