Subversion Repositories Kolibri OS

;

; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨

; à ¡®âë ®ª­  á ª®®à¤¨­ â ¬¨

;

prop_edits_top equ 25

prop_edits_height equ 18

prop_wnd_width equ 350 ;è¨à¨­  ®ª­  ᮠ᢮©á⢠¬¨ ®¡ê¥ªâ 

SIZE_ONE_FLOAT equ 14

MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)

prop_wnd_run db 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ᮠ᢮©á⢠¬¨ ®¤­®¢à¥¬¥­­®

txt_space:

	db SIZE_ONE_FLOAT dup(' ')

.end:

	db 0

obj_point: ;¤®¡ ¢«ï¥¬ë© ®¡ê¥ªâ

	dd 0   ;㪠§ â¥«ì

.text:

	rb MAX_OBJECT_SIZE

;¤ ­®¥ ®ª­® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï ä㭪樥© but_wnd_coords

align 4

prop_start:

pushad

	mcall 40,0x27 ;¬ áª  ®¦¨¤ ¥¬ëå ᮡë⨩

	inc byte[prop_wnd_run]

	stdcall [tl_node_get_data],tree1

	pop ebx

	xor edx,edx

	cmp ebx,0

	je @f

		mov ebx,dword[ebx] ;¯®«ãç ¥¬ §­ ç¥­¨¥ ᤢ¨£  ¢ë¡à ­­®£® ¡«®ª 

		add ebx,dword[open_file_lif]

		mov dx,word[ebx+6] ;ª®««¨ç¥á⢮ â®ç¥ª

	@@:

	;­ áâனª  ᯨ᪠ ®¡ê¥ªâ®¢

	mov dword[tree3.info_max_count],2

	add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® 㧫®¢, à ¢­®¥ ª®««¨ç¥áâ¢ã â®ç¥ª (+2 ­  ­ ç «® ¨ ª®­¥æ ᯨ᪠)

	stdcall dword[tl_data_init], tree3

	mov eax,dword[icon_tl_sys]

	mov dword[tree3.data_img_sys],eax

	mov eax,dword[icon_toolbar]

	mov dword[tree3.data_img],eax

	cmp ebx,0

	je .no_object

		cmp word[ebx],CHUNK_VERTLIST

		jne .no_object ;¥á«¨ ­¥ â®â ®¡ê¥ªâ

		add ebx,8

		finit

		.new_point:

			mov dword[obj_point],ebx

			mov dword[obj_point.text],0

			cld

			mov ecx,3

			@@:

				fld dword[ebx]

				fstp qword[Data_Double]

				call DoubleFloat_to_String

				add ebx,4

				stdcall str_len, Data_String

				mov esi,txt_space

				add esi,eax

				cmp esi,txt_space.end

				jl .normal_size

					mov esi,txt_space.end-1 ;¬¨­¨¬ã¬ 1 ¯à®¡¥« ­ã¦­® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ­¥ ᫨¯ «¨áì

				.normal_size:

				stdcall str_cat, obj_point.text,esi

				stdcall str_cat, obj_point.text,Data_String

				loop @b

			stdcall dword[tl_node_add], obj_point, (ID_ICON_DATA shl 16), tree3

			stdcall dword[tl_cur_next], tree3

			dec edx

			cmp edx,0

			jg .new_point

			stdcall dword[tl_cur_beg], tree3

	.no_object:

popad

align 4

prop_red_win:

pushad

	mcall 12,1

	xor eax,eax

	mov edi,txt_4110 ;caption

	mov bx,word[procinfo.box.left]

	add bx,word[buf_0.l]

	shl ebx,16

	mov bx,prop_wnd_width

	mov cx,word[procinfo.box.top]

	shl ecx,16

	mov cx,250

	mov edx,0xffffd0

	or  edx,0x33000000

	int 0x40

	mov dword[w_scr_t3.all_redraw],1

	stdcall [scrollbar_ver_draw],dword w_scr_t3

	stdcall [tl_draw], tree3

	mcall 12,2

popad

;­¥ ®âà뢠âì íâã äã­ªæ¨î ®â ¯à¥¤ë¤ã饩

align 4

prop_still:

	pushad

	mcall 10

	cmp al,1 ;¨§¬. ¯®«®¦¥­¨¥ ®ª­ 

	jz prop_red_win

	cmp al,2

	jne @f

		call prop_key

	@@:

	cmp al,3

	jz prop_button

	cmp al,6

	jne @f

		call prop_mouse

	@@:

	popad

	jmp prop_still

align 4

prop_key:

push eax

	mcall 2

	stdcall [tl_key], tree3

pop eax

	ret

align 4

prop_mouse:

	;push ecx edi

	stdcall [tl_mouse], tree3

	;pop edi ecx

	ret

align 4

prop_button:

	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨

	cmp ah,10

	jne @f

		;;;call but_element_change

		mov ah,1 ;¤«ï § ªàëâ¨ï ®ª­ 

	@@:

	cmp ah,1

	jne prop_still

.exit:

	mov dword[tree3.data_img],0 ;ç¨á⨬ 㪠§ â¥«¨ ­  ¨ª®­ª¨ çâ®-¡ë ¨å ­¥ 㤠«¨« ¤¥áâàãªâ®à

	mov dword[tree3.data_img_sys],0 ;â. ª. ®­¨ ¥é¥ ¨á¯®«ì§ãîâìáï ¢ ¤à㣨å í«¥¬¥­â å

	stdcall dword[tl_data_clear], tree3

	mov byte[prop_wnd_run],0 ;®¡­ã«ï¥¬ áç¥â稪 ®ª®­

	mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë

;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ì᪮¬ ä ©«¥

tree3 tree_list MAX_OBJECT_SIZE,3,\

	tl_key_no_edit+tl_list_box_mode,\

	16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,30,300,150, 16, 4,0, el_focus,\

	w_scr_t3,0

align 4

w_scr_t3:

.size_x     dw 16 ;+0

rb 2+2+2

.btn_high   dd 15 ;+8

.type	    dd 1  ;+12

.max_area   dd 100  ;+16

rb 4+4

.bckg_col   dd 0xeeeeee ;+28

.frnt_col   dd 0xbbddff ;+32

.line_col   dd 0  ;+36

rb 4+2+2

.run_x:

rb 2+2+2+2+4+4+4+4+4+4

.all_redraw dd 0 ;+80

.ar_offset  dd 1 ;+84