Subversion Repositories Kolibri OS

Rev

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