Subversion Repositories Kolibri OS

Rev

Rev 7786 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7786 Rev 9472
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 
}
14 
 
 5 
 
15 
macro DrawRectangle  x, y, w, h, color
6 
macro DrawRectangle  x, y, w, h, color
16 
{
 7 
{
17 
	DrawBar x,y,w,1,color
 8 
	DrawBar x,y,w,1,color
18 
	DrawBar x,y+h,w,1
 9 
	DrawBar x,y+h,w,1
19 
	DrawBar x,y,1,h
 10 
	DrawBar x,y,1,h
20 
	DrawBar x+w,y,1,h+1
 11 
	DrawBar x+w,y,1,h+1
21 
}
 12 
}
22 
 
 13 
 
23 
macro DrawRectangle3D  x, y, w, h, color1, color2
 14 
macro DrawRectangle3D  x, y, w, h, color1, color2
24 
{
 15 
{
25 
	DrawBar x,y,w,1,color1
 16 
	DrawBar x,y,w,1,color1
26 
	DrawBar x,y,1,h
 17 
	DrawBar x,y,1,h
27 
	DrawBar x,y+h,w,1,color2
 18 
	DrawBar x,y+h,w,1,color2
28 
	DrawBar x+w,y,1,h+1
 19 
	DrawBar x+w,y,1,h+1
29 
}
 20 
}
30 
 
 21 
 
31 
macro DrawWideRectangle  x, y, w, h, boder, color
 22 
macro DrawWideRectangle  x, y, w, h, boder, color
32 
{
 23 
{
33 
	DrawBar x, y, w, boder, color
 24 
	DrawBar x, y, w, boder, color
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 
}
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
 - 
 
49 
}
 -