kolibrios-fun/programs/media/scrshoot/scrwin.inc
Kirill Lipatov (Leency) 0c92eb0b2e scrshoot: less options
git-svn-id: svn://kolibrios.org@7832 a494cfbc-eb01-0410-851d-a64ba20cac60
2020-04-28 14:50:37 +00:00

45 lines
1.1 KiB
HTML
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;====================================================================
;===== ŽŠ<C5BD>Ž <20><>…„<E280A6><E2809E>ŽŒŽ<C5BD>€ ===========================================
;====================================================================
scr_window:
.start:
.red:
call .draw_window
.still:
wait_event .red, .close
jmp .still
.draw_window:
start_draw_window
xor eax,eax
movsx ebx,word [scr.width]
movsx ecx,word [scr.height]
;xor edx,edx
mov edx,0x01000000
xor esi,esi
xor edi,edi
mcall
mov eax,7
mov ebx,dword [scr_buf.ptr]
mov ecx,dword [scr_buf.size]
xor edx,edx
mcall
mov eax,13
mov ebx,19*65536+231
mov ecx,19*65536+10
mov edx,0x00FF00
mcall
mov edi,.label
call draw_label
stop_draw_window
ret
.close:
mcall 60,2,[app.pid],messages.act_window,2
jmp close
.label label 20,20,0x80000000,keyforexit