Subversion Repositories Kolibri OS

Rev

Rev 6215 | Rev 7786 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6215 leency 1
macro DrawBar  x, y, width, height, color
2
{
3
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
4
}
5
 
6
macro DrawRectangle  x, y, w, h, color
7
{
8
	DrawBar x,y,w,1,color
9
	DrawBar x,y+h,w,1
10
	DrawBar x,y,1,h
11
	DrawBar x+w,y,1,h+1
12
}
13
 
14
macro DrawRectangle3D  x, y, w, h, color1, color2
15
{
16
	DrawBar x,y,w,1,color1
17
	DrawBar x,y,1,h
18
	DrawBar x,y+h,w,1,color2
19
	DrawBar x+w,y,1,h+1
6642 leency 20
}
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
}