Rev 9915 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9915 | Rev 9946 | ||
|---|---|---|---|
| Line 38... | Line 38... | ||
| 38 | lenEOL = CB.lenEOL; |
38 | lenEOL = CB.lenEOL; |
| Line 39... | Line 39... | ||
| 39 | 39 | ||
| 40 | mark_width = 2; |
40 | mark_width = 2; |
| 41 | pad_left = mark_width + 3; |
41 | pad_left = mark_width + 3; |
| 42 | pad_top = 1; |
42 | pad_top = 1; |
| Line 43... | Line 43... | ||
| 43 | LineSpacing* = 2; |
43 | MaxLineSpacing* = 8; |
| Line 44... | Line 44... | ||
| 44 | 44 | ||
| Line 96... | Line 96... | ||
| 96 | END; |
96 | END; |
| 97 | canvas: G.tCanvas; |
97 | canvas: G.tCanvas; |
| 98 | drawCursor: BOOLEAN; |
98 | drawCursor: BOOLEAN; |
| 99 | padding: RECORD left, top: INTEGER END; |
99 | padding: RECORD left, top: INTEGER END; |
| 100 | size, textsize: tPoint; |
100 | size, textsize: tPoint; |
| 101 | charWidth, charHeight: INTEGER; |
101 | charWidth, charHeight, LineSpacing*: INTEGER; |
| 102 | autoIndents*, lineNumbers*, autoBrackets*, trimSpace*: BOOLEAN; |
102 | autoIndents*, lineNumbers*, autoBrackets*, trimSpace*: BOOLEAN; |
| Line 103... | Line 103... | ||
| 103 | 103 | ||
| 104 | 104 | ||
| Line 2162... | Line 2162... | ||
| 2162 | text.smallMove := FALSE |
2162 | text.smallMove := FALSE |
| 2163 | END; |
2163 | END; |
| 2164 | IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END; |
2164 | IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END; |
| 2165 | text.wordSel := FALSE |
2165 | text.wordSel := FALSE |
| 2166 | END; |
2166 | END; |
| 2167 | IF (text.lang = Lang.langFasm) & ~selected(text) THEN |
2167 | (*IF (text.lang = Lang.langFasm) & ~selected(text) THEN |
| 2168 | fasm_anon(text) |
2168 | fasm_anon(text) |
| 2169 | END |
2169 | END*) |
| 2170 | END wordSel; |
2170 | END wordSel; |
| Line 2171... | Line 2171... | ||
| 2171 | 2171 | ||
| 2172 | 2172 | ||
| Line 3003... | Line 3003... | ||
| 3003 | PROCEDURE empty* (text: tText): BOOLEAN; |
3003 | PROCEDURE empty* (text: tText): BOOLEAN; |
| 3004 | RETURN (text.count = 1) & (text.curLine.length = 0) |
3004 | RETURN (text.count = 1) & (text.curLine.length = 0) |
| 3005 | END empty; |
3005 | END empty; |
| Line -... | Line 3006... | ||
| - | 3006 | ||
| - | 3007 | ||
| - | 3008 | PROCEDURE setLineSpacing* (canvas: G.tCanvas; value: INTEGER); |
|
| - | 3009 | BEGIN |
|
| - | 3010 | IF (0 <= value) & (value <= MaxLineSpacing) THEN |
|
| - | 3011 | LineSpacing := value; |
|
| - | 3012 | setCanvas(canvas) |
|
| - | 3013 | END |
|
| - | 3014 | END setLineSpacing; |
|
| - | 3015 | ||
| 3006 | 3016 | ||
| 3007 | 3017 | PROCEDURE init* (pShowCursor: tProcedure; |
|
| 3008 | PROCEDURE init* (pShowCursor: tProcedure; _lineNumbers, _autoIndents, _autoBrackets, _trimSpace: BOOLEAN); |
3018 | _lineNumbers, _autoIndents, _autoBrackets, _trimSpace: BOOLEAN; _lineSpacing: INTEGER); |
| 3009 | BEGIN |
3019 | BEGIN |
| 3010 | ShowCursor := pShowCursor; |
3020 | ShowCursor := pShowCursor; |
| 3011 | pdelete := delete; |
3021 | pdelete := delete; |
| 3012 | drawCursor := TRUE; |
3022 | drawCursor := TRUE; |
| 3013 | lineNumbers := _lineNumbers; |
3023 | lineNumbers := _lineNumbers; |
| 3014 | autoIndents := _autoIndents; |
3024 | autoIndents := _autoIndents; |
| 3015 | autoBrackets := _autoBrackets; |
3025 | autoBrackets := _autoBrackets; |
| 3016 | trimSpace := _trimSpace; |
3026 | trimSpace := _trimSpace; |
| - | 3027 | padding.left := pad_left; |
|
| 3017 | padding.left := pad_left; |
3028 | padding.top := pad_top; |
| Line 3018... | Line 3029... | ||
| 3018 | padding.top := pad_top; |
3029 | LineSpacing := _lineSpacing |
| 3019 | END init; |
3030 | END init; |