Subversion Repositories Kolibri OS

Rev

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

Rev 9174 Rev 9180
Line 88... Line 88...
88 
	btn := scroll.btnSize;
 88 
	btn := scroll.btnSize;
89 
	width := scroll.width;
 89 
	width := scroll.width;
90 
	height := scroll.height;
 90 
	height := scroll.height;
91 
	canvas := scroll.canvas;
 91 
	canvas := scroll.canvas;
92 
	G.SetColor(canvas, K.winColor);
 92 
	G.SetColor(canvas, K.winColor);
93 
	G.FillRect(canvas, 0, 0, width - 1, height - 1);
 93 
	G.clear(canvas);
94 
	G.SetColor(canvas, K.borderColor);
 94 
	G.SetColor(canvas, K.borderColor);
95 
	G.Rect(canvas, 0, 0, width - 1, height - 1);
 95 
	G.Rect(canvas, 0, 0, width - 1, height - 1);
96 
	IF scroll.vertical THEN
 96 
	IF scroll.vertical THEN
97 
		SetColor(canvas, ~scroll.Dec);
 97 
		SetColor(canvas, ~scroll.Dec);
98 
		Rect(canvas, 0, 0, width - 1, btn - 1);
 98 
		Rect(canvas, 0, 0, width - 1, btn - 1);