Subversion Repositories Kolibri OS

(root)/programs/develop/cedit/SRC/scroll.ob07 – Rev 9180 → 9181



	c, size: INTEGER;
BEGIN
	x := x - scroll.left;
	y := y - scroll.top;
	scroll.mouse := TRUE;
	IF between(1, x, scroll.width - 2) & between(1, y, scroll.height - 2) THEN
		IF scroll.vertical THEN
			c := y;
			size := scroll.height
		ELSE
			c := x;

Rev 9180	Rev 9181
Line 312...	Line 312...
312	c, size: INTEGER;	312	c, size: INTEGER;
313	BEGIN	313	BEGIN
314	x := x - scroll.left;	314	x := x - scroll.left;
315	y := y - scroll.top;	315	y := y - scroll.top;
316	scroll.mouse := TRUE;	316	scroll.mouse := TRUE;
317	IF between(0, x, scroll.width - 1) & between(0, y, scroll.height - 1) THEN	317	IF between(1, x, scroll.width - 2) & between(1, y, scroll.height - 2) THEN
318	IF scroll.vertical THEN	318	IF scroll.vertical THEN
319	c := y;	319	c := y;
320	size := scroll.height	320	size := scroll.height
321	ELSE	321	ELSE
322	c := x;	322	c := x;