Rev 9180 | Rev 9182 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
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; |