Subversion Repositories Kolibri OS

Rev

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

Rev 9210 Rev 9431
Line 104... Line 104...
104 
BEGIN
 104 
BEGIN
105 
	btn := scroll.btnSize;
 105 
	btn := scroll.btnSize;
106 
	width := scroll.width;
 106 
	width := scroll.width;
107 
	height := scroll.height;
 107 
	height := scroll.height;
108 
	canvas := scroll.canvas;
 108 
	canvas := scroll.canvas;
109 
	G.SetColor(canvas, K.winColor);
 109 
	G.SetColor(canvas, K.lightColor);
110 
	G.clear(canvas);
 110 
	G.clear(canvas);
111 
	G.SetColor(canvas, K.borderColor);
 111 
	G.SetColor(canvas, K.borderColor);
112 
	G.Rect(canvas, 0, 0, width - 1, height - 1);
 112 
	G.Rect(canvas, 0, 0, width - 1, height - 1);
113 
	IF scroll.vertical THEN
 113 
	IF scroll.vertical THEN
114 
		SetColor(canvas, ~scroll.Dec);
 114 
		SetColor(canvas, ~scroll.Dec);