Subversion Repositories Kolibri OS

;------------------------------------------------------------------------------

align 4

START_mouse_thread:

	mcall	40,100000b	; only Event 6 - Mouse

;------------------------------------------------------------------------------

align 4

still_mouse:

	mcall	10

align 4

mouse:

	mcall	37,2

	cmp	eax,1	; åñëè íå ëåâàÿ, âîçâðàò

	jne	still_mouse

; êîîðäèíàòû êóðñîðà

	xor	ebx,ebx

	mcall	37

	mov	ebx,eax		; eax = cursor_x

	shr	eax,16		; ebx = cursor_y

	and	ebx,0xffff

	mov	[curx1],eax	; curx1 = cursor_x

	mov	[cury1],ebx	; cury1 = cursor_y

; êîìó ïðèíàäëåæèò òî÷êà?

	mcall	34,[curx1],[cury1]

	cmp	al,1 ; 1 - ÿäðî

	jne	still_mouse

; check for icon by click down

	call	check_icons_position

	mov	eax,[click_pos]

	test	eax,eax

	jz	still_mouse

	mov	eax,[current_X_mouse_thread]

	mov	[curx_restore],eax

	mov	eax,[current_Y_mouse_thread]

	mov	[cury_restore],eax

	call	draw_select

;--------------------------------------

align 4

@@:		; ïîäîæä¸ì, ïîêà ïîëüçîâàòåëü íå îòïóñòèë ïðàâóþ êíîïêó ìûøè

	mcall	37,2    ;   íàæàòû ëè êíîïêè ìûøè?

	test	eax,1   ; åñëè îòïóñòèë

	jz	@f	;   èä¸ì â íà÷àëî ãëàâíîãî öèêëà

	mcall	68,1	; èíà÷å ïåðåêëþ÷èìñÿ íà ñëåäóþùèé ïîòîê ñèñòåìû è êîãäà

	jmp	@b	; âûïîëíåíèå âåðíåòñÿ ýòîìó ïîòîêó, ïðîâåðèì ìûøü îïÿòü

;--------------------------------------

align 4

@@:

; êîîðäèíàòû êóðñîðà

	xor	ebx,ebx

	mcall	37

	mov	ebx,eax		; eax = cursor_x

	shr	eax,16		; ebx = cursor_y

	and	ebx,0xffff

	mov	[curx2],eax	; curx1 = cursor_x

	mov	[cury2],ebx	; cury1 = cursor_y

; êîìó ïðèíàäëåæèò òî÷êà?

	mcall	34,[curx2],[cury2]

	cmp	al,1 ; 1 - ÿäðî

	je	@f

	call	restore_background

	jmp	still_mouse

;--------------------------------------

align 4

@@:

; check for icon by click down

	call	check_icons_position

	mov	eax,[click_pos]

	test	eax,eax

	jz	still_mouse

	push	eax

	mov	eax,[curx2]

	mov	[curx1],eax

	mov	eax,[cury2]

	mov	[cury1],eax

; check for icon by click up

	call	check_icons_position

	pop	eax

	call	restore_background

	mov	ebx,[click_pos]

	test	ebx,ebx

	jz	still_mouse

	cmp	eax,ebx

	jne	still_mouse

;--------------------------------------

;start_appl:

	mov	esi,[adress_of_icon_data_2]

	mov	ebx,1

	mov	edi,finfo.path

	call	fill_paths

	inc	ebx

	mov	edi,param_str

	mov	dword[finfo_start+8],edi

	call	fill_paths

	cmp	byte[edi],0

	jne	.no0

	and	dword[finfo_start+8],0

;--------------------------------------

align 4

.no0:

	mov	ebx,finfo_start

	mcall	70

	jmp	still_mouse

;------------------------------------------------------------------------------

align 4

fill_paths:

	push	esi edi

	movzx	ecx,byte[str_lens+ebx]

	add	esi,[positions+ebx*4]

	push	esi

	add	esi,ecx

;--------------------------------------

align 4

.l1:

	dec	esi

	cmp	byte[esi],' '

	jnz	.found

	loop	.l1

	pop	esi

	jmp	.noms

;--------------------------------------

align 4

.found:

	lea	ecx,[esi+1]

	pop	esi

	sub	ecx,esi

	rep	movsb

;--------------------------------------

align 4

.noms:

	and	byte[edi],0

	pop	edi esi

	ret

;------------------------------------------------------------------------------

align 4

check_icons_position:

	mov	ecx,[icons]

	mov	ebx,icon_data

;--------------------------------------

align 4

.loop:

	push	ebx ecx

	mov	[adress_of_icon_data_2],ebx

	mov	eax,[ebx]

	call	calc_icon_pos

	mov	[current_X_mouse_thread],ebx

	mov	[current_Y_mouse_thread],eax

	mov	eax,[curx1]

	mov	ebx,[current_X_mouse_thread]

	cmp	eax,ebx

	jb	.next

	add	ebx,52

	cmp	eax,ebx

	ja	.next

	mov	eax,[cury1]

	mov	ebx,[current_Y_mouse_thread]

	cmp	eax,ebx

	jb	.next

	add	ebx,52

	cmp	eax,ebx

	ja	.next

	pop	ecx ebx

	mov	eax,[adress_of_icon_data_2]

	mov	[click_pos],eax

	ret

;--------------------------------------

align 4

.next:

	pop	ecx ebx

	add	ebx,REC_SIZE

	dec	ecx

	jnz	.loop

; all icons survived!

	xor	eax,eax

	mov	[click_pos],eax

	ret

;------------------------------------------------------------------------------

align 4

draw_select:

	mcall	68,12,52*52*4+8

	mov	[draw_area_2],eax

	mov	ebx,52

	mov	[eax],ebx

	mov	[eax+4],ebx

;--------------------------------------

; draw black square

	mov	eax,-1

	mov	edi,[draw_area_2]

	add	edi,8

	cld

	mov	ecx,52*52

	rep	stosd

;--------------------------------------

; draw white square

	mov	eax,0xff000000

	mov	edi,[draw_area_2]

	add	edi,8+(4*1)+(52*4*1)

	mov	ebx,50

	cld

;--------------------------------------

align 4

@@:

	mov	ecx,50

	rep	stosd

	add	edi,2*4

	dec	ebx

	jnz	@b

;--------------------------------------

; draw black square

	xor	eax,eax

	mov	edi,[draw_area_2]

	add	edi,8+(4*2)+(52*4*2)

	mov	ebx,48

	cld

;--------------------------------------

align 4

@@:

	mov	ecx,48

	rep	stosd

	add	edi,4*4

	dec	ebx

	jnz	@b

;--------------------------------------

	mov	edx,[current_X_mouse_thread]

	shl	edx,16

	add	edx,[current_Y_mouse_thread]

	mov	ebx,[draw_area_2]

	add	ebx,8

	mcall	25,,<52,52>

	mcall	68,13,[draw_area_2]

	ret

;------------------------------------------------------------------------------

align 4

restore_background:

	pusha

	mov	eax,[curx_restore]

	mov	ecx,eax

	shl	ecx,16

	add	ecx,eax

	add	ecx,52

	mov	eax,[cury_restore]

	mov	edx,eax

	shl	edx,16

	add	edx,eax

	add	edx,52

	mcall	15,9

	popa

	ret

;------------------------------------------------------------------------------