Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1713 → Rev 1714

/programs/develop/kol_f_edit/ced_code_g.inc
164,7 → 164,7
cmp eax,0
je .find_no
 
cmp byte[eax],C_ST
cmp byte[eax],C_STR
jne @f
stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà
stdcall dword[tl_node_poi_get_next_info], esi,tree2
181,31 → 181,31
stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor
jmp .beg_iterat
@@:
cmp byte[eax],C_TT
cmp byte[eax],C_TXT
jne @f
stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà
@@:
cmp byte[eax],C_IN
cmp byte[eax],C_INC
jne @f
stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà
@@:
cmp byte[eax],C_CO
cmp byte[eax],C_COM
jne @f
stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà
@@:
cmp byte[eax],C_VR
cmp byte[eax],C_VAR
jne @f
stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà
@@:
cmp byte[eax],C_WI
cmp byte[eax],C_WND
jne @f
stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà
@@:
cmp byte[eax],C_AC
cmp byte[eax],C_ACO
jne @f
stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà
@@:
cmp byte[eax],C_KE ;êëàâèàòóðà
cmp byte[eax],C_KEY ;êëàâèàòóðà
jne @f
stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà
@@:
298,7 → 298,7
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_ED
cmp byte[ebx],C_EDB
jne @f
stdcall insert_text, txt_std_mouse_ed
;insert_sp
307,7 → 307,7
stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
insert_nl
@@:
cmp byte[ebx],C_CB
cmp byte[ebx],C_CHB
jne @f
stdcall insert_text, txt_std_mouse_cb
;insert_sp
343,7 → 343,7
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_ED
cmp byte[ebx],C_EDB
jne @f
;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
stdcall insert_text_prop, ebx,0
362,7 → 362,7
stdcall insert_text, txt_txt
 
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
 
stdcall insert_text, txt_mouse_dd
396,11 → 396,11
.null_string:
insert_nl
@@:
cmp byte[ebx],C_DT
cmp byte[ebx],C_DTT
jne @f
stdcall insert_text, txt_txt
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall insert_text, txt_db
stdcall insert_text_prop, ebx,0
440,7 → 440,7
stdcall insert_text, txt_sys_dir
;object code
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
stdcall insert_text,txt_db
;stdcall insert_text, txt_str_beg
508,7 → 508,7
stdcall insert_text, txt_lib
;object code
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
insert_sp
stdcall insert_text, txt_ll
666,12 → 666,12
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_ED
cmp byte[ebx],C_EDB
jne @f
;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
stdcall insert_text, txt_txt
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
 
stdcall get_obj_text_col,ebx,10
690,7 → 690,7
stdcall insert_text, txt_rb
stdcall insert_text, txt_txt
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
 
stdcall insert_text, txt_minus
717,7 → 717,7
insert_0
insert_nl
@@:
;cmp byte[ebx],C_CB
;cmp byte[ebx],C_CHB
;jne @f
;@@:
 
745,7 → 745,7
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_BU
cmp byte[ebx],C_BUT
jne @f
insert_tab
insert_cmp
797,7 → 797,7
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_BU
cmp byte[ebx],C_BUT
jne @f
stdcall get_obj_text_col,ebx,6
stdcall str_len,edx
851,7 → 851,7
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_ED
cmp byte[ebx],C_EDB
jne @f
stdcall insert_text, txt_std_key_ed
stdcall insert_text_prop,ebx,0
984,19 → 984,19
cmp ebx,0
je .find_no
 
cmp byte[ebx],C_ED
cmp byte[ebx],C_EDB
jne @f
stdcall insert_text, txt_editb_draw
stdcall insert_text_prop, ebx,0
insert_nl
@@:
cmp byte[ebx],C_CB
cmp byte[ebx],C_CHB
jne @f
stdcall insert_text, txt_cbox_draw
stdcall insert_text_prop, ebx,0
insert_nl
@@:
cmp byte[ebx],C_BU
cmp byte[ebx],C_BUT
jne @f
insert_tab
stdcall insert_text, txt_mov
1048,7 → 1048,7
stdcall insert_text, txt_i_40
insert_nl
@@:
cmp byte[ebx],C_RE
cmp byte[ebx],C_REC
jne @f
insert_tab
stdcall insert_text, txt_mov
1087,7 → 1087,7
stdcall insert_text, txt_i_40
insert_nl
@@:
cmp byte[ebx],C_DT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
cmp byte[ebx],C_DTT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
jne @f
insert_tab
stdcall insert_text, txt_mov
1120,7 → 1120,7
insert_coma
stdcall insert_text, txt_txt
mov edx,fp_icon
stdcall get_obj_id, ebx,edx
stdcall get_obj_id_str, ebx,edx
stdcall insert_text,edx
insert_nl
 
1295,8 → 1295,11
db 9,'jmp still',13
txt_key_3:
 
;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
;output:
; txt_buf - ñòðîêà ñ íîìåðîì îáúåêòà
align 4
proc get_obj_id, p_obj:dword, txt_buf:dword
proc get_obj_id_str, p_obj:dword, txt_buf:dword
push eax ecx edx
mov eax,dword[p_obj]
sub eax,[tree2.data_info]
1312,6 → 1315,22
ret
endp
 
;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
;output:
; eax - íîìåð îáúåêòà
align 4
proc get_obj_id, p_obj:dword
push ecx edx
mov eax,dword[p_obj]
sub eax,[tree2.data_info]
xor edx,edx
xor ecx,ecx
mov cx,word[tree2.info_size]
div ecx
pop edx ecx
ret
endp
 
;--- òåêñòîâûå ôóíêöèè ---
 
align 4