Rev 9671 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9671 | Rev 9915 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | Copyright 2021, 2022 Anton Krotov |
2 | Copyright 2021-2023 Anton Krotov |
Line 3... | Line 3... | ||
3 | 3 | ||
Line 4... | Line 4... | ||
4 | This file is part of CEdit. |
4 | This file is part of CEdit. |
5 | 5 | ||
Line 48... | Line 48... | ||
48 | U.append(s1, s2); |
48 | U.append(s1, s2); |
49 | SB.pos := s1 |
49 | SB.pos := s1 |
50 | END setPos; |
50 | END setPos; |
Line 51... | Line 51... | ||
51 | 51 | ||
52 | 52 | ||
53 | PROCEDURE setSel* (chars, lines: INTEGER); |
53 | PROCEDURE setSel* (text: ARRAY OF WCHAR; first, second: INTEGER; delimiter: ARRAY OF WCHAR); |
54 | VAR |
54 | VAR |
55 | s1, s2: tString; |
55 | s1, s2: tString; |
56 | BEGIN |
56 | BEGIN |
57 | IF chars # 0 THEN |
57 | IF first # 0 THEN |
58 | s1 := "sel: "; |
58 | s1 := text; |
59 | U.int2str(chars, s2); |
59 | U.int2str(first, s2); |
60 | U.append(s1, s2); |
60 | U.append(s1, s2); |
61 | U.append(s1, " | "); |
61 | U.append(s1, delimiter); |
62 | U.int2str(lines, s2); |
62 | U.int2str(second, s2); |
63 | U.append(s1, s2); |
63 | U.append(s1, s2); |
64 | SB.sel := s1 |
64 | SB.sel := s1 |
65 | ELSE |
65 | ELSE |