Rev 9181 | Rev 9193 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9181 | Rev 9190 | ||
|---|---|---|---|
| Line 124... | Line 124... | ||
| 124 | ELSIF ext = "INI" THEN |
124 | ELSIF ext = "INI" THEN |
| 125 | text.lang := Lang.langIni |
125 | text.lang := Lang.langIni |
| 126 | ELSIF ext = "JSON" THEN |
126 | ELSIF ext = "JSON" THEN |
| 127 | text.lang := Lang.langJSON |
127 | text.lang := Lang.langJSON |
| 128 | ELSE |
128 | ELSE |
| 129 | text.lang := Lang.langNone |
129 | text.lang := Lang.langText |
| 130 | END |
130 | END |
| 131 | END setName; |
131 | END setName; |
| Line 132... | Line 132... | ||
| 132 | 132 | ||
| Line 2055... | Line 2055... | ||
| 2055 | backColor, numWidth, xNum, wNum: INTEGER; |
2055 | backColor, numWidth, xNum, wNum: INTEGER; |
| 2056 | p: Search.tPos; |
2056 | p: Search.tPos; |
| 2057 | guard: tGuard; |
2057 | guard: tGuard; |
| 2058 | BEGIN |
2058 | BEGIN |
| 2059 | IF text.search & search(text, text.searchText, text.cs, text.whole) THEN END; |
2059 | IF text.search & search(text, text.searchText, text.cs, text.whole) THEN END; |
| 2060 | IF (text.lang # Lang.langNone) & text.comments THEN |
2060 | IF (text.lang # Lang.langText) & text.comments THEN |
| 2061 | Comments(text) |
2061 | Comments(text) |
| 2062 | END; |
2062 | END; |
| 2063 | IF text.guard THEN |
2063 | IF text.guard THEN |
| 2064 | NEW(guard); |
2064 | NEW(guard); |
| 2065 | List.append(ChangeLog.CL.Log, guard); |
2065 | List.append(ChangeLog.CL.Log, guard); |
| Line 2100... | Line 2100... | ||
| 2100 | backColor := colors.curline |
2100 | backColor := colors.curline |
| 2101 | END; |
2101 | END; |
| 2102 | SetColor(colors.text, backColor); |
2102 | SetColor(colors.text, backColor); |
| 2103 | Len := MAX(line.length - text.scroll.X, 0); |
2103 | Len := MAX(line.length - text.scroll.X, 0); |
| 2104 | G.TextOut(canvas, padding.left, y, Lines.getPChar(line, text.scroll.X), MIN(Len, textsize.X + 1)); |
2104 | G.TextOut(canvas, padding.left, y, Lines.getPChar(line, text.scroll.X), MIN(Len, textsize.X + 1)); |
| 2105 | IF text.lang # Lang.langNone THEN |
2105 | IF text.lang # Lang.langText THEN |
| 2106 | parse(text, line, y, backColor, text.lang) |
2106 | parse(text, line, y, backColor, text.lang) |
| 2107 | END; |
2107 | END; |
| 2108 | mark(line, y - inter DIV 2); |
2108 | mark(line, y - inter DIV 2); |
| 2109 | IF (selBeg.Y < n) & (n < selEnd.Y) THEN |
2109 | IF (selBeg.Y < n) & (n < selEnd.Y) THEN |
| 2110 | drawSelect(text, line, 0, line.length, y) |
2110 | drawSelect(text, line, 0, line.length, y) |
| Line 2328... | Line 2328... | ||
| 2328 | SetPos(text, 0, 0); |
2328 | SetPos(text, 0, 0); |
| 2329 | resetSelect(text) |
2329 | resetSelect(text) |
| 2330 | ELSE |
2330 | ELSE |
| 2331 | errno := 1 |
2331 | errno := 1 |
| 2332 | END; |
2332 | END; |
| 2333 | IF (text # NIL) & (text.lang # Lang.langNone) THEN |
2333 | IF (text # NIL) & (text.lang # Lang.langText) THEN |
| 2334 | Comments(text) |
2334 | Comments(text) |
| 2335 | END |
2335 | END |
| 2336 | RETURN text |
2336 | RETURN text |
| 2337 | END open; |
2337 | END open; |