Subversion Repositories Kolibri OS

Rev

Rev 7786 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7786 Rev 9472
Line 1... Line -...
1 
BT_DEL     equ 0x80000000
 - 
 
2 
BT_HIDE    equ 0x40000000
 - 
 
3 
BT_NOFRAME equ 0x20000000
 - 
 
4 
 
 - 
 
5 
macro DefineButton  x, y, w, h, id, background_color
 - 
 
6 
{
 - 
 
7 
	mcall 8, (x) shl 16 + (w), (y) shl 16 + (h), id, background_color
 - 
 
8 
}
 - 
 
9 
 
 - 
 
10 
macro DrawBar  x, y, width, height, color
1 
macro DrawBar  x, y, width, height, color
11 
{
 2 
{
12 
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
 3 
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
13 
}
 4 
}
Line 34... Line 25...
34 
	DrawBar x, y+h-boder, w, boder
 25 
	DrawBar x, y+h-boder, w, boder
35 
	DrawBar x, y+boder, boder, h-boder-boder
 26 
	DrawBar x, y+boder, boder, h-boder-boder
36 
	DrawBar x+w-boder, y+boder, boder, h-boder-boder
 27 
	DrawBar x+w-boder, y+boder, boder, h-boder-boder
37 
}
 28 
}
Line 38... Line -...
38 
 
 - 
 
39 
macro WriteText  x, y, fontType, color, text
 - 
 
40 
{
 - 
 
41 
	mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text
 - 
 
42 
}
 - 
 
43 
 
 - 
 
44 
macro WriteTextBold  x, y, fontType, color, text
 - 
 
45 
{
 - 
 
46 
	mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text
 - 
 
47 
	add ebx,1 shl 16
 - 
 
48 
	mcall
 -