Subversion Repositories Kolibri OS

Rev

Rev 7245 | Rev 7274 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7245 Rev 7246
Line 28... Line 28...
28
	return last_free_button_id;
28
	return last_free_button_id;
29
}
29
}
Line 30... Line 30...
30
 
30
 
31
:void DrawRectangle(dword x,y,w,h,color1)
31
:void DrawRectangle(dword x,y,w,h,color1)
32
{
-
 
33
	if (w<=0) || (h<=0) return;
32
{
34
	DrawBar(x,y,w,1,color1);
33
	DrawBar(x,y,w,1,color1);
35
	DrawBar(x,y+h,w,1,color1);
34
	DrawBar(x,y+h,w,1,color1);
36
	DrawBar(x,y,1,h,color1);
35
	DrawBar(x,y,1,h,color1);
37
	DrawBar(x+w,y,1,h+1,color1);
36
	DrawBar(x+w,y,1,h+1,color1);
Line 38... Line 37...
38
}
37
}
39
 
38
 
40
:void DrawWideRectangle(dword x,y,w,h,boder,color1)
-
 
41
{
39
:void DrawWideRectangle(dword x,y,w,h,boder,color1)
42
	if (w<=0) || (h<=0) return;
40
{
43
	DrawBar(x, y, w, boder, color1);
41
	DrawBar(x, y, w, boder, color1);
44
	DrawBar(x, y+h-boder, w, boder, color1);
42
	DrawBar(x, y+h-boder, w, boder, color1);
45
	DrawBar(x, y+boder, boder, h-boder-boder, color1);
43
	DrawBar(x, y+boder, boder, h-boder-boder, color1);
Line 46... Line 44...
46
	DrawBar(x+w-boder, y+boder, boder, h-boder-boder, color1);
44
	DrawBar(x+w-boder, y+boder, boder, h-boder-boder, color1);
47
}
45
}
48
 
-
 
49
:void DrawRectangle3D(dword x,y,w,h,color1,color2)
46
 
50
{
47
:void DrawRectangle3D(dword x,y,w,h,color1,color2)
51
	if (w<=0) || (h<=0) return;
48
{
52
	DrawBar(x,y,w+1,1,color1);
49
	DrawBar(x,y,w+1,1,color1);
53
	DrawBar(x,y+1,1,h-1,color1);
50
	DrawBar(x,y+1,1,h-1,color1);