Subversion Repositories Kolibri OS

Rev

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

Rev 9187 Rev 9208
Line 82... Line 82...
82 
	res.height := res.canvas.height;
 82 
	res.height := res.canvas.height;
83 
	chkbox := res
 83 
	chkbox := res
84 
END create;
 84 
END create;
Line 85... Line 85...
85 
 
 85 
 
- 
 
 86 
 
- 
 
 87 
PROCEDURE mouse* (VAR chkbox: tCheckBox);
- 
 
 88 
VAR
86 
 
 89 
	msState: SET;
- 
 
 90 
	x, y: INTEGER;
- 
 
 91 
BEGIN
87 
PROCEDURE MouseDown* (VAR chkbox: tCheckBox; x, y: INTEGER);
 92 
	K.mouse(msState, x, y);
88 
BEGIN
 93 
	IF 0 IN msState THEN
89 
	IF (chkbox.canvas # NIL) & ~chkbox.mouse THEN
 94 
		IF (chkbox.canvas # NIL) & ~chkbox.mouse THEN
90 
		DEC(x, chkbox.left);
 95 
			DEC(x, chkbox.left);
91 
		DEC(y, chkbox.top);
 96 
			DEC(y, chkbox.top);
92 
		chkbox.mouse := TRUE;
 97 
			chkbox.mouse := TRUE;
93 
		IF U.between(0, x, chkbox.width) & U.between(0, y, chkbox.height) THEN
 98 
			IF U.between(0, x, chkbox.width - 1) & U.between(0, y, chkbox.height - 1) THEN
94 
			chkbox.value := ~chkbox.value;
 99 
				chkbox.value := ~chkbox.value;
95 
		END;
 100 
			END;
96 
		paint(chkbox)
 - 
 
97 
	END
 - 
 
98 
END MouseDown;
 - 
 
99 
 
 - 
 
100 
 
 101 
			paint(chkbox)
101 
PROCEDURE MouseUp* (VAR chkbox: tCheckBox);
 - 
 
102 
BEGIN
 102 
		END
103 
	IF chkbox.canvas # NIL THEN
 103 
	ELSE
104 
		chkbox.mouse := FALSE
 104 
		chkbox.mouse := FALSE
Line 105... Line 105...
105 
	END
 105 
	END
106 
END MouseUp;
 106 
END mouse;