Subversion Repositories Kolibri OS

Rev

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

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