Rev 8728 | Rev 9010 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8728 | Rev 8762 | ||
|---|---|---|---|
| Line 24... | Line 24... | ||
| 24 | G := Graph, |
24 | G := Graph, |
| 25 | U := Utils, |
25 | U := Utils, |
| 26 | RW, Search, |
26 | RW, Search, |
| 27 | E := Encodings, |
27 | E := Encodings, |
| 28 | CB := Clipboard, |
28 | CB := Clipboard, |
| - | 29 | K := KolibriOS, |
|
| 29 | ChangeLog, |
30 | ChangeLog, |
| 30 | Lang := Languages; |
31 | Lang := Languages; |
| Line 31... | Line 32... | ||
| 31 | 32 | ||
| Line 89... | Line 90... | ||
| 89 | 90 | ||
| 90 | pdelete: PROCEDURE (text: tText); |
91 | pdelete: PROCEDURE (text: tText); |
| Line 91... | Line 92... | ||
| 91 | ShowCursor: PROCEDURE; |
92 | ShowCursor: PROCEDURE; |
| 92 | 93 | ||
| 93 | colors*: RECORD |
94 | colors*: RECORD |
| 94 | text, back, seltext, selback, modified, saved, curline, numtext, numback, border*: INTEGER; |
95 | text, back, seltext, selback, modified, saved, curline, numtext, numback: INTEGER; |
| 95 | comment, string, num, delim, key1, key2, key3: INTEGER |
96 | comment, string, num, delim, key1, key2, key3: INTEGER |
| 96 | END; |
97 | END; |
| 97 | canvas: G.tCanvas; |
98 | canvas: G.tCanvas; |
| Line 764... | Line 765... | ||
| 764 | END |
765 | END |
| Line 765... | Line 766... | ||
| 765 | 766 | ||
| Line 766... | Line 767... | ||
| 766 | ELSIF lang = Lang.langIni THEN |
767 | ELSIF lang = Lang.langIni THEN |
| 767 | 768 | ||
| 768 | IF depth = 0 THEN |
769 | IF depth = 0 THEN |
| 769 | IF c = ";" THEN |
770 | IF (c = ";") OR (c = "#") THEN |
| 770 | PrintLex(text, line, i, n, y, colors.comment, backColor); |
771 | PrintLex(text, line, i, n, y, colors.comment, backColor); |
| 771 | i := n |
772 | i := n |
| 772 | ELSIF c = '"' THEN |
773 | ELSIF c = '"' THEN |
| Line 1849... | Line 1850... | ||
| 1849 | END; |
1850 | END; |
| Line 1850... | Line 1851... | ||
| 1850 | 1851 | ||
| 1851 | IF drawCursor THEN |
1852 | IF drawCursor THEN |
| 1852 | cursor(text) |
1853 | cursor(text) |
| 1853 | END; |
1854 | END; |
| 1854 | G.SetColor(canvas, colors.border); |
1855 | G.SetColor(canvas, K.borderColor); |
| 1855 | G.Rect(canvas, 0, 0, size.X - 1, size.Y - 1); |
1856 | G.Rect(canvas, 0, 0, size.X - 1, size.Y - 1); |
| Line 1856... | Line 1857... | ||
| 1856 | END draw; |
1857 | END draw; |
| Line 1888... | Line 1889... | ||
| 1888 | RETURN text |
1889 | RETURN text |
| 1889 | END create; |
1890 | END create; |
| Line 1890... | Line 1891... | ||
| 1890 | 1891 | ||
| 1891 | 1892 | ||
| 1892 | PROCEDURE setColors* (text, back, seltext, selback, modified, saved, curline, numtext, numback, |
1893 | PROCEDURE setColors* (text, back, seltext, selback, modified, saved, curline, numtext, numback, |
| 1893 | comment, string, num, delim, key1, key2, key3, border: INTEGER); |
1894 | comment, string, num, delim, key1, key2, key3: INTEGER); |
| 1894 | BEGIN |
1895 | BEGIN |
| 1895 | colors.text := text; |
1896 | colors.text := text; |
| 1896 | colors.back := back; |
1897 | colors.back := back; |
| Line 1906... | Line 1907... | ||
| 1906 | colors.num := num; |
1907 | colors.num := num; |
| 1907 | colors.delim := delim; |
1908 | colors.delim := delim; |
| 1908 | colors.key1 := key1; |
1909 | colors.key1 := key1; |
| 1909 | colors.key2 := key2; |
1910 | colors.key2 := key2; |
| 1910 | colors.key3 := key3; |
1911 | colors.key3 := key3; |
| 1911 | colors.border := border; |
- | |
| 1912 | END setColors; |
1912 | END setColors; |
| Line 1913... | Line 1913... | ||
| 1913 | 1913 | ||
| 1914 | 1914 | ||