Subversion Repositories Kolibri OS

Rev

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

Rev 9448 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 46... Line 46...
46 
VAR
 46 
VAR
47 
	canvas: G.tCanvas;
 47 
	canvas: G.tCanvas;
48 
BEGIN
 48 
BEGIN
49 
	canvas := chkbox.canvas;
 49 
	canvas := chkbox.canvas;
50 
	IF canvas # NIL THEN
 50 
	IF canvas # NIL THEN
51 
		G.SetColor(canvas, K.winColor);
 51 
		G.SetColor(canvas, K.colors.work);
52 
		G.clear(canvas);
 52 
		G.clear(canvas);
53 
		G.SetColor(canvas, bColor);
 53 
		G.SetColor(canvas, bColor);
54 
		G.FillRect(canvas, 0, 0, fontHeight - 1, fontHeight - 1);
 54 
		G.FillRect(canvas, 0, 0, fontHeight - 1, fontHeight - 1);
55 
		G.SetColor(canvas, K.borderColor);
 55 
		G.SetColor(canvas, K.colors.line);
56 
		G.Rect(canvas, 0, 0, fontHeight - 1, fontHeight - 1);
 56 
		G.Rect(canvas, 0, 0, fontHeight - 1, fontHeight - 1);
57 
		IF chkbox.value THEN
 57 
		IF chkbox.value THEN
58 
			G.SetColor(canvas, fColor);
 58 
			G.SetColor(canvas, fColor);
59 
		    G.DLine(canvas, 2,  6,  6, -1);
 59 
		    G.DLine(canvas, 2,  6,  6, -1);
60 
		    G.DLine(canvas, 2,  6,  7, -1);
 60 
		    G.DLine(canvas, 2,  6,  7, -1);
Line 63... Line 63...
63 
		    G.DLine(canvas, 2,  6,  8, -1);
 63 
		    G.DLine(canvas, 2,  6,  8, -1);
64 
		    G.DLine(canvas, 7, 13, 11,  1);
 64 
		    G.DLine(canvas, 7, 13, 11,  1);
65 
		    G.DLine(canvas, 2,  6,  5, -1);
 65 
		    G.DLine(canvas, 2,  6,  5, -1);
66 
		    G.DLine(canvas, 7, 13,  8,  1);
 66 
		    G.DLine(canvas, 7, 13,  8,  1);
67 
		END;
 67 
		END;
68 
		G.SetTextColor(canvas, K.textColor);
 68 
		G.SetTextColor(canvas, K.colors.work_text);
69 
		G.SetBkColor(canvas, K.winColor);
 69 
		G.SetBkColor(canvas, K.colors.work);
70 
		G.TextOut2(canvas, fontHeight + padding, 0, chkbox.text, LENGTH(chkbox.text));
 70 
		G.TextOut2(canvas, fontHeight + padding, 0, chkbox.text, LENGTH(chkbox.text));
71 
		G.DrawCanvas(canvas, chkbox.left, chkbox.top)
 71 
		G.DrawCanvas(canvas, chkbox.left, chkbox.top)
72 
	END
 72 
	END
73 
END paint;
 73 
END paint;