forked from KolibriOS/kolibrios
7f7718f532
Fixed mario2 game : delete using sysfn 6 and added constants Update macro.inc : Added new fields in process_information git-svn-id: svn://kolibrios.org@9971 a494cfbc-eb01-0410-851d-a64ba20cac60
164 lines
4.7 KiB
NASM
164 lines
4.7 KiB
NASM
;------------------------------------------------------------------------------
|
|
align 4
|
|
context_menu_start:
|
|
mcall 40, EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE ;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, EV_KEY
|
|
jz ctx_menu_key
|
|
|
|
cmp eax, EV_BUTTON
|
|
jz ctx_menu_button
|
|
|
|
cmp eax, EV_MOUSE
|
|
jz ctx_menu_mouse
|
|
|
|
call draw_ctx_menu
|
|
jmp ctx_menu_still
|
|
;------------------------------------------------------------------------------
|
|
align 4
|
|
ctx_menu_mouse:
|
|
mcall 37,2
|
|
xchg eax,ecx ; …᫨ ¥ ®¤ ¨§ ª®¯®ª ¥ ¦ â ¢®§¢à é ¥¬áï
|
|
; ¢ £« ¢ë© 横« ¯®â®ª
|
|
jecxz ctx_menu_still
|
|
|
|
mcall 37,1
|
|
|
|
cmp ax, 0 ; ’ã⠯஢¥à塞 ¯à®¨§®èñ«-«¨ ª«¨ª § ¯à¥¤¥« ¬¨ ®ª ª®â¥ªá⮣®
|
|
jb ctx_menu_exit ; ¬¥î, ¥á«¨ § ¯à¥¤¥« ¬¨ â® § ªàë¢ ¥¬ ª®â¥ªá⮥ ¬¥î
|
|
|
|
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.wnd_state],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.grab] ; sc.grab
|
|
or esi, 0x81000000
|
|
mcall ,,,[system_colours.work],,[system_colours.work_dark]
|
|
|
|
mcall 8,<0,133>,<22,17>,0x40000001
|
|
|
|
inc edx
|
|
mcall ,,<40,17>
|
|
|
|
mov ecx, [system_colours.grab_text] ; sc.grab_text
|
|
or ecx, 0x10000000
|
|
mcall 4,<32,4>,,ctx_menu_title,ctx_menu_title_end - ctx_menu_title
|
|
|
|
add ebx, 1 * 65536
|
|
mcall
|
|
|
|
mov ecx, [system_colours.work_text] ; sc.work_text
|
|
or ecx, 0x80000000
|
|
mcall ,<4,28>,,ctx_menu_text
|
|
|
|
mov edx, ctx_menu_text2
|
|
|
|
test byte [procinfo_for_detect.wnd_state], 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 ‡ ªàëâì Alt + F4",0>,\
|
|
en, <"X Close Alt + F4",0>,\
|
|
et, <"X Sulge Alt + F4",0>,\
|
|
;------------------------------------------------------------------------------
|
|
lsz ctx_menu_text2,\
|
|
ru, <25," ‘¢¥àãâì ",0>,\
|
|
en, <25," Minimize ",0>,\
|
|
et, <25," Minimeeri ",0>,\
|
|
;------------------------------------------------------------------------------
|
|
lsz ctx_menu_text3,\
|
|
ru, <24," ‚®ááâ ®¢¨âì ",0>,\
|
|
en, <24," Restore ",0>,\
|
|
et, <24," Taasta ",0>
|
|
;------------------------------------------------------------------------------
|
|
ctx_menu_title:
|
|
db 'KolibriOS'
|
|
ctx_menu_title_end:
|
|
;------------------------------------------------------------------------------ |