Subversion Repositories Kolibri OS

Rev

Rev 9659 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9659 Rev 9906
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021, 2022 Anton Krotov
 2 
    Copyright 2021-2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of CEdit.
 4 
    This file is part of CEdit.
5 
 
 5 
 
Line 106... Line 106...
106 
	canvas := scroll.canvas;
 106 
	canvas := scroll.canvas;
107 
	G.SetColor(canvas, K.colors.light);
 107 
	G.SetColor(canvas, K.colors.light);
108 
	G.clear(canvas);
 108 
	G.clear(canvas);
109 
	G.SetColor(canvas, K.colors.line);
 109 
	G.SetColor(canvas, K.colors.line);
110 
	G.Rect(canvas, 0, 0, width - 1, height - 1);
 110 
	G.Rect(canvas, 0, 0, width - 1, height - 1);
111 
	IF scroll.vertical THEN
 - 
 
112 
		SetColor(canvas, scroll.btn # -1);
 111 
	SetColor(canvas, scroll.btn # -1);
- 
 
 112 
	IF scroll.vertical THEN
113 
		Rect(canvas, 0, 0, width - 1, btn - 1);
 113 
		Rect(canvas, 0, 0, width - 1, btn - 1);
114 
		SetColor(canvas, scroll.btn # 1);
 114 
		SetColor(canvas, scroll.btn # 1);
115 
		Rect(canvas, 0, height - btn, width - 1, height - 1);
 115 
		Rect(canvas, 0, height - btn, width - 1, height - 1);
116 
		G.SetColor(canvas, K.colors.button);
 116 
		G.SetColor(canvas, K.colors.button);
117 
		Rect(canvas, 0, btn + scroll.pos - 1, width - 1, btn + scroll.pos + scroll.sliderSize - 1);
 117 
		Rect(canvas, 0, btn + scroll.pos - 1, width - 1, btn + scroll.pos + scroll.sliderSize - 1);
Line 133... Line 133...
133 
 
 133 
 
134 
		SetColor(canvas, scroll.btn = 1);
 134 
		SetColor(canvas, scroll.btn = 1);
135 
		y := y + height - btn - d DIV 2 + 1;
 135 
		y := y + height - btn - d DIV 2 + 1;
136 
		G.Triangle(canvas, x1 - 1, y, x2, y, G.triDown);
 136 
		G.Triangle(canvas, x1 - 1, y, x2, y, G.triDown);
137 
	ELSE
 - 
 
138 
		SetColor(canvas, scroll.btn # -1);
 137 
	ELSE
139 
		Rect(canvas, 0, 0, btn - 1, height - 1);
 138 
		Rect(canvas, 0, 0, btn - 1, height - 1);
140 
		SetColor(canvas, scroll.btn # 1);
 139 
		SetColor(canvas, scroll.btn # 1);
141 
		Rect(canvas, width - btn, 0, width - 1, height - 1);
 140 
		Rect(canvas, width - btn, 0, width - 1, height - 1);
142 
		G.SetColor(canvas, K.colors.button);
 141 
		G.SetColor(canvas, K.colors.button);