kolibrios-fun/programs/system/panel/trunk/ctx_menu.asm

;------------------------------------------------------------------------------	
align 4
context_menu_start:
	mcall	40,00100111b
	mov	ecx, [ctx_menu_PID]
	mcall	18,21
	mov	ecx, eax
	mcall	18,3
	call	draw_ctx_menu
;------------------------------------------------------------------------------	
align 4
ctx_menu_still:
	mcall	10
	cmp	eax, 2
	jz	ctx_menu_key

	cmp	eax, 3
	jz	ctx_menu_button

	cmp	eax, 6
	jz	ctx_menu_mouse

	call	draw_ctx_menu
	jmp	ctx_menu_still
;------------------------------------------------------------------------------	
align 4
ctx_menu_mouse:
	mcall	37,2
	xchg	eax,ecx	; <20>᫨ <20><> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD><E9A0A5><EFBFBD>
			; <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 横<> <20><>⮪<EFBFBD>
	jecxz	ctx_menu_still

	mcall	37,1

	cmp	ax, 0		; <20><><EFBFBD> <20>஢<EFBFBD><E0AEA2>塞 <20>ந<EFBFBD><E0AEA8><EFBFBD><EFBFBD><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD> <20><> <20>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD>⥪<EFBFBD>⭮<EFBFBD><E2ADAE>
	jb	ctx_menu_exit	; <20><><EFBFBD><EFBFBD>, <20>᫨ <20><> <20>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0> <20><><EFBFBD>⥪<EFBFBD>⭮<EFBFBD> <20><><EFBFBD><EFBFBD>

	cmp	ax, 60           ; 41
	ja	ctx_menu_exit

	shr	eax, 16
	cmp	ax, 0
	jb	ctx_menu_exit

	cmp	ax, 133
	ja	ctx_menu_exit

	jmp	ctx_menu_still
;------------------------------------------------------------------------------	
align 4
ctx_menu_key:
	mcall	2
;--------------------------------------
align 4
ctx_menu_button:
	mcall	17
	cmp	ah, 1
	jne	@f

;	mov	eax, 18
;	mov	ebx, 2
;	mov	ecx, [n_slot]
;	jmp	.lllxxx
	mcall	18,3,[n_slot]
	mcall	72,1,3,1
	mcall	68,1
	jmp	ctx_menu_exit
;--------------------------------------
align 4
@@:
	cmp	ah, 2
	jne	ctx_menu_still
	mov	eax, 18
	mov	ebx, 22
	mov	edx, [n_slot]
	xor	ecx, ecx

	test	[procinfo_for_detect+70],byte 2
	setnz	cl
	add	cl, cl
;--------------------------------------
align 4
.lllxxx:
	mcall
	jmp	ctx_menu_exit
;--------------------------------------
align 4
ctx_menu_exit:
	or	eax,-1
	mcall
;------------------------------------------------------------------------------	
align 4
;func  draw_ctx_menu
draw_ctx_menu:
	mcall	12, 1

	xor	eax, eax
	movzx	ebx, [x_coord]
	shl	ebx, 16
	add	ebx, 133
	movzx	ecx, [y_coord]
	sub	ecx, 60         ; 41
	shl	ecx, 16
	add	ecx, 60         ; 41
	mov	esi, [system_colours + 4]     ; sc.grab
	or	esi, 0x81000000
	mcall	,,,[system_colours + 20],,[system_colours]

	mcall	8,<0,133>,<22,17>,0x40000001

	inc	edx
	mcall	,,<40,17>
	
	mov	ecx, [system_colours + 16]    ; sc.grab_text
	or	ecx, 0x10000000
	mcall	4,<36,7>,,ctx_menu_title,ctx_menu_title_end - ctx_menu_title

	add	ebx, 1 * 65536
	mcall

	mcall	,<4,28>,0x80000000,ctx_menu_text

	mov	edx, ctx_menu_text2

	test	byte [procinfo_for_detect+70], 2
	jz	@f
	mov	edx, ctx_menu_text3
;--------------------------------------
align 4
@@:
	add	bx, 18
	mcall

	mcall	12,2
	ret
;endf
;------------------------------------------------------------------------------	
align 4
x_coord rw	1
y_coord rw	1
n_slot	rd	1
ctx_menu_PID	rd	1
;------------------------------------------------------------------------------	
lsz ctx_menu_text,\
  ru, <"X <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>    Alt + F4",0>,\
  en, <"X Close      Alt + F4",0>,\
  et, <"X Sulge      Alt + F4",0>,\
;------------------------------------------------------------------------------	
lsz ctx_menu_text2,\
  ru, <25," <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>           ",0>,\
  en, <25," Minimize           ",0>,\
  et, <25," Minimeeri          ",0>,\
;------------------------------------------------------------------------------	
lsz ctx_menu_text3,\
  ru, <24," <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD>       ",0>,\
  en, <24," Restore            ",0>,\
  et, <24," Taasta             ",0>
;------------------------------------------------------------------------------	
ctx_menu_title:
	db 'KolibriOS'
ctx_menu_title_end:
;------------------------------------------------------------------------------