| /programs/develop/cedit/SRC/scroll.ob07 |
|---|
| 311,8 → 311,8 |
| VAR |
| c, size: INTEGER; |
| BEGIN |
| x := x - scroll.left; |
| y := y - scroll.top; |
| DEC(x, scroll.left); |
| DEC(y, scroll.top); |
| scroll.mouse := TRUE; |
| IF between(1, x, scroll.width - 2) & between(1, y, scroll.height - 2) THEN |
| IF scroll.vertical THEN |