Subversion Repositories Kolibri OS

Rev

Rev 6215 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6215 Rev 6642
1
macro DrawBar  x, y, width, height, color 
1
macro DrawBar  x, y, width, height, color 
2
{
2
{
3
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
3
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
4
}
4
}
5
 
5
 
6
macro DrawRectangle  x, y, w, h, color 
6
macro DrawRectangle  x, y, w, h, color 
7
{
7
{
8
	DrawBar x,y,w,1,color
8
	DrawBar x,y,w,1,color
9
	DrawBar x,y+h,w,1
9
	DrawBar x,y+h,w,1
10
	DrawBar x,y,1,h
10
	DrawBar x,y,1,h
11
	DrawBar x+w,y,1,h+1
11
	DrawBar x+w,y,1,h+1
12
}
12
}
13
 
13
 
14
macro DrawRectangle3D  x, y, w, h, color1, color2
14
macro DrawRectangle3D  x, y, w, h, color1, color2
15
{
15
{
16
	DrawBar x,y,w,1,color1
16
	DrawBar x,y,w,1,color1
17
	DrawBar x,y,1,h
17
	DrawBar x,y,1,h
18
	DrawBar x,y+h,w,1,color2
18
	DrawBar x,y+h,w,1,color2
19
	DrawBar x+w,y,1,h+1
19
	DrawBar x+w,y,1,h+1
20
}
20
}
21
21
 
-
 
22
macro DrawWideRectangle  x, y, w, h, boder, color
-
 
23
{
-
 
24
	DrawBar x, y, w, boder, color
-
 
25
	DrawBar x, y+h-boder, w, boder
-
 
26
	DrawBar x, y+boder, boder, h-boder-boder
-
 
27
	DrawBar x+w-boder, y+boder, boder, h-boder-boder
-
 
28
}
-
 
29
 
-
 
30
macro WriteText  x, y, fontType, color, text
-
 
31
{
-
 
32
	mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text
-
 
33
}
-
 
34
 
-
 
35
macro WriteTextBold  x, y, fontType, color, text
-
 
36
{
-
 
37
	mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text
-
 
38
	add ebx,1 shl 16
-
 
39
	mcall
-
 
40
}
-
 
41
 
-
 
42
BT_DEL     equ 0x80000000
-
 
43
BT_HIDE    equ 0x40000000
-
 
44
BT_NOFRAME equ 0x20000000
-
 
45
 
-
 
46
macro DefineButton  x, y, w, h, id, background_color
-
 
47
{
-
 
48
	mcall 8, (x) shl 16 + (w), (y) shl 16 + (h), id, background_color
-
 
49
}
-
 
50