Subversion Repositories Kolibri OS

Rev

Rev 1714 | Rev 1720 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1714 Rev 1717
Line 162... Line 162...
162 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 162 
		stdcall dword[tl_node_poi_get_data], esi,tree2
163 
		pop eax ;ïîëó÷àåì äàííûå óçëà
 163 
		pop eax ;ïîëó÷àåì äàííûå óçëà
164 
		cmp eax,0
 164 
		cmp eax,0
165 
		je .find_no
 165 
		je .find_no
Line 166... Line 166...
166 
 
 166 
 
167 
		cmp byte[eax],C_STR
 167 
		cmp dword[eax],C_STR
- 
 
 168 
		jne @f
168 
		jne @f
 169 
			stdcall insert_text,txt_struct
- 
 
 170 
			stdcall insert_text_prop, eax,0
- 
 
 171 
			insert_nl
169 
			stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà
 172
170 
			stdcall dword[tl_node_poi_get_next_info], esi,tree2
 173 
			stdcall dword[tl_node_poi_get_next_info], esi,tree2
171 
			pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
 174 
			pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
172 
			cmp esi,0
 175 
			cmp esi,0
173 
			je .end_st
 176 
			je .end_st
Line 176... Line 179...
176 
				push bx
 179 
				push bx
177 
					mov bl,byte[esi+2]
 180 
					mov bl,byte[esi+2]
178 
					call code_gen_obj ;ðåêóðñèâíûé âûçîâ äî÷åðíèõ îáúåêòîâ
 181 
					call code_gen_obj ;ðåêóðñèâíûé âûçîâ äî÷åðíèõ îáúåêòîâ
179 
				pop bx
 182 
				pop bx
180 
			.end_st:
 183 
			.end_st:
181 
			stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor
 184 
			stdcall insert_text,txt_ends
182 
			jmp .beg_iterat
 185 
			jmp .beg_iterat
183 
		@@:
 186 
		@@:
184 
		cmp byte[eax],C_TXT
 187 
		cmp dword[eax],C_TXT
185 
		jne @f
 188 
		jne @f
186 
			stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà
 189 
			stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà
187 
		@@:
 190 
		@@:
188 
		cmp byte[eax],C_INC
 191 
		cmp dword[eax],C_INC
189 
		jne @f
 192 
		jne @f
190 
			stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà
 193 
			stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà
191 
		@@:
 194 
		@@:
192 
		cmp byte[eax],C_COM
 195 
		cmp dword[eax],C_COM
193 
		jne @f
 196 
		jne @f
194 
			stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà
 197 
			stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà
195 
		@@:
 198 
		@@:
196 
		cmp byte[eax],C_VAR
 199 
		cmp dword[eax],C_VAR
197 
		jne @f
 200 
		jne @f
198 
			stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà
 201 
			stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà
199 
		@@:
 202 
		@@:
200 
		cmp byte[eax],C_WND
 203 
		cmp dword[eax],C_WND
201 
		jne @f
 204 
		jne @f
202 
			stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà
 205 
			stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà
203 
		@@:
 206 
		@@:
204 
		cmp byte[eax],C_ACO
 207 
		cmp dword[eax],C_ACO
205 
		jne @f
 208 
		jne @f
206 
			stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà
 209 
			stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà
207 
		@@:
 210 
		@@:
208 
		cmp byte[eax],C_KEY ;êëàâèàòóðà
 211 
		cmp dword[eax],C_KEY ;êëàâèàòóðà
209 
		jne @f
 212 
		jne @f
210 
			stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà
 213 
			stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà
211 
		@@:
 214 
		@@:
Line 212... Line 215...
212 
 
 215 
 
Line 216... Line 219...
216 
		jmp .beg_iterat
 219 
		jmp .beg_iterat
217 
	.find_no:
 220 
	.find_no:
218 
pop ebx
 221 
pop ebx
219 
	ret
 222 
	ret
Line 220... Line -...
220 
 
 - 
 
- 
 
 223 
 
221 
 
 224 
;äîáàâëåíèå îáúåêòà ñ ïðîãðàìíûì êîäîì (òåêñòîì)
222 
align 4
 225 
align 4
223 
proc get_code_text, p_obj:dword
 226 
proc get_code_text, p_obj:dword
224 
	pushad
 227 
	;pushad
225 
		insert_nl
 - 
 
226 
		mov ebx,dword[p_obj]
 228 
		insert_nl
227 
		stdcall get_obj_text_col,ebx,0
 - 
 
228 
		stdcall str_len,edx
 - 
 
229 
		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 229 
		stdcall insert_text_prop, dword[p_obj],0
230 
		insert_nl
 230 
		insert_nl
231 
	popad
 231 
	;popad
232 
	ret
 232 
	ret
Line 233... Line 233...
233 
endp
 233 
endp
234 
 
 234 
 
235 
;îáðàáîòêà îáúåêòà ñîçäàþùåãî àâòîìàòè÷åêñèå êîäû
 235 
;îáðàáîòêà îáúåêòà ñîçäàþùåãî àâòîìàòè÷åêñèå êîäû
236 
align 4
 236 
align 4
237 
proc get_code_auto, p_obj:dword
 237 
proc get_code_auto, p_obj:dword
238 
	pushad
 238 
	pushad
239 
		insert_nl
 - 
 
240 
		mov ebx,dword[p_obj]
 239 
		insert_nl
241 
		mov ecx,dword[ebx+u_object.modif-u_object]
 240 
		mov ebx,dword[p_obj]
242 
		bt ecx,BIT_MOD_ACM
 241 
		test_bool_prop ebx,BIT_MOD_ACM
243 
		jae @f
 242 
		jae @f
244 
			;àâòîìàòè÷åñêèå ñîáûòèÿ îò ìûøè
 243 
			;àâòîìàòè÷åñêèå ñîáûòèÿ îò ìûøè
245 
			call get_code_auto_m
 244 
			call get_code_auto_m
246 
		@@:
 245 
		@@:
247 
		bt ecx,BIT_MOD_ABU
 246 
		test_bool_prop ebx,BIT_MOD_ABU
248 
		jae @f
 247 
		jae @f
249 
			;ñîçäàíèå ôóíêöèè button
 248 
			;ñîçäàíèå ôóíêöèè button
250 
			insert_but_beg
 249 
			insert_but_beg
251 
			call get_code_auto_but ;êîäû âûçîâà êíîïîê
 250 
			call get_code_auto_but ;êîäû âûçîâà êíîïîê
252 
			insert_but_end
 251 
			insert_but_end
253 
			call get_code_a_but_fun ;êîäû ôóíêöèé, âûçûâàåìûõ ïðè íàæàòèè êíîïîê
 252 
			call get_code_a_but_fun ;êîäû ôóíêöèé, âûçûâàåìûõ ïðè íàæàòèè êíîïîê
254 
		@@:
 253 
		@@:
255 
		bt ecx,BIT_MOD_ACD
 254 
		test_bool_prop ebx,BIT_MOD_ACD
256 
		jae @f
 255 
		jae @f
Line 257... Line -...
257 
			call get_code_auto_data_el
 - 
 
258 
			call get_code_auto_data_dop
 256 
			call get_code_auto_data_el
259 
 
 257 
			call get_code_auto_data_dop
260 
			xor edx,edx
 258 
 
261 
			mov dl,C_LIB
 259 
			mov edx,C_LIB
262 
			stdcall find_obj_in_file,edx ;eax - óêàçàòåëü íà ñòðóêòóðó áèáëèîòåêè
 260 
			stdcall find_obj_in_file,edx ;eax - óêàçàòåëü íà ñòðóêòóðó áèáëèîòåêè
263 
			cmp eax,0
 261 
			cmp eax,0
Line 296... Line 294...
296 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 294 
		stdcall dword[tl_node_poi_get_data], esi,tree2
297 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 295 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
298 
		cmp ebx,0
 296 
		cmp ebx,0
299 
		je .find_no
 297 
		je .find_no
Line 300... Line 298...
300 
 
 298 
 
301 
		cmp byte[ebx],C_EDB
 299 
		cmp dword[ebx],C_EDB
302 
		jne @f
 300 
		jne @f
303 
			stdcall insert_text, txt_std_mouse_ed
 301 
			stdcall insert_text, txt_std_mouse_ed
304 
			;insert_sp
 302 
			;insert_sp
305 
			stdcall get_obj_text_col,ebx,0
 303 
			stdcall get_obj_text_col,ebx,0
306 
			stdcall str_len,edx
 304 
			stdcall str_len,edx
307 
			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 305 
			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
308 
			insert_nl
 306 
			insert_nl
309 
		@@:
 307 
		@@:
310 
		cmp byte[ebx],C_CHB
 308 
		cmp dword[ebx],C_CHB
311 
		jne @f
 309 
		jne @f
312 
			stdcall insert_text, txt_std_mouse_cb
 310 
			stdcall insert_text, txt_std_mouse_cb
313 
			;insert_sp
 311 
			;insert_sp
314 
			stdcall get_obj_text_col,ebx,0
 312 
			stdcall get_obj_text_col,ebx,0
Line 341... Line 339...
341 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 339 
		stdcall dword[tl_node_poi_get_data], esi,tree2
342 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 340 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
343 
		cmp ebx,0
 341 
		cmp ebx,0
344 
		je .find_no
 342 
		je .find_no
Line 345... Line 343...
345 
 
 343 
 
346 
		cmp byte[ebx],C_EDB
 344 
		cmp dword[ebx],C_EDB
347 
		jne @f
 345 
		jne @f
348 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
 346 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
349 
			stdcall insert_text_prop, ebx,0
 347 
			stdcall insert_text_prop, ebx,0
Line 394... Line 392...
394 
				stdcall insert_text,txt_minus
 392 
				stdcall insert_text,txt_minus
395 
				stdcall insert_text, txt_1
 393 
				stdcall insert_text, txt_1
396 
			.null_string:
 394 
			.null_string:
397 
			insert_nl
 395 
			insert_nl
398 
		@@:
 396 
		@@:
399 
		cmp byte[ebx],C_DTT
 397 
		cmp dword[ebx],C_DTT
400 
		jne @f
 398 
		jne @f
401 
			stdcall insert_text, txt_txt
 399 
			stdcall insert_text, txt_txt
402 
			mov edx,fp_icon
 400 
			mov edx,fp_icon
403 
			stdcall get_obj_id_str, ebx,edx
 401 
			stdcall get_obj_id_str, ebx,edx
404 
			stdcall insert_text,edx
 402 
			stdcall insert_text,edx
Line 431... Line 429...
431 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 429 
		stdcall dword[tl_node_poi_get_data], esi,tree2
432 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 430 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
433 
		cmp ebx,0
 431 
		cmp ebx,0
434 
		je .find_no
 432 
		je .find_no
Line 435... Line 433...
435 
 
 433 
 
436 
		cmp byte[ebx],C_LIB
 434 
		cmp dword[ebx],C_LIB
437 
		jne @f
 435 
		jne @f
Line 438... Line 436...
438 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
 436 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
439 
 
 437 
 
Line 499... Line 497...
499 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 497 
		stdcall dword[tl_node_poi_get_data], esi,tree2
500 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 498 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
501 
		cmp ebx,0
 499 
		cmp ebx,0
502 
		je .find_no
 500 
		je .find_no
Line 503... Line 501...
503 
 
 501 
 
504 
		cmp byte[ebx],C_LIB
 502 
		cmp dword[ebx],C_LIB
505 
		jne @f
 503 
		jne @f
Line 506... Line 504...
506 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
 504 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
507 
 
 505 
 
Line 565... Line 563...
565 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 563 
		stdcall dword[tl_node_poi_get_data], esi,tree2
566 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 564 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
567 
		cmp ebx,0
 565 
		cmp ebx,0
568 
		je .find_no
 566 
		je .find_no
Line 569... Line 567...
569 
 
 567 
 
570 
		cmp byte[ebx],C_LIB
 568 
		cmp dword[ebx],C_LIB
571 
		jne @f
 569 
		jne @f
572 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
 570 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
573 
			stdcall insert_text, txt_align_4
 571 
			stdcall insert_text, txt_align_4
574 
			stdcall insert_text_prop, ebx,2
 572 
			stdcall insert_text_prop, ebx,2
Line 607... Line 605...
607 
		jle @f
 605 
		jle @f
608 
			stdcall dword[tl_node_poi_get_data], esi,tree2
 606 
			stdcall dword[tl_node_poi_get_data], esi,tree2
609 
			pop ecx ;ïîëó÷àåì äàííûå óçëà
 607 
			pop ecx ;ïîëó÷àåì äàííûå óçëà
610 
			cmp ecx,0
 608 
			cmp ecx,0
611 
			je @f
 609 
			je @f
612 
			cmp byte[ecx],C_IFN
 610 
			cmp dword[ecx],C_IFN
613 
			jne @b
 611 
			jne @b
614 
				;âñòàâêà óêàçàòåëÿ íà ôóíêöèþ
 612 
				;âñòàâêà óêàçàòåëÿ íà ôóíêöèþ
615 
				insert_tab
 613 
				insert_tab
616 
				stdcall insert_text_prop, ecx,0
 614 
				stdcall insert_text_prop, ecx,0
617 
				stdcall insert_text, txt_dd
 615 
				stdcall insert_text, txt_dd
Line 631... Line 629...
631 
		jle @f
 629 
		jle @f
632 
			stdcall dword[tl_node_poi_get_data], esi,tree2
 630 
			stdcall dword[tl_node_poi_get_data], esi,tree2
633 
			pop ecx ;ïîëó÷àåì äàííûå óçëà
 631 
			pop ecx ;ïîëó÷àåì äàííûå óçëà
634 
			cmp ecx,0
 632 
			cmp ecx,0
635 
			je @f
 633 
			je @f
636 
			cmp byte[ecx],C_IFN
 634 
			cmp dword[ecx],C_IFN
637 
			jne @b
 635 
			jne @b
638 
				;âñòàâêà èìåíè èìïîðòèðîâàííîé ôóíêöèè
 636 
				;âñòàâêà èìåíè èìïîðòèðîâàííîé ôóíêöèè
639 
				insert_tab
 637 
				insert_tab
640 
				stdcall insert_text_prop, edx,3 ;ïðèñòàâêà ê ôóíêöèè
 638 
				stdcall insert_text_prop, edx,3 ;ïðèñòàâêà ê ôóíêöèè
641 
				stdcall insert_text_prop, ecx,0
 639 
				stdcall insert_text_prop, ecx,0
Line 664... Line 662...
664 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 662 
		stdcall dword[tl_node_poi_get_data], esi,tree2
665 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 663 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
666 
		cmp ebx,0
 664 
		cmp ebx,0
667 
		je .find_no
 665 
		je .find_no
Line 668... Line 666...
668 
 
 666 
 
669 
		cmp byte[ebx],C_EDB
 667 
		cmp dword[ebx],C_EDB
670 
		jne @f
 668 
		jne @f
671 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
 669 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
672 
			stdcall insert_text, txt_txt
 670 
			stdcall insert_text, txt_txt
673 
			mov edx,fp_icon
 671 
			mov edx,fp_icon
Line 715... Line 713...
715 
				stdcall insert_text, txt_2
 713 
				stdcall insert_text, txt_2
716 
				stdcall insert_text, txt_db
 714 
				stdcall insert_text, txt_db
717 
				insert_0
 715 
				insert_0
718 
				insert_nl
 716 
				insert_nl
719 
		@@:
 717 
		@@:
720 
		;cmp byte[ebx],C_CHB
 - 
 
721 
		;jne @f
 - 
 
722 
		;@@:
 - 
 
Line 723... Line 718...
723 
 
 718 
 
724 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
 719 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
Line 725... Line 720...
725 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
 720 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
Line 743... Line 738...
743 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 738 
		stdcall dword[tl_node_poi_get_data], esi,tree2
744 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 739 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
745 
		cmp ebx,0
 740 
		cmp ebx,0
746 
		je .find_no
 741 
		je .find_no
Line 747... Line 742...
747 
 
 742 
 
748 
		cmp byte[ebx],C_BUT
 743 
		cmp dword[ebx],C_BUT
749 
		jne @f
 744 
		jne @f
750 
			insert_tab
 745 
			insert_tab
751 
			insert_cmp
 746 
			insert_cmp
752 
			insert_reg8 txt_ah
 747 
			insert_reg8 txt_ah
Line 795... Line 790...
795 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 790 
		stdcall dword[tl_node_poi_get_data], esi,tree2
796 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 791 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
797 
		cmp ebx,0
 792 
		cmp ebx,0
798 
		je .find_no
 793 
		je .find_no
Line 799... Line 794...
799 
 
 794 
 
800 
		cmp byte[ebx],C_BUT
 795 
		cmp dword[ebx],C_BUT
801 
		jne @f
 796 
		jne @f
802 
			stdcall get_obj_text_col,ebx,6
 797 
			stdcall get_obj_text_col,ebx,6
803 
			stdcall str_len,edx
 798 
			stdcall str_len,edx
804 
			cmp eax,1
 799 
			cmp eax,1
Line 849... Line 844...
849 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 844 
		stdcall dword[tl_node_poi_get_data], esi,tree2
850 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 845 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
851 
		cmp ebx,0
 846 
		cmp ebx,0
852 
		je .find_no
 847 
		je .find_no
Line 853... Line 848...
853 
 
 848 
 
854 
		cmp byte[ebx],C_EDB
 849 
		cmp dword[ebx],C_EDB
855 
		jne @f
 850 
		jne @f
856 
			stdcall insert_text, txt_std_key_ed
 851 
			stdcall insert_text, txt_std_key_ed
857 
			stdcall insert_text_prop,ebx,0
 852 
			stdcall insert_text_prop,ebx,0
858 
			insert_nl
 853 
			insert_nl
Line 982... Line 977...
982 
		stdcall dword[tl_node_poi_get_data], esi,tree2
 977 
		stdcall dword[tl_node_poi_get_data], esi,tree2
983 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
 978 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
984 
		cmp ebx,0
 979 
		cmp ebx,0
985 
		je .find_no
 980 
		je .find_no
Line 986... Line 981...
986 
 
 981 
 
987 
		cmp byte[ebx],C_EDB
 982 
		cmp dword[ebx],C_EDB
988 
		jne @f
 983 
		jne @f
989 
			stdcall insert_text, txt_editb_draw
 984 
			stdcall insert_text, txt_editb_draw
990 
			stdcall insert_text_prop, ebx,0
 985 
			stdcall insert_text_prop, ebx,0
991 
			insert_nl
 986 
			insert_nl
992 
		@@:
 987 
		@@:
993 
		cmp byte[ebx],C_CHB
 988 
		cmp dword[ebx],C_CHB
994 
		jne @f
 989 
		jne @f
995 
			stdcall insert_text, txt_cbox_draw
 990 
			stdcall insert_text, txt_cbox_draw
996 
			stdcall insert_text_prop, ebx,0
 991 
			stdcall insert_text_prop, ebx,0
997 
			insert_nl
 992 
			insert_nl
998 
		@@:
 993 
		@@:
999 
		cmp byte[ebx],C_BUT
 994 
		cmp dword[ebx],C_BUT
1000 
		jne @f
 995 
		jne .ob_draw_but
1001 
			insert_tab
 996 
			insert_tab
1002 
			stdcall insert_text, txt_mov
 997 
			stdcall insert_text, txt_mov
1003 
			insert_reg txt_eax
 998 
			insert_reg txt_eax
1004 
			insert_coma
 999 
			insert_coma
Line 1026... Line 1021...
1026 
			insert_tab
 1021 
			insert_tab
1027 
			stdcall insert_text, txt_mov
 1022 
			stdcall insert_text, txt_mov
1028 
			insert_reg txt_edx
 1023 
			insert_reg txt_edx
1029 
			insert_coma
 1024 
			insert_coma
1030 
			stdcall insert_text_prop, ebx,0
 1025 
			stdcall insert_text_prop, ebx,0
1031 
			insert_nl
 1026 
			test_bool_prop ebx,BIT_MOD_BUT_NFON
1032 
 
 - 
 
1033 
			insert_tab
 1027 
			jnc @f
1034 
			stdcall insert_text, txt_or
 1028 
				stdcall insert_text, txt_plus
1035 
			insert_reg txt_edx
 1029 
				stdcall insert_text, txt_bit_30
- 
 
 1030 
			@@:
- 
 
 1031 
			test_bool_prop ebx,BIT_MOD_BUT_NBORD
1036 
			insert_coma
 1032 
			jnc @f
- 
 
 1033 
				stdcall insert_text, txt_plus
1037 
			stdcall insert_text, txt_but_create
 1034 
				stdcall insert_text, txt_bit_29
- 
 
 1035 
			@@:
1038 
			insert_nl
 1036 
			insert_nl
Line 1039... Line 1037...
1039 
 
 1037 
 
1040 
			insert_tab
 1038 
			insert_tab
1041 
			stdcall insert_text, txt_mov
 1039 
			stdcall insert_text, txt_mov
Line 1045... Line 1043...
1045 
			insert_nl
 1043 
			insert_nl
Line 1046... Line 1044...
1046 
 
 1044 
 
1047 
			insert_tab
 1045 
			insert_tab
1048 
			stdcall insert_text, txt_i_40
 1046 
			stdcall insert_text, txt_i_40
1049 
			insert_nl
 1047 
			insert_nl
1050 
		@@:
 1048 
		.ob_draw_but:
1051 
		cmp byte[ebx],C_REC
 1049 
		cmp dword[ebx],C_REC
1052 
		jne @f
 1050 
		jne @f
1053 
			insert_tab
 1051 
			insert_tab
1054 
			stdcall insert_text, txt_mov
 1052 
			stdcall insert_text, txt_mov
1055 
			insert_reg txt_eax
 1053 
			insert_reg txt_eax
Line 1085... Line 1083...
1085 
 
 1083 
 
1086 
			insert_tab
 1084 
			insert_tab
1087 
			stdcall insert_text, txt_i_40
 1085 
			stdcall insert_text, txt_i_40
1088 
			insert_nl
 1086 
			insert_nl
1089 
		@@:
 1087 
		@@:
1090 
		cmp byte[ebx],C_DTT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
 1088 
		cmp dword[ebx],C_DTT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
1091 
		jne @f
 1089 
		jne .ob_draw_text
1092 
			insert_tab
 1090 
			insert_tab
1093 
			stdcall insert_text, txt_mov
 1091 
			stdcall insert_text, txt_mov
1094 
			insert_reg txt_eax
 1092 
			insert_reg txt_eax
1095 
			insert_coma
 1093 
			insert_coma
Line 1108... Line 1106...
1108 
			insert_tab
 1106 
			insert_tab
1109 
			stdcall insert_text, txt_mov
 1107 
			stdcall insert_text, txt_mov
1110 
			insert_reg txt_ecx
 1108 
			insert_reg txt_ecx
1111 
			insert_coma
 1109 
			insert_coma
1112 
			stdcall insert_text_prop, ebx,3
 1110 
			stdcall insert_text_prop, ebx,3
- 
 
 1111 
			test_bool_prop ebx,BIT_MOD_TXT_ASCII_0
- 
 
 1112 
			jnc @f
- 
 
 1113 
				;or ecx,0x80000000 - áèò äëÿ ñòðîêè ASCIIZ
- 
 
 1114 
				stdcall insert_text,txt_plus
- 
 
 1115 
				stdcall insert_text,txt_bit_31
- 
 
 1116 
			@@:
- 
 
 1117 
			test_bool_prop ebx,BIT_MOD_TXT_NO_TRAN
- 
 
 1118 
			jnc @f
- 
 
 1119 
				;or ecx,0x40000000 - áèò äëÿ íå ïðîçðà÷íîãî òåêñòà
- 
 
 1120 
				stdcall insert_text,txt_plus
- 
 
 1121 
				stdcall insert_text,txt_bit_30
- 
 
 1122 
			@@:
- 
 
 1123 
			test_bool_prop ebx,BIT_MOD_TXT_CHAR2
- 
 
 1124 
			jnc @f
- 
 
 1125 
				;or ecx,0x40000000 - áèò äëÿ 2-ãî ñèñò. øðèôòà
- 
 
 1126 
				stdcall insert_text,txt_plus
- 
 
 1127 
				stdcall insert_text,txt_bit_28
- 
 
 1128 
			@@:
1113 
			insert_nl
 1129 
			insert_nl
Line 1114... Line -...
1114 
 
 - 
 
1115 
;or ecx,0x80000000
 - 
 
1116 
 
 1130 
 
1117 
			insert_tab
 1131 
			insert_tab
1118 
			stdcall insert_text, txt_mov
 1132 
			stdcall insert_text, txt_mov
1119 
			insert_reg txt_edx
 1133 
			insert_reg txt_edx
1120 
			insert_coma
 1134 
			insert_coma
Line 1123... Line 1137...
1123 
			stdcall get_obj_id_str, ebx,edx
 1137 
			stdcall get_obj_id_str, ebx,edx
1124 
			stdcall insert_text,edx
 1138 
			stdcall insert_text,edx
1125 
			insert_nl
 1139 
			insert_nl
Line 1126... Line 1140...
1126 
 
 1140 
 
- 
 
 1141 
;mov esi,...
- 
 
 1142 
			test_bool_prop ebx,BIT_MOD_TXT_NO_TRAN
- 
 
 1143 
			jnc @f
- 
 
 1144 
				insert_tab
- 
 
 1145 
				stdcall insert_text, txt_mov
- 
 
 1146 
				insert_reg txt_edi
- 
 
 1147 
				insert_coma
- 
 
 1148 
				stdcall insert_text_prop, ebx,4 ;öâåò ôîíà
- 
 
 1149 
				insert_nl
Line 1127... Line 1150...
1127 
;mov esi,...
 1150 
			@@:
1128 
 
 1151 
 
1129 
			insert_tab
 1152 
			insert_tab
1130 
			stdcall insert_text, txt_i_40
 1153 
			stdcall insert_text, txt_i_40
Line 1131... Line 1154...
1131 
			insert_nl
 1154 
			insert_nl
1132 
		@@:
 1155 
		.ob_draw_text:
Line 1133... Line 1156...
1133 
 
 1156 
 
1134 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
 1157 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
1135 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
 1158 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
1136 
 
 1159 
 
1137 
		jmp .beg_iterat
 1160 
		jmp .beg_iterat
Line 1138... Line -...
1138 
	.find_no:
 - 
 
1139 
	popad
 - 
 
1140 
	ret
 - 
 
1141 
endp
 - 
 
1142 
 
 - 
 
1143 
 
 - 
 
1144 
 
 - 
 
1145 
align 4
 - 
 
1146 
proc get_code_struct, p_obj:dword
 - 
 
1147 
	pushad
 - 
 
1148 
		mov ebx,dword[p_obj]
 - 
 
1149 
		;0 - name
 - 
 
1150 
 
 - 
 
1151 
		stdcall [ted_text_add], tedit0,txt_struct,7,ted_opt_ed_move_cursor
 - 
 
1152 
		stdcall insert_text_prop, ebx,0
 - 
 
1153 
		insert_nl
 - 
 
1154 
 
 1161 
	.find_no:
1155 
	popad
 1162 
	popad
1156 
	ret
 1163 
	ret
1157 
endp
 1164 
endp
1158 
 
 1165 
 
1159 
;ñîçäàòü êîä îáúÿâëåíèÿ ïåðåìåííîé
 1166 
;ñîçäàòü êîä îáúÿâëåíèÿ ïåðåìåííîé
Line 1160... Line 1167...
1160 
align 4
 1167 
align 4
1161 
proc get_code_variable, p_obj:dword,o_lev:dword
 1168 
proc get_code_variable, p_obj:dword,o_lev:dword
1162 
	pushad
 1169 
	pushad
1163 
		mov ebx,dword[p_obj]
 1170 
		mov ebx,dword[p_obj]
1164 
		;0,1,2 - name,value,comment
 1171 
		;0,1,2 - name,value,comment
1165 
 
 1172 
 
1166 
		mov ecx,dword[o_lev]
 1173 
		mov ecx,dword[o_lev]
1167 
		cmp cl,0
 1174 
		cmp cl,0
1168 
		je .no_tab ;èçáåãàåì çàöèêëèâàíèÿ (0-1 = 2^32-1)
 1175 
		je .no_tab ;èçáåãàåì çàöèêëèâàíèÿ (0-1 = 2^32-1)
Line 1244... Line 1251...
1244 
txt_err_m_f_lib db 'err_msg_found_lib_',0
 1251 
txt_err_m_f_lib db 'err_msg_found_lib_',0
1245 
txt_head_l db 'head_f_l',0
 1252 
txt_head_l db 'head_f_l',0
1246 
txt_err_m_i_lib db 'err_msg_import_',0
 1253 
txt_err_m_i_lib db 'err_msg_import_',0
1247 
txt_head_i db 'head_f_i',0
 1254 
txt_head_i db 'head_f_i',0
1248 
txt_ll_end db 'l_libs_end:',13,0
 1255 
txt_ll_end db 'l_libs_end:',13,0
- 
 
 1256 
txt_bit_28 db '0x10000000',0
- 
 
 1257 
txt_bit_29 db '0x20000000',0
1249 
txt_but_create db '0x40000000',0 ;tmp
 1258 
txt_bit_30 db '0x40000000',0
- 
 
 1259 
txt_bit_31 db '0x80000000',0
1250 
txt_0x33000000 db '0x33000000',0 ;tmp
 1260 
txt_0x33000000 db '0x33000000',0 ;tmp
1251 
txt_struct db 'struct ',0
 1261 
txt_struct db 'struct ',0
1252 
txt_met_end db '.end',0
 1262 
txt_met_end db '.end',0
1253 
txt_ends db 'ends',13,13,0
 1263 
txt_ends db 'ends',13,13,0
1254 
txt_mov db 'mov ',0
 1264 
txt_mov db 'mov ',0