Rev 9181 | Rev 9187 | Go to most recent revision | Show entire file | Ignore 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; |