Subversion Repositories Kolibri OS

Rev

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

Rev 9431 Rev 9628
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021 Anton Krotov
 2 
    Copyright 2021, 2022 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 74... Line 74...
74 
 
 74 
 
75 
 
 75 
 
76 
PROCEDURE Rect (canvas: G.tCanvas; left, top, right, bottom: INTEGER);
 76 
PROCEDURE Rect (canvas: G.tCanvas; left, top, right, bottom: INTEGER);
77 
BEGIN
 77 
BEGIN
78 
	G.FillRect(canvas, left, top, right, bottom);
 78 
	G.FillRect(canvas, left, top, right, bottom);
79 
	G.SetColor(canvas, K.borderColor);
 79 
	G.SetColor(canvas, K.colors.line);
Line 80... Line 80...
80 
	G.Rect(canvas, left, top, right, bottom);
 80 
	G.Rect(canvas, left, top, right, bottom);
Line 91... Line 91...
91 
	PROCEDURE SetColor (canvas: G.tCanvas; c: BOOLEAN);
 91 
	PROCEDURE SetColor (canvas: G.tCanvas; c: BOOLEAN);
92 
	VAR
 92 
	VAR
93 
		color: INTEGER;
 93 
		color: INTEGER;
94 
	BEGIN
 94 
	BEGIN
95 
		IF c THEN
 95 
		IF c THEN
96 
			color := K.btnColor
 96 
			color := K.colors.button
97 
		ELSE
 97 
		ELSE
98 
			color := K.btnTextColor
 98 
			color := K.colors.button_text
99 
		END;
 99 
		END;
100 
		G.SetColor(canvas, color)
 100 
		G.SetColor(canvas, color)
101 
	END SetColor;
 101 
	END SetColor;
Line 102... Line 102...
102 
 
 102 
 
103 
 
 103 
 
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.lightColor);
 109 
	G.SetColor(canvas, K.colors.light);
110 
	G.clear(canvas);
 110 
	G.clear(canvas);
111 
	G.SetColor(canvas, K.borderColor);
 111 
	G.SetColor(canvas, K.colors.line);
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);
115 
		Rect(canvas, 0, 0, width - 1, btn - 1);
 115 
		Rect(canvas, 0, 0, width - 1, btn - 1);
116 
		SetColor(canvas, ~scroll.Inc);
 116 
		SetColor(canvas, ~scroll.Inc);
117 
		Rect(canvas, 0, height - btn, width - 1, height - 1);
 117 
		Rect(canvas, 0, height - btn, width - 1, height - 1);
Line 118... Line 118...
118 
		G.SetColor(canvas, K.btnColor);
 118 
		G.SetColor(canvas, K.colors.button);
Line 119... Line 119...
119 
		Rect(canvas, 0, btn + scroll.pos - 1, width - 1, btn + scroll.pos + scroll.sliderSize - 1);
 119 
		Rect(canvas, 0, btn + scroll.pos - 1, width - 1, btn + scroll.pos + scroll.sliderSize - 1);
120 
 
 120 
 
121 
		G.SetColor(canvas, K.btnTextColor);
 121 
		G.SetColor(canvas, K.colors.button_text);
122 
 
 122 
 
Line 139... Line 139...
139 
	ELSE
 139 
	ELSE
140 
		SetColor(canvas, ~scroll.Dec);
 140 
		SetColor(canvas, ~scroll.Dec);
141 
		Rect(canvas, 0, 0, btn - 1, height - 1);
 141 
		Rect(canvas, 0, 0, btn - 1, height - 1);
142 
		SetColor(canvas, ~scroll.Inc);
 142 
		SetColor(canvas, ~scroll.Inc);
143 
		Rect(canvas, width - btn, 0, width - 1, height - 1);
 143 
		Rect(canvas, width - btn, 0, width - 1, height - 1);
144 
		G.SetColor(canvas, K.btnColor);
 144 
		G.SetColor(canvas, K.colors.button);
145 
		Rect(canvas, btn + scroll.pos - 1, 0, btn + scroll.pos + scroll.sliderSize - 1, height - 1);
 145 
		Rect(canvas, btn + scroll.pos - 1, 0, btn + scroll.pos + scroll.sliderSize - 1, height - 1);
Line 146... Line 146...
146 
 
 146 
 
Line 147... Line 147...
147 
		G.SetColor(canvas, K.btnTextColor);
 147 
		G.SetColor(canvas, K.colors.button_text);
148 
 
 148 
 
149 
		x := btn + scroll.pos + scroll.sliderSize DIV 2 - 1;
 149 
		x := btn + scroll.pos + scroll.sliderSize DIV 2 - 1;
150 
		G.VLine(canvas, x, height DIV 4, 3*height DIV 4);
 150 
		G.VLine(canvas, x, height DIV 4, 3*height DIV 4);