forked from KolibriOS/kolibrios
colorref: small gui fixes
git-svn-id: svn://kolibrios.org@2704 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
65a65712e4
commit
1930ba2b36
@ -142,9 +142,7 @@ k2: call help ; show help screen
|
|||||||
|
|
||||||
draw_window:
|
draw_window:
|
||||||
|
|
||||||
mov eax,12 ; tell os about windowdraw
|
mcall 12,1
|
||||||
mov ebx,1 ; 1, start of draw
|
|
||||||
mcall
|
|
||||||
|
|
||||||
mov eax,0 ; DRAW WINDOW
|
mov eax,0 ; DRAW WINDOW
|
||||||
mov ebx,1*65536+200 ; [x start] *65536 + [x size]
|
mov ebx,1*65536+200 ; [x start] *65536 + [x size]
|
||||||
@ -155,9 +153,7 @@ draw_window:
|
|||||||
|
|
||||||
call palette ; display color palette
|
call palette ; display color palette
|
||||||
|
|
||||||
mov eax,12 ; tell os about windowdraw
|
mcall 12, 2
|
||||||
mov ebx,2 ; 2, end of draw
|
|
||||||
mcall
|
|
||||||
|
|
||||||
ret
|
ret
|
||||||
|
|
||||||
@ -278,8 +274,14 @@ clear:
|
|||||||
ret
|
ret
|
||||||
|
|
||||||
help:
|
help:
|
||||||
mov ebx,4*65536+192 ; x and width
|
mcall 48,4
|
||||||
mov ecx,20*65536+216 ; y and depth
|
mov ecx, eax
|
||||||
|
shl ecx, 16
|
||||||
|
add ecx, 236
|
||||||
|
sub ecx, eax
|
||||||
|
|
||||||
|
|
||||||
|
mov ebx,5*65536+191 ; x and width
|
||||||
mov edx,0x465e8f ; dark denim color
|
mov edx,0x465e8f ; dark denim color
|
||||||
mov eax,13 ; write text funx
|
mov eax,13 ; write text funx
|
||||||
mcall
|
mcall
|
||||||
@ -305,12 +307,8 @@ h1: push ecx
|
|||||||
jne h2 ; nope
|
jne h2 ; nope
|
||||||
mov eax,2 ; yep, burn it
|
mov eax,2 ; yep, burn it
|
||||||
mcall
|
mcall
|
||||||
h2: mov ebx,4*65536+192 ; y and width
|
h2:
|
||||||
mov ecx,20*65536+216 ; x and depth
|
call draw_window
|
||||||
mov edx,0x00000 ; restore black bkg
|
|
||||||
mov eax,13 ; draw bar funx
|
|
||||||
mcall
|
|
||||||
call palette ; redraw color palette
|
|
||||||
|
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user