Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
7786 leency 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
 
6215 leency 10
macro DrawBar  x, y, width, height, color
11
{
12
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
13
}
14
 
15
macro DrawRectangle  x, y, w, h, color
16
{
17
	DrawBar x,y,w,1,color
18
	DrawBar x,y+h,w,1
19
	DrawBar x,y,1,h
20
	DrawBar x+w,y,1,h+1
21
}
22
 
23
macro DrawRectangle3D  x, y, w, h, color1, color2
24
{
25
	DrawBar x,y,w,1,color1
26
	DrawBar x,y,1,h
27
	DrawBar x,y+h,w,1,color2
28
	DrawBar x+w,y,1,h+1
6642 leency 29
}
30
 
31
macro DrawWideRectangle  x, y, w, h, boder, color
32
{
33
	DrawBar x, y, w, boder, color
34
	DrawBar x, y+h-boder, w, boder
35
	DrawBar x, y+boder, boder, h-boder-boder
36
	DrawBar x+w-boder, y+boder, boder, h-boder-boder
37
}
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
}
50