Subversion Repositories Kolibri OS

Rev

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

Rev 2462 Rev 2482
Line 45... Line 45...
45 
include 'dll.inc'
 45 
include 'dll.inc'
46 
include 'le_pole.inc'
 46 
include 'le_pole.inc'
47 
include 'le_signal.inc'
 47 
include 'le_signal.inc'
Line 48... Line 48...
48 
 
 48 
 
49 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 49 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
Line 50... Line 50...
50 
caption db '‹®£¨ç¥áª¨¥ í«¥¬¥­âë 15.03.12',0 ;¯®¤¯¨áì ®ª­ 
 50 
caption db '‹®£¨ç¥áª¨¥ í«¥¬¥­âë 20.03.12',0 ;¯®¤¯¨áì ®ª­ 
51 
 
 51 
 
52 
panel_0_coord_top equ 5 ;¢¥àå­ïï ª®®à¤¨­ â  0-£® à鸞 ¯ ­¥«¨ ¨­áâà㬥­â®¢
 52 
panel_0_coord_top equ 5 ;¢¥àå­ïï ª®®à¤¨­ â  0-£® à鸞 ¯ ­¥«¨ ¨­áâà㬥­â®¢
53 
panel_1_coord_top equ 35
 53 
panel_1_coord_top equ 35
Line 125... Line 125...
125 
tbl_not db 1,0 ;not
 125 
tbl_not db 1,0 ;not
Line 126... Line 126...
126 
 
 126 
 
127 
time dd 0
 127 
time dd 0
128 
tim_ch db 0
 128 
tim_ch db 0
- 
 
 129 
pen_mode dd 0 ;०¨¬ à¨á®¢ ­¨ï ¯à®¢®¤ 
- 
 
 130 
pen_coord_x dd 0 ;ª®®à¤¨­ â  x ­ ç «ì­®© â®çª¨ à¨á®¢ ­¨ï
Line 129... Line 131...
129 
pen_mode dd 0 ;०¨¬ à¨á®¢ ­¨ï ¯à®¢®¤ 
 131 
pen_coord_y dd 0
130 
 
 132 
 
131 
txt_set_0 db '0',0
 133 
txt_set_0 db '0',0
132 
txt_set_1 db '1',0
 134 
txt_set_1 db '1',0
Line 133... Line 135...
133 
txt_mov_l db 27,0 ;<-
 135 
;txt_mov_l db 27,0 ;<-
134 
txt_mov_r db 26,0 ;->
 136 
;txt_mov_r db 26,0 ;->
135 
 
 137 
 
136 
txt_size db 'size',0
 138 
txt_size db 'size',0
Line 148... Line 150...
148 
 
 150 
 
149 
run_file_70 FileInfoBlock
 151 
run_file_70 FileInfoBlock
Line 150... Line 152...
150 
image_data dd 0 ;㪠§ â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
 152 
image_data dd 0 ;㪠§ â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
151 
 
 153 
 
152 
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
 154 
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
Line 153... Line 155...
153 
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*15
 155 
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*20
154 
image_data_toolbar dd 0
 156 
image_data_toolbar dd 0
155 
 
 157 
 
156 
TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©«  á á¨á⥬­ë¬¨ ¨ª®­ª ¬¨
 158 
TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©«  á á¨á⥬­ë¬¨ ¨ª®­ª ¬¨
Line 157... Line 159...
157 
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
 159 
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
158 
TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*5+54 ;à §¬¥à bmp ä ©«  á ¨ª®­ª ¬¨ ®¡ê¥ªâ®¢
 160 
TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*5+54 ;à §¬¥à bmp ä ©«  á ¨ª®­ª ¬¨ ®¡ê¥ªâ®¢
Line -... Line 161...
- 
 
 161 
icon_toolbar dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
- 
 
 162 
 
- 
 
 163 
IMAGE_FONT_SIZE equ 128*144*3
159 
icon_toolbar dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
 164 
image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥­­ë¬¨ á¥à묨 ¨§®¡à ¦¥­¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ ᮧ¤ ¢ âìáï âà ä à¥âë
160 
 
 165 
 
161 
IMAGE_FONT_SIZE equ 128*144*3
 166 
cursors_count equ 4
162 
image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥­­ë¬¨ á¥à묨 ¨§®¡à ¦¥­¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ ᮧ¤ ¢ âìáï âà ä à¥âë
 167 
IMAGE_CURSORS_SIZE equ 4096*cursors_count ;à §¬¥à ª à⨭ª¨ á ªãàá®à ¬¨
163 
 
 168 
 
Line 229... Line 234...
229 
 
 234 
 
230 
	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
 235 
	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
231 
	mov eax,dword[icon_toolbar]
 236 
	mov eax,dword[icon_toolbar]
Line -... Line 237...
- 
 
 237 
	mov dword[tree1.data_img],eax
232 
	mov dword[tree1.data_img],eax
 238 
 
233 
 
 239 
	;*** § £à㧪  èà¨äâ 
234 
	load_image_file 'font6x9.bmp', image_data_gray,IMAGE_FONT_SIZE
 240 
	load_image_file 'font6x9.bmp', image_data_gray,IMAGE_FONT_SIZE
Line 235... Line 241...
235 
	stdcall [buf2d_create_f_img], buf_font,[image_data_gray] ;ᮧ¤ ¥¬ ¡ãä¥à
 241 
	stdcall [buf2d_create_f_img], buf_font,[image_data_gray] ;ᮧ¤ ¥¬ ¡ãä¥à
236 
	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
 242 
	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
Line -... Line 243...
- 
 
 243 
 
- 
 
 244 
	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®á⨠8 ¡¨â
- 
 
 245 
	stdcall [buf2d_convert_text_matrix], buf_font
- 
 
 246 
 
- 
 
 247 
	;*** § £à㧪  ªãàá®à®¢
- 
 
 248 
	load_image_file 'cursors_gr.png',image_data_gray,IMAGE_CURSORS_SIZE
- 
 
 249 
	stdcall [buf2d_create_f_img], buf_curs_8,[image_data_gray] ;ᮧ¤ ¥¬ ¡ãä¥à
- 
 
 250 
	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
- 
 
 251 
 
- 
 
 252 
	load_image_file 'cursors.png',image_data_gray, IMAGE_CURSORS_SIZE
- 
 
 253 
	stdcall [buf2d_create_f_img], buf_curs,[image_data_gray] ;ᮧ¤ ¥¬ ¡ãä¥à
- 
 
 254 
	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
237 
 
 255 
 
Line 238... Line 256...
238 
	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®á⨠8 ¡¨â
 256 
	stdcall [buf2d_conv_24_to_8], buf_curs_8,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®á⨠8¡¨â
239 
	stdcall [buf2d_convert_text_matrix], buf_font
 257 
	stdcall [buf2d_conv_24_to_32],buf_curs,buf_curs_8 ;¤¥« ¥¬ ¡ãä¥à rgba 32¡¨â
Line 302... Line 320...
302 
	stdcall [tl_mouse], tree1
 320 
	stdcall [tl_mouse], tree1
Line 303... Line 321...
303 
 
 321 
 
304 
	push eax ebx ecx edx
 322 
	push eax ebx ecx edx
305 
	mcall 37,2 ;­ ¦ âë¥ ª­®¯ª¨ ¬ëè¨
 323 
	mcall 37,2 ;­ ¦ âë¥ ª­®¯ª¨ ¬ëè¨
- 
 
 324 
	bt eax,0 ;«¥¢ ï ª­®¯ª  ­ ¦ â ?
- 
 
 325 
	jc @f
- 
 
 326 
		xor eax,eax
- 
 
 327 
		mov [pen_coord_x],eax
306 
	bt eax,0 ;«¥¢ ï ª­®¯ª  ­ ¦ â ?
 328 
		mov [pen_coord_y],eax
- 
 
 329 
		jmp .end_buf_wnd
Line 307... Line 330...
307 
	jnc .end_buf_wnd
 330 
	@@:
308 
 
 331 
 
309 
	mcall 37,1 ;eax = (x shl 16) + y
 332 
	mcall 37,1 ;eax = (x shl 16) + y
Line 338... Line 361...
338 
		jge .end_buf_wnd
 361 
		jge .end_buf_wnd
339 
		cmp ebx,[shem_h]
 362 
		cmp ebx,[shem_h]
340 
		jge .end_buf_wnd
 363 
		jge .end_buf_wnd
Line 341... Line 364...
341 
 
 364 
 
342 
		cmp byte[pen_mode],1
 365 
		cmp byte[pen_mode],1
343 
		jne @f
 366 
		jne .end_mode_1
- 
 
 367 
			;०¨¬ à¨á®¢ ­¨ï ¯à®¢®¤ 
- 
 
 368 
			cmp dword[pen_coord_x],0
- 
 
 369 
			jne @f
- 
 
 370 
			cmp dword[pen_coord_y],0
- 
 
 371 
			jne @f
- 
 
 372 
				mov [pen_coord_x],eax
- 
 
 373 
				mov [pen_coord_y],ebx
- 
 
 374 
			@@:
- 
 
 375 
 
- 
 
 376 
			cmp dword[pen_coord_x],eax
- 
 
 377 
			je .beg_draw
- 
 
 378 
			cmp dword[pen_coord_y],ebx
- 
 
 379 
			je .beg_draw
- 
 
 380 
 
- 
 
 381 
			mov ecx,eax
- 
 
 382 
			sub ecx,[pen_coord_x]
- 
 
 383 
			bt ecx,31
- 
 
 384 
			jnc @f
- 
 
 385 
				neg ecx
- 
 
 386 
				inc ecx
- 
 
 387 
			@@:
- 
 
 388 
			mov edx,ebx
- 
 
 389 
			sub edx,[pen_coord_y]
- 
 
 390 
			bt edx,31
- 
 
 391 
			jnc @f
- 
 
 392 
				neg edx
- 
 
 393 
				inc edx
- 
 
 394 
			@@:
- 
 
 395 
			cmp ecx,edx
- 
 
 396 
			jl @f
- 
 
 397 
				mov ebx,[pen_coord_y] ;¯à¨¢ï§ª  ª ª®®à¤¨­ â¥ y
- 
 
 398 
				jmp .beg_draw
- 
 
 399 
			@@:
- 
 
 400 
			mov eax,[pen_coord_x] ;¯à¨¢ï§ª  ª ª®®à¤¨­ â¥ x
- 
 
 401 
 
344 
			;०¨¬ à¨á®¢ ­¨ï ¯à®¢®¤ 
 402 
			.beg_draw:
345 
			stdcall pole_cell_creat, pole,eax,ebx,0
 403 
			stdcall pole_cell_creat, pole,eax,ebx,0
346 
			;­¨ç¥£® ­¥ ã¡à «®áì redraw_pole ­¥ ¯®¤å®¤¨â, â. ª. ç¨áâ¨âì ¯®«¥ ­¥ ­ã¦­®
 404 
			;­¨ç¥£® ­¥ ã¡à «®áì redraw_pole ­¥ ¯®¤å®¤¨â, â. ª. ç¨áâ¨âì ¯®«¥ ­¥ ­ã¦­®
347 
			stdcall pole_paint, pole
 405 
			stdcall pole_paint, pole
348 
			stdcall [buf2d_draw], buf_0
 406 
			stdcall [buf2d_draw], buf_0
349 
			;stdcall but_test_pole, pole
 407 
			;stdcall but_test_pole, pole
350 
			jmp .end_buf_wnd
 408 
			jmp .end_buf_wnd
351 
		@@:
 409 
		.end_mode_1:
352 
		cmp byte[pen_mode],2
 410 
		cmp byte[pen_mode],2
353 
		jne @f
 411 
		jne @f
354 
			;०¨¬ à¨á®¢ ­¨ï ¨§®«ï樨 ¤«ï ¯à®¢®¤ 
 412 
			;०¨¬ à¨á®¢ ­¨ï ¨§®«ï樨 ¤«ï ¯à®¢®¤ 
355 
			stdcall pole_cell_creat, pole,eax,ebx,2
 413 
			stdcall pole_cell_creat, pole,eax,ebx,2
Line 364... Line 422...
364 
			stdcall pole_cell_delete, pole,eax,ebx
 422 
			stdcall pole_cell_delete, pole,eax,ebx
365 
			call redraw_pole
 423 
			call redraw_pole
366 
			;stdcall but_test_pole, pole
 424 
			;stdcall but_test_pole, pole
367 
			jmp .end_buf_wnd
 425 
			jmp .end_buf_wnd
368 
		@@:
 426 
		@@:
- 
 
 427 
		cmp byte[pen_mode],4
- 
 
 428 
		jne @f
- 
 
 429 
			;०¨¬ ᮧ¤ ­¨ï í«¥¬¥­â®¢
- 
 
 430 
			stdcall shem_element_creat, eax,ebx
- 
 
 431 
			stdcall pole_paint, pole
- 
 
 432 
			stdcall [buf2d_draw], buf_0
- 
 
 433 
			jmp .end_buf_wnd
- 
 
 434 
		@@:
Line 369... Line 435...
369 
 
 435 
 
370 
	.end_buf_wnd:
 436 
	.end_buf_wnd:
371 
	pop edx ecx ebx eax
437 
	pop edx ecx ebx eax
Line 517... Line 583...
517 
 
 583 
 
518 
	add ebx,25 shl 16
 584 
	add ebx,25 shl 16
519 
	mov edx,txt_set_1
 585 
	mov edx,txt_set_1
Line -... Line 586...
- 
 
 586 
	int 0x40
- 
 
 587 
 
- 
 
 588 
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
520 
	int 0x40
 589 
	mov eax,7
521 
 
 590 
	mov ebx,[image_data_toolbar]
- 
 
 591 
	mov ecx,(16 shl 16)+16
- 
 
 592 
	mov edx,(62 shl 16)+panel_1_coord_top+2
522 
	add ebx,35 shl 16
 593 
 
Line -... Line 594...
- 
 
 594 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE*16
523 
	mov edx,txt_mov_l
 595 
	int 0x40
- 
 
 596 
 
- 
 
 597 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
- 
 
 598 
	add edx,(25 shl 16)
- 
 
 599 
	int 0x40
- 
 
 600 
 
- 
 
 601 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
- 
 
 602 
	add edx,(25 shl 16)
524 
	int 0x40
 603 
	int 0x40
525 
 
 604 
 
Line 526... Line 605...
526 
	add ebx,25 shl 16
 605 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
527 
	mov edx,txt_mov_r
 606 
	add edx,(25 shl 16)
528 
	int 0x40
 607 
	int 0x40
Line 545... Line 624...
545 
 
 624 
 
546 
	add ebx,25 shl 16
 625 
	add ebx,25 shl 16
547 
	mov edx,33
 626 
	mov edx,33
Line -... Line 627...
- 
 
 627 
	int 0x40
- 
 
 628 
 
- 
 
 629 
	add ebx,25 shl 16
- 
 
 630 
	mov edx,34
548 
	int 0x40
 631 
	int 0x40
549 
 
 632 
 
550 
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
 633 
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
551 
	mov eax,7
 634 
	mov eax,7
552 
	mov ebx,[image_data_toolbar]
 635 
	mov ebx,[image_data_toolbar]
Line 566... Line 649...
566 
 
 649 
 
567 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
 650 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
568 
	add edx,(25 shl 16) ;icon pen 3
 651 
	add edx,(25 shl 16) ;icon pen 3
Line -... Line 652...
- 
 
 652 
	int 0x40
- 
 
 653 
 
- 
 
 654 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
- 
 
 655 
	add edx,(25 shl 16) ;icon add elemet
569 
	int 0x40
 656 
	int 0x40
570 
 
 657 
 
571 
	mcall 12,2
 658 
	mcall 12,2
Line 572... Line 659...
572 
popad
 659 
popad
Line 654... Line 741...
654 
	jne @f
 741 
	jne @f
655 
		call but_set_none
 742 
		call but_set_none
656 
	@@:
 743 
	@@:
657 
	cmp ah,31
 744 
	cmp ah,31
658 
	jne @f
 745 
	jne @f
659 
		call but_set_pen_1
 746 
		stdcall set_pen_mode,1,0 ;ãáâ ­®¢ª  ०¨¬  à¨á®¢ ­¨ï ¯à®¢®¤ 
660 
	@@:
 747 
	@@:
661 
	cmp ah,32
 748 
	cmp ah,32
662 
	jne @f
 749 
	jne @f
663 
		call but_set_pen_2
 750 
		stdcall set_pen_mode,2,1
664 
	@@:
 751 
	@@:
665 
	cmp ah,33
 752 
	cmp ah,33
666 
	jne @f
 753 
	jne @f
- 
 
 754 
		stdcall set_pen_mode,3,2 ;ãáâ ­®¢ª  ०¨¬  áâ¨à ­¨ï ¯à®¢®¤ 
- 
 
 755 
	@@:
667 
		call but_set_pen_3
 756 
	cmp ah,34
- 
 
 757 
	jne @f
- 
 
 758 
		stdcall set_pen_mode,4,3 ;ãáâ ­®¢ª  ०¨¬  ᮧ¤ ­¨ï í«¥¬¥­â®¢
668 
	@@:
 759 
	@@:
669 
	cmp ah,1
 760 
	cmp ah,1
670 
	jne still
 761 
	jne still
671 
.exit:
 762 
.exit:
672 
	stdcall [buf2d_delete],buf_0
 763 
	stdcall [buf2d_delete],buf_0
673 
	stdcall [buf2d_delete],buf_font
 764 
	stdcall [buf2d_delete],buf_font
- 
 
 765 
	stdcall [buf2d_delete],buf_curs
674 
	stdcall mem.Free,[image_data_toolbar]
 766 
	stdcall mem.Free,[image_data_toolbar]
675 
	stdcall pole_delete, pole
 767 
	stdcall pole_delete, pole
676 
	call sign_delete
 768 
	call sign_delete
677 
	stdcall [tl_data_clear], tree1
 769 
	stdcall [tl_data_clear], tree1
- 
 
 770 
	cmp [cursor_pointer],0
- 
 
 771 
	je @f
- 
 
 772 
		mcall 37,6,[cursor_pointer]
- 
 
 773 
	@@:
678 
	mcall -1
 774 
	mcall -1
Line 679... Line -...
679 
 
 - 
 
- 
 
 775 
 
680 
 
 776 
;ᮧ¤ ­¨¥ ­®¢®© á奬ë
681 
align 4
 777 
align 4
- 
 
 778 
proc but_new_file uses eax
- 
 
 779 
	call but_set_none
- 
 
 780 
	stdcall [tl_info_clear],tree1
- 
 
 781 
	stdcall [tl_draw],tree1
- 
 
 782 
	xor eax,eax
- 
 
 783 
	mov [shem_elems],eax
682 
but_new_file:
 784 
	mov [shem_captions],eax
683 
	stdcall pole_clear, pole
 785 
	stdcall pole_clear, pole
684 
	call redraw_pole
 786 
	call redraw_pole
- 
 
 787 
	ret
Line 685... Line 788...
685 
	ret
 788 
endp
686 
 
 789 
 
687 
align 4
 790 
align 4
688 
f_size dd 0 ;à §¬¥à ®âªà뢠¥¬®£® ä ©« 
 791 
f_size dd 0 ;à §¬¥à ®âªà뢠¥¬®£® ä ©« 
Line 1024... Line 1127...
1024 
		stdcall str_cat, txt_info.size,edi
 1127 
		stdcall str_cat, txt_info.size,edi
1025 
		stdcall str_cat, txt_info.size,txt_space ;§ ¢¥àè î騩 ¯à®¡¥«
 1128 
		stdcall str_cat, txt_info.size,txt_space ;§ ¢¥àè î騩 ¯à®¡¥«
Line 1026... Line 1129...
1026 
 
 1129 
 
1027 
		;---
 1130 
		;---
- 
 
 1131 
		call but_center ;業â஢ª  á奬ë á ãç¥â®¬ shem_w ¨ shem_h
1028 
		call but_center ;業â஢ª  á奬ë á ãç¥â®¬ shem_w ¨ shem_h
 1132 
		call but_set_none
1029 
	.end_open_file:
 1133 
	.end_open_file:
1030 
	popad
 1134 
	popad
Line 1031... Line 1135...
1031 
	ret
 1135 
	ret
Line 1458... Line 1562...
1458 
		stdcall str_n_cat, ebx,ecx,edi
 1562 
		stdcall str_n_cat, ebx,ecx,edi
1459 
	.end_f:
 1563 
	.end_f:
1460 
	ret
 1564 
	ret
1461 
endp
 1565 
endp
Line -... Line 1566...
- 
 
 1566 
 
- 
 
 1567 
;¤®¡ ¢«¥­¨¥ ­®¢®£® í«¥¬¥­â  ã¯à ¢«¥­¨ï ­  á奬ã
- 
 
 1568 
;¯à¨ ¤®¡ ¢«¥­¨¨ ¨á¯®«ì§ãîâáï áâ ­¤ àâ­ë¥ ­ áâனª¨
- 
 
 1569 
align 4
- 
 
 1570 
proc shem_element_creat uses eax ebx, coord_x:dword, coord_y:dword
- 
 
 1571 
	mov eax,dword[coord_x]
- 
 
 1572 
	mov dword[txt_buf],eax ;ª®®à¤¨­ â  x
- 
 
 1573 
	mov eax,dword[coord_y]
- 
 
 1574 
	mov dword[txt_buf+4],eax ;ª®®à¤¨­ â  y
- 
 
 1575 
 
- 
 
 1576 
	xor eax,eax
- 
 
 1577 
	mov byte[txt_buf+8],al ;­ ¯à ¢«¥­¨¥
- 
 
 1578 
	;¯®  ¤à¥áã edi ­ §¢ ­¨¥ í«¥¬¥­â 
- 
 
 1579 
	;stdcall el_get_name, edi
- 
 
 1580 
	mov byte[txt_buf+sp_offs_el_type],al ;⨯ í«¥¬¥­â 
- 
 
 1581 
 
- 
 
 1582 
	movzx ebx,al
- 
 
 1583 
	imul ebx,size_el_opt
- 
 
 1584 
	add ebx,el_opt_beg+el_offs_nam
- 
 
 1585 
	stdcall make_list_capts,txt_buf,ebx
- 
 
 1586 
	stdcall [tl_node_add], txt_buf,(el_icon_elems shl 16)+1, tree1
- 
 
 1587 
	stdcall [tl_cur_next], tree1
- 
 
 1588 
	stdcall [tl_draw], tree1
- 
 
 1589 
	ret
- 
 
 1590 
endp
1462 
 
 1591 
 
1463 
;output:
 1592 
;output:
1464 
; eax - ⨯ í«¥¬¥­â 
 1593 
; eax - ⨯ í«¥¬¥­â 
1465 
align 4
 1594 
align 4
1466 
proc el_get_name uses ecx edi esi, str:dword
 1595 
proc el_get_name uses ecx edi esi, str:dword
Line 1840... Line 1969...
1840 
 
 1969 
 
1841 
;ãáâ ­®¢ª  ®¡ëç­®£® ०¨¬ , ¡¥§ à¨á®¢ ­¨ï
 1970 
;ãáâ ­®¢ª  ®¡ëç­®£® ०¨¬ , ¡¥§ à¨á®¢ ­¨ï
1842 
align 4
 1971 
align 4
1843 
proc but_set_none
 1972 
proc but_set_none
- 
 
 1973 
	mov byte[pen_mode],0
- 
 
 1974 
	cmp [cursor_pointer],0
- 
 
 1975 
	je @f
- 
 
 1976 
		push eax ebx ecx
- 
 
 1977 
		mcall 37,6,[cursor_pointer]
- 
 
 1978 
		pop ecx ebx eax
1844 
	mov byte[pen_mode],0
 1979 
	@@:
1845 
	ret
 1980 
	ret
Line 1846... Line -...
1846 
endp
 - 
 
1847 
 
 - 
 
1848 
;ãáâ ­®¢ª  ०¨¬  à¨á®¢ ­¨ï ¯à®¢®¤ 
 - 
 
1849 
align 4
 - 
 
1850 
proc but_set_pen_1
 - 
 
1851 
	mov byte[pen_mode],1
 - 
 
1852 
	ret
 - 
 
1853 
endp
 - 
 
1854 
 
 1981 
endp
- 
 
 1982 
 
1855 
;
 1983 
align 4
1856 
align 4
 1984 
proc set_pen_mode uses eax ebx ecx edx, mode:dword, icon:dword
1857 
proc but_set_pen_2
 1985 
	mov eax,[mode]
- 
 
 1986 
	cmp byte[pen_mode],al
- 
 
 1987 
	je @f
- 
 
 1988 
		mov byte[pen_mode],al
- 
 
 1989 
		;mov edx,((cx shl 8) + cy) shl 16
- 
 
 1990 
		mov edx,2 ;LOAD_INDIRECT
- 
 
 1991 
		mov ecx,[icon]
1858 
	mov byte[pen_mode],2
 1992 
		shl ecx,12 ;㬭®¦ ¥¬ ­  4 ª¡
Line 1859... Line 1993...
1859 
	ret
 1993 
		add ecx,[buf_curs.data]
1860 
endp
 1994 
		mcall 37,4
1861 
 
 1995 
 
1862 
;ãáâ ­®¢ª  ०¨¬  áâ¨à ­¨ï ¯à®¢®¤ 
 1996 
		cmp eax,0
- 
 
 1997 
		je @f
1863 
align 4
 1998 
			mov [cursor_pointer],eax
1864 
proc but_set_pen_3
 1999 
			mcall 37,5,[cursor_pointer]
Line 1865... Line 2000...
1865 
	mov byte[pen_mode],3
 2000 
	@@:
1866 
	ret
 2001 
	ret
Line 1933... Line 2068...
1933 
	dd 96 ;+8 w
 2068 
	dd 96 ;+8 w
1934 
	dd 144 ;+12 h
 2069 
	dd 144 ;+12 h
1935 
	dd 0 ;+16 color
 2070 
	dd 0 ;+16 color
1936 
	db 24 ;+20 bit in pixel
 2071 
	db 24 ;+20 bit in pixel
Line -... Line 2072...
- 
 
 2072 
 
- 
 
 2073 
align 4
- 
 
 2074 
buf_curs: ;¡ãä¥à á ªãàá®à ¬¨
- 
 
 2075 
.data: dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
- 
 
 2076 
	dw 0 ;+4 left
- 
 
 2077 
	dw 0 ;+6 top
- 
 
 2078 
	dd 32 ;+8 w
- 
 
 2079 
	dd 32*cursors_count ;+12 h
- 
 
 2080 
	dd 0 ;+16 color
- 
 
 2081 
	db 24 ;+20 bit in pixel
- 
 
 2082 
 
- 
 
 2083 
align 4
- 
 
 2084 
buf_curs_8: ;¡ãä¥à á ªãàá®à ¬¨
- 
 
 2085 
.data: dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
- 
 
 2086 
	dw 0 ;+4 left
- 
 
 2087 
	dw 0 ;+6 top
- 
 
 2088 
	dd 32 ;+8 w
- 
 
 2089 
	dd 32*cursors_count ;+12 h
- 
 
 2090 
	dd 0 ;+16 color
- 
 
 2091 
	db 24 ;+20 bit in pixel
- 
 
 2092 
 
- 
 
 2093 
cursor_pointer dd 0 ;㪠§ â¥«ì ­  ¤ ­­ë¥ ¤«ï ªãàá®à 
1937 
 
 2094 
 
1938 
el_focus dd 0
 2095 
el_focus dd 0
1939 
tree1 tree_list 32,points_max+2, tl_key_no_edit, 16,16,\
 2096 
tree1 tree_list 32,points_max+2, tl_key_no_edit, 16,16,\
1940 
    0x8080ff,0x0000ff,0xffffff, 5,panel_3_coord_top,145,250, 0,capt_offs,0,\
 2097 
    0x8080ff,0x0000ff,0xffffff, 5,panel_3_coord_top,145,250, 0,capt_offs,0,\
1941 
    el_focus, wScrObj,0
 2098 
    el_focus, wScrObj,0