Subversion Repositories Kolibri OS

Rev

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

Rev 9181 Rev 9182
Line 309... Line 309...
309 
 
 309 
 
310 
PROCEDURE MouseDown* (VAR scroll: tScroll; x, y: INTEGER);
 310 
PROCEDURE MouseDown* (VAR scroll: tScroll; x, y: INTEGER);
311 
VAR
 311 
VAR
312 
	c, size: INTEGER;
 312 
	c, size: INTEGER;
313 
BEGIN
 313 
BEGIN
314 
	x := x - scroll.left;
 314 
	DEC(x, scroll.left);
315 
	y := y - scroll.top;
 315 
	DEC(y, scroll.top);
316 
	scroll.mouse := TRUE;
 316 
	scroll.mouse := TRUE;
317 
	IF between(1, x, scroll.width - 2) & between(1, y, scroll.height - 2) 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;