Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 4050 → Rev 4051

/kernel/trunk/docs/sysfuncr.txt
34,7 → 34,7
вызов функции с такими Y игнорируется
* RR, GG, BB = соответственно красная, зеленая, синяя
составляющие цвета рабочей области окна
(игнорируется для стиля Y=2)
(игнорируется для стиля Y=1)
* X = DCBA (биты)
* A = 1 - у окна есть заголовок; для стилей Y=3,4 адрес строки
заголовка задаётся в edi, для прочих стилей
47,7 → 47,7
игнорируются для стилей Y=1,3:
* esi = 0xXYRRGGBB - цвет заголовка
* RR, GG, BB определяют сам цвет
* Y=0 - обычное окно, Y=1 - неперемещаемое окно
* Y=0 - обычное окно, Y=1 - неперемещаемое окно (работает для всех стилей окон)
* X определяет градиент заголовка: X=0 - нет градиента,
X=8 - обычный градиент,
для окон типа II X=4 - негативный градиент
/kernel/trunk/docs/sysfuncs.txt
33,7 → 33,7
* other possible values (from 5 up to 15) are reserved,
function call with such Y is ignored
* RR, GG, BB = accordingly red, green, blue components of a color
of the working area of the window (are ignored for style Y=2)
of the working area of the window (are ignored for style Y=1)
* X = DCBA (bits)
* A = 1 - window has caption; for styles Y=3,4 caption string
must be passed in edi, for other styles use
46,7 → 46,7
of a type I and II, and ignored for styles Y=1,3:
* esi = 0xXYRRGGBB - color of the header
* RR, GG, BB define color
* Y=0 - usual window, Y=1 - unmovable window
* Y=0 - usual window, Y=1 - unmovable window (works for all window styles)
* X defines a gradient of header: X=0 - no gradient,
X=8 - usual gradient,
for windows of a type II X=4 - negative gradient
/programs/system/end/light/end.asm
4,13 → 4,18
;
include "lang.inc"
include "..\..\..\macros.inc"
; <diamond> note that 'mov al,xx' is shorter than 'mov eax,xx'
; and if we know that high 24 bits of eax are zero, we can use 1st form
; the same about ebx,ecx,edx
 
meos_app_start
code
draw_window:
mcall 12,1
mov al,12
mcall ,1
 
mcall 14 ;eax=14 - get screen max x & max y
mov al,14
mcall ;eax=14 - get screen max x & max y
movzx ecx,ax
shr eax,17
shl eax,16
17,37 → 22,44
lea ebx,[eax-110 shl 16+222]
shr ecx,1
shl ecx,16
lea ecx,[ecx-70 shl 16+137]
lea ecx,[ecx-65 shl 16+137]
 
mcall 0, , ,0x01ffffff ;define and draw window
xor eax,eax
mcall , , ,0x019098b0,0x01000000 ;define and draw window
 
mcall 13, 223 , 138 ,0x9098b0
mov al,13
mcall ,<0,223> ,<0,275>
mcall ,<1,221>,<1,136>,0xffffff
mcall ,<2,220>,<2,135>,0xe4dfe1
mcall ,<16,189>,<97,23>,0x9098b0
 
mcall 8,<16,90> ,<20,27>,4,0x990022 ;eax=8 - draw buttons
mov al,8
mcall ,<16,90> ,<20,27>,4,0x990022 ;eax=8 - draw buttons
mcall ,<113,90>, ,2,0xaa7700
mcall , ,<54,27>,1,0x777777
mcall ,<16,90> , ,3,0x007700
mcall ,<17,186>,<98,20>,5,0xe4dfe1
 
mcall 4,<28,105>,0x80000000,label4 ;eax=4 - write text
mov al,4
mcall ,<28,105>,0x80000000,label4 ;eax=4 - write text
mcall ,<35,24> ,0x80ffffff,label2
mcall ,<34,58> , ,label3
mcall ,<47,37> , ,label5
mcall ,<43,71> , ,label6
 
mcall 12,2
mov al,12
mcall ,2
 
still:
mcall 10 ;wait here for event
mov al,10
mcall ;wait here for event
dec eax
jz draw_window
dec eax
jnz button
 
mcall 2 ;eax=2 - get key code
mov al,2
mcall ;eax=2 - get key code
mov al,ah
cmp al,13
jz restart
62,7 → 74,8
jmp still
 
button:
mcall 17 ;eax=17 - get pressed button id
mov al,17
mcall ;eax=17 - get pressed button id
xchg al,ah
dec eax
jz close_1
72,6 → 85,8
jz restart
dec eax
jnz run_rdsave
; dec eax ; we have only one button left, this is close button
; jnz still
 
power_off:
push 2
83,13 → 98,16
push 4
mcall_and_close:
pop ecx
mcall 18,9
mov al,18
mcall ,9
 
close_1:
mcall -1
or eax,-1
mcall
 
run_rdsave:
mcall 70,rdsave
mov al,70
mcall ,rdsave
jmp still
 
data