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 |