Subversion Repositories Kolibri OS

Rev

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

Rev 1706 Rev 1711
Line 116... Line 116...
116 
	stdcall [ted_text_add], tedit0,txt_ret,4,ted_opt_ed_move_cursor
 116 
	stdcall [ted_text_add], tedit0,txt_ret,4,ted_opt_ed_move_cursor
117 
}
 117 
}
Line 118... Line 118...
118 
 
 118 
 
119 
 
 119 
 
- 
 
 120 
align 4
- 
 
 121 
but_update:
- 
 
 122 
	call draw_constructor
- 
 
 123 
	cmp byte[show_mode],0 ;óñëîâèå âèäèìîñòè îêíà êîíñòðóêòîðà
- 
 
 124 
	jne @f
120 
align 4
 125 
		stdcall [buf2d_draw], buf_fon
121 
but_code_gen:
 126 
	@@:
122 
	call code_gen
 127 
	call code_gen
123 
	cmp byte[show_mode],1 ;óñëîâèå âèäèìîñòè òåêñòîâîãî îêíà
 128 
	cmp byte[show_mode],1 ;óñëîâèå âèäèìîñòè òåêñòîâîãî îêíà
124 
	jne @f
 129 
	jne @f
Line 161... Line 166...
161 
 
 166 
 
162 
		cmp byte[eax],C_ST
 167 
		cmp byte[eax],C_ST
163 
		jne @f
 168 
		jne @f
164 
			stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà
 169 
			stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà
165 
			stdcall dword[tl_node_poi_get_next_info], esi,tree2
 170 
			stdcall dword[tl_node_poi_get_next_info], esi,tree2
166 
			pop ecx ;ïåðåõîäèì ê ñëåäóùåìó óçëó
 171 
			pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
167 
			cmp ecx,0
 172 
			cmp esi,0
168 
			je .find_no
 173 
			je .end_st
169 
			cmp byte[ecx+2],bl ;lev
 174 
			cmp byte[esi+2],bl ;lev
170 
			jle .end_st
 - 
 
171 
				mov esi,ecx
 175 
			jle .end_st
172 
				push bx
 176 
				push bx
173 
					mov bl,byte[esi+2]
 177 
					mov bl,byte[esi+2]
174 
					call code_gen_obj ;ðåêóðñèâíûé âûçîâ äî÷åðíèõ îáúåêòîâ
 178 
					call code_gen_obj ;ðåêóðñèâíûé âûçîâ äî÷åðíèõ îáúåêòîâ
175 
				pop bx
 179 
				pop bx
Line 360... Line 364...
360 
			mov edx,fp_icon
 364 
			mov edx,fp_icon
361 
			stdcall get_obj_id, ebx,edx
 365 
			stdcall get_obj_id, ebx,edx
362 
			stdcall insert_text,edx
 366 
			stdcall insert_text,edx
Line 363... Line 367...
363 
 
 367 
 
- 
 
 368 
			stdcall insert_text, txt_mouse_dd
- 
 
 369 
 
- 
 
 370 
			stdcall insert_text, txt_0 ;òóò áóäóò ñâîéñòâà editbox à ïîêà ïðîñòî ñòàâèì 0
- 
 
 371 
			xchg eax,edx ;ñîõðàíÿåì çíà÷åíèå edx
- 
 
 372 
			stdcall get_obj_text_col,ebx,10
- 
 
 373 
			cmp byte[edx],0 ;ïðîâåðÿåì ïóñòàÿ ëè ñòðîêà ïðè çàïóñêå editbox
- 
 
 374 
			je .null_string
- 
 
 375 
				xchg eax,edx ;âîñòàíàâëèâàåì çíà÷åíèå edx
- 
 
 376 
				stdcall insert_text, txt_coma
- 
 
 377 
 
- 
 
 378 
				stdcall insert_text, txt_txt
- 
 
 379 
				stdcall insert_text,edx
- 
 
 380 
				stdcall insert_text,txt_met_end
- 
 
 381 
				stdcall insert_text,txt_minus
- 
 
 382 
				stdcall insert_text, txt_txt
- 
 
 383 
				stdcall insert_text,edx
- 
 
 384 
				stdcall insert_text,txt_minus
- 
 
 385 
				stdcall insert_text, txt_1
- 
 
 386 
				stdcall insert_text, txt_coma
- 
 
 387 
 
- 
 
 388 
				stdcall insert_text, txt_txt
- 
 
 389 
				stdcall insert_text,edx
- 
 
 390 
				stdcall insert_text,txt_met_end
- 
 
 391 
				stdcall insert_text,txt_minus
- 
 
 392 
				stdcall insert_text, txt_txt
- 
 
 393 
				stdcall insert_text,edx
- 
 
 394 
				stdcall insert_text,txt_minus
- 
 
 395 
				stdcall insert_text, txt_1
- 
 
 396 
			.null_string:
- 
 
 397 
			insert_nl
- 
 
 398 
		@@:
- 
 
 399 
		cmp byte[ebx],C_DT
- 
 
 400 
		jne @f
- 
 
 401 
			stdcall insert_text, txt_txt
- 
 
 402 
			mov edx,fp_icon
- 
 
 403 
			stdcall get_obj_id, ebx,edx
- 
 
 404 
			stdcall insert_text,edx
- 
 
 405 
			stdcall insert_text, txt_db
364 
			stdcall insert_text, txt_mouse_dd
 406 
			stdcall insert_text_prop, ebx,0
365 
			insert_nl
 407 
			insert_nl
366 
		@@:
 - 
 
367 
		;cmp byte[ebx],C_CB
 - 
 
368 
		;jne @f
 - 
 
Line 369... Line 408...
369 
		;@@:
 408 
		@@:
370 
 
 409 
 
Line 371... Line 410...
371 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
 410 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
Line 629... Line 668...
629 
 
 668 
 
630 
		cmp byte[ebx],C_ED
 669 
		cmp byte[ebx],C_ED
631 
		jne @f
 670 
		jne @f
632 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
 671 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
633 
			stdcall insert_text, txt_txt
 - 
 
634 
 
 672 
			stdcall insert_text, txt_txt
635 
			mov edx,fp_icon
 673 
			mov edx,fp_icon
636 
			stdcall get_obj_id, ebx,edx
 - 
 
637 
			stdcall str_len,edx ;eax = len(fp_icon)
 - 
 
638 
			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 674 
			stdcall get_obj_id, ebx,edx
Line 639... Line 675...
639 
			stdcall insert_text, txt_times
 675 
			stdcall insert_text,edx
- 
 
 676 
 
- 
 
 677 
			stdcall get_obj_text_col,ebx,10
- 
 
 678 
			cmp byte[edx],0
- 
 
 679 
			je .no_text
- 
 
 680 
				stdcall insert_text, txt_d_poi
640 
 
 681 
				stdcall insert_text, txt_db
641 
			stdcall get_obj_text_col,ebx,9
 682 
				stdcall insert_text, txt_str_beg
- 
 
 683 
				stdcall str_len,edx
- 
 
 684 
				stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
- 
 
 685 
				stdcall insert_text, txt_str_end
- 
 
 686 
				insert_nl
- 
 
 687 
 
- 
 
 688 
				insert_tab
- 
 
 689 
				stdcall insert_text, txt_met_end
- 
 
 690 
				stdcall insert_text, txt_rb
- 
 
 691 
				stdcall insert_text, txt_txt
- 
 
 692 
				mov edx,fp_icon
- 
 
 693 
				stdcall get_obj_id, ebx,edx
- 
 
 694 
				stdcall insert_text,edx
- 
 
 695 
 
- 
 
 696 
				stdcall insert_text, txt_minus
- 
 
 697 
				stdcall insert_text, txt_txt
Line 642... Line 698...
642 
			stdcall str_len,edx
 698 
				stdcall insert_text,edx
- 
 
 699 
				stdcall insert_text, txt_met_end
- 
 
 700 
 
- 
 
 701 
				insert_plus
- 
 
 702 
				stdcall insert_text_prop,ebx,9
- 
 
 703 
				insert_plus
- 
 
 704 
				stdcall insert_text, txt_3
- 
 
 705
- 
 
 706 
				insert_nl
- 
 
 707 
 
- 
 
 708 
				jmp @f
- 
 
 709 
 
- 
 
 710 
			.no_text: ;ïåðâîíà÷àëüíî òåêñò íå çàäàí
- 
 
 711 
				stdcall insert_text, txt_times
643 
			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 712 
 
644 
 
 713 
				stdcall insert_text_prop,ebx,9
645 
			insert_plus
 714 
				insert_plus
646 
			stdcall insert_text, txt_2
 715 
				stdcall insert_text, txt_2
647 
			stdcall insert_text, txt_db
 716 
				stdcall insert_text, txt_db
Line 1016... Line 1085...
1016 
 
 1085 
 
1017 
			insert_tab
 1086 
			insert_tab
1018 
			stdcall insert_text, txt_i_40
 1087 
			stdcall insert_text, txt_i_40
1019 
			insert_nl
 1088 
			insert_nl
- 
 
 1089 
		@@:
- 
 
 1090 
		cmp byte[ebx],C_DT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
- 
 
 1091 
		jne @f
- 
 
 1092 
			insert_tab
- 
 
 1093 
			stdcall insert_text, txt_mov
- 
 
 1094 
			insert_reg txt_eax
- 
 
 1095 
			insert_coma
- 
 
 1096 
			stdcall insert_text, txt_4
- 
 
 1097 
			insert_nl
- 
 
 1098 
 
- 
 
 1099 
			insert_tab
- 
 
 1100 
			stdcall insert_text, txt_mov
- 
 
 1101 
			insert_reg txt_ebx
- 
 
 1102 
			insert_coma
- 
 
 1103 
			stdcall insert_text_prop, ebx,1
- 
 
 1104 
			insert_i65p
- 
 
 1105 
			stdcall insert_text_prop, ebx,2
- 
 
 1106 
			insert_nl
- 
 
 1107 
 
- 
 
 1108 
			insert_tab
- 
 
 1109 
			stdcall insert_text, txt_mov
- 
 
 1110 
			insert_reg txt_ecx
- 
 
 1111 
			insert_coma
- 
 
 1112 
			stdcall insert_text_prop, ebx,3
- 
 
 1113 
			insert_nl
- 
 
 1114 
 
- 
 
 1115 
;or ecx,0x80000000
- 
 
 1116 
 
- 
 
 1117 
			insert_tab
- 
 
 1118 
			stdcall insert_text, txt_mov
- 
 
 1119 
			insert_reg txt_edx
- 
 
 1120 
			insert_coma
- 
 
 1121 
			stdcall insert_text, txt_txt
- 
 
 1122 
			mov edx,fp_icon
- 
 
 1123 
			stdcall get_obj_id, ebx,edx
- 
 
 1124 
			stdcall insert_text,edx
- 
 
 1125 
			insert_nl
- 
 
 1126 
 
- 
 
 1127 
;mov esi,...
- 
 
 1128 
 
- 
 
 1129 
			insert_tab
- 
 
 1130 
			stdcall insert_text, txt_i_40
- 
 
 1131 
			insert_nl
Line 1020... Line 1132...
1020 
		@@:
 1132 
		@@:
1021 
 
 1133 
 
Line 1022... Line 1134...
1022 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
 1134 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
Line 1102... Line 1214...
1102 
txt_2 db '2',0
 1214 
txt_2 db '2',0
1103 
txt_3 db '3',0
 1215 
txt_3 db '3',0
1104 
txt_4 db '4',0
 1216 
txt_4 db '4',0
1105 
txt_8 db '8',0
 1217 
txt_8 db '8',0
1106 
txt_plus db '+',0
 1218 
txt_plus db '+',0
- 
 
 1219 
txt_minus db '-',0
- 
 
 1220 
;txt_dol db '$',0
1107 
txt_nl db 13,0
 1221 
txt_nl db 13,0
1108 
txt_com db ';',0
 1222 
txt_com db ';',0
1109 
txt_sp db ' ',0
 1223 
txt_sp db ' ',0
1110 
txt_tab db 9,0
 1224 
txt_tab db 9,0
1111 
txt_br db '\',13,9,0
 1225 
txt_br db '\',13,9,0
1112 
txt_txt db 'txt_',0
 1226 
txt_txt db 'txt_',0
1113 
txt_db db ' db ',0
 1227 
txt_db db ' db ',0
1114 
txt_dd db ' dd ',0
 1228 
txt_dd db ' dd ',0
- 
 
 1229 
txt_rb db ' rb ',0
1115 
txt_dd_0_0 db 9,'dd 0,0',13,0
 1230 
txt_dd_0_0 db 9,'dd 0,0',13,0
1116 
txt_mouse_dd db ', mouse_dd, ',0
 1231 
txt_mouse_dd db ', mouse_dd, ',0
1117 
txt_times db ':',13,9,'times ',0
 1232 
txt_times db ':',13,9,'times ',0
1118 
txt_draw_wb:
 1233 
txt_draw_wb:
1119 
	db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0
 1234 
	db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0
Line 1132... Line 1247...
1132 
txt_head_i db 'head_f_i',0
 1247 
txt_head_i db 'head_f_i',0
1133 
txt_ll_end db 'l_libs_end:',13,0
 1248 
txt_ll_end db 'l_libs_end:',13,0
1134 
txt_but_create db '0x40000000',0 ;tmp
 1249 
txt_but_create db '0x40000000',0 ;tmp
1135 
txt_0x33000000 db '0x33000000',0 ;tmp
 1250 
txt_0x33000000 db '0x33000000',0 ;tmp
1136 
txt_struct db 'struct ',0
 1251 
txt_struct db 'struct ',0
- 
 
 1252 
txt_met_end db '.end',0
1137 
txt_ends db 'ends',13,13,0
 1253 
txt_ends db 'ends',13,13,0
1138 
txt_mov db 'mov ',0
 1254 
txt_mov db 'mov ',0
1139 
txt_xor db 'xor ',0
 1255 
txt_xor db 'xor ',0
1140 
txt_or db 'or  ',0
 1256 
txt_or db 'or  ',0
1141 
txt_cmp db 'cmp ',0
 1257 
txt_cmp db 'cmp ',0