Rev 9197 | Rev 9210 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9197 | Rev 9208 | ||
|---|---|---|---|
| Line 2126... | Line 2126... | ||
| 2126 | FOR i := text.scroll.Y + 1 TO n DO |
2126 | FOR i := text.scroll.Y + 1 TO n DO |
| 2127 | IF text.numbers THEN |
2127 | IF text.numbers THEN |
| 2128 | IF (i MOD 10 = 0) OR (i - 1 = text.cursor.Y) OR line.label THEN |
2128 | IF (i MOD 10 = 0) OR (i - 1 = text.cursor.Y) OR line.label THEN |
| 2129 | U.int2str(i, s); |
2129 | U.int2str(i, s); |
| 2130 | G.TextOut2(canvas, (numWidth - U.lg10(i) - 1)*wNum - wNum DIV 2, y, s, LENGTH(s)) |
2130 | G.TextOut2(canvas, (numWidth - U.lg10(i) - 1)*wNum - wNum DIV 2, y, s, LENGTH(s)) |
| 2131 | ELSIF i MOD 5 = 0 THEN |
- | |
| 2132 | G.SetColor(canvas, colors.numtext); |
- | |
| 2133 | G.HLine(canvas, y - inter DIV 2 + charHeight DIV 2, xNum - wNum, xNum) |
- | |
| 2134 | ELSE |
2131 | ELSE |
| 2135 | G.SetColor(canvas, colors.numtext); |
2132 | G.SetColor(canvas, colors.numtext); |
| 2136 | G.HLine(canvas, y - inter DIV 2 + charHeight DIV 2, xNum - wNum DIV 2, xNum) |
2133 | G.HLine(canvas, y - inter DIV 2 + charHeight DIV 2, xNum - wNum DIV (1 + ORD(i MOD 5 # 0)), xNum) |
| 2137 | END |
2134 | END |
| 2138 | END; |
2135 | END; |
| 2139 | IF line.label THEN |
2136 | IF line.label THEN |
| 2140 | FOR x := wNum DIV 2 TO (padding.left - pad_left) - wNum DIV 2 DO |
2137 | FOR x := wNum DIV 2 TO (padding.left - pad_left) - wNum DIV 2 DO |
| 2141 | G.notVLine(canvas, x, y, y + charHeight - inter); |
2138 | G.notVLine(canvas, x, y, y + charHeight - inter); |