Subversion Repositories Kolibri OS

Rev

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

Rev 6190 Rev 6215
Line 20... Line 20...
20 
include '../../../proc32.inc'
 20 
include '../../../proc32.inc'
21 
include '../../../dll.inc'
 21 
include '../../../dll.inc'
22 
include '../../../develop/libraries/box_lib/load_lib.mac'
 22 
include '../../../develop/libraries/box_lib/load_lib.mac'
23 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 23 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
24 
 
 24 
include '../../../gui_patterns.inc'
- 
 
 25 
 
Line 25... Line 26...
25 
@use_library
 26 
@use_library
Line 26... Line -...
26 
 
 - 
 
27 
macro DrawBar  x, y, width, height, color
- 
 
28 
{
 - 
 
29 
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
 - 
 
30 
}
 - 
 
31 
 
 - 
 
32 
macro DrawRectangle  x, y, w, h, color
- 
 
33 
{
 - 
 
34 
	DrawBar x,y,w,1,color
 - 
 
35 
	DrawBar x,y+h,w,1
 - 
 
36 
	DrawBar x,y,1,h
 - 
 
37 
	DrawBar x+w,y,1,h+1
 - 
 
38 
}
 - 
 
Line 39... Line 27...
39 
 
 27 
 
40
28