Subversion Repositories Kolibri OS

Rev

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

Rev 9628 Rev 9630
Line 40... Line 40...
40 
		canvas: G.tCanvas
 40 
		canvas: G.tCanvas
Line 41... Line 41...
41 
 
 41 
 
Line 42... Line 42...
42 
	END;
 42 
	END;
43 
 
 43 
 
44 
 
 44 
 
45 
PROCEDURE paint* (chkbox: tCheckBox);
 45 
PROCEDURE draw* (chkbox: tCheckBox);
46 
VAR
 46 
VAR
47 
	canvas: G.tCanvas;
 47 
	canvas: G.tCanvas;
Line 68... Line 68...
68 
		G.SetTextColor(canvas, K.colors.work_text);
 68 
		G.SetTextColor(canvas, K.colors.work_text);
69 
		G.SetBkColor(canvas, K.colors.work);
 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 draw;
Line 74... Line 74...
74 
 
 74 
 
75 
 
 75 
 
76 
PROCEDURE create* (text: ARRAY OF WCHAR; VAR chkbox: tCheckBox);
 76 
PROCEDURE create* (text: ARRAY OF WCHAR; VAR chkbox: tCheckBox);
Line 102... Line 102...
102 
			DEC(y, chkbox.top);
 102 
			DEC(y, chkbox.top);
103 
			chkbox.mouse := TRUE;
 103 
			chkbox.mouse := TRUE;
104 
			IF U.between(0, x, chkbox.width - 1) & U.between(0, y, chkbox.height - 1) THEN
 104 
			IF U.between(0, x, chkbox.width - 1) & U.between(0, y, chkbox.height - 1) THEN
105 
				chkbox.value := ~chkbox.value;
 105 
				chkbox.value := ~chkbox.value;
106 
			END;
 106 
			END;
107 
			paint(chkbox)
 107 
			draw(chkbox)
108 
		END
 108 
		END
109 
	ELSE
 109 
	ELSE
110 
		chkbox.mouse := FALSE
 110 
		chkbox.mouse := FALSE
111 
	END
 111 
	END
112 
END mouse;
 112 
END mouse;