Subversion Repositories Kolibri OS

Rev

Rev 9913 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9913 Rev 9915
Line 26... Line 26...
26 
    CB := Clipboard, Languages,
 26 
    CB := Clipboard, Languages,
27 
    ChangeLog, Scroll, CheckBox, Icons,
 27 
    ChangeLog, Scroll, CheckBox, Icons,
28 
    RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;
 28 
    RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;
Line 29... Line 29...
29 
 
 29 
 
30 
CONST
 30 
CONST
Line 31... Line 31...
31 
    HEADER = "CEdit (13-apr-2023)";
 31 
    HEADER = "CEdit (07-may-2023)";
32 
 
 32 
 
Line 33... Line 33...
33 
    ShellFilter = "";
 33 
    ShellFilter = "";
Line 167... Line 167...
167 
    maxTexts = 32;
 167 
    maxTexts = 32;
Line 168... Line 168...
168 
 
 168 
 
169 
	SHIFT = Menu.SHIFT;
 169 
	SHIFT = Menu.SHIFT;
Line 170... Line 170...
170 
	CTRL  = Menu.CTRL;
 170 
	CTRL  = Menu.CTRL;
Line 171... Line 171...
171 
 
 171 
 
172 
	ClippingArea = 50;
 172 
	ClippingArea = 32 + T.LineSpacing;
173 
 
 173 
 
Line 352... Line 352...
352 
BEGIN
 352 
BEGIN
353 
	T.getPos(text, col, line);
 353 
	T.getPos(text, col, line);
354 
	T.getSelCnt(text, chars, lines);
 354 
	T.getSelCnt(text, chars, lines);
355 
	SB.setWidth(canvas.width + scrollWidth);
 355 
	SB.setWidth(canvas.width + scrollWidth);
356 
	SB.setPos(line, col);
 356 
	SB.setPos(line, col);
- 
 
 357 
	IF text.foundSel # 0 THEN
- 
 
 358 
		SB.setSel("", text.foundCur, text.foundCnt, " / ")
- 
 
 359 
	ELSE
357 
	SB.setSel(chars, lines);
 360 
		SB.setSel("sel: ", chars, lines, " | ")
- 
 
 361 
	END;
358 
	SB.setEnc(E.eolNames[T.getEol(text)], E.names[T.getEnc(text)]);
 362 
	SB.setEnc(E.eolNames[T.getEol(text)], E.names[T.getEnc(text)]);
359 
	SB.draw(LEFT, height - BOTTOM + scrollWidth - 1);
 363 
	SB.draw(LEFT, height - BOTTOM + scrollWidth - 1);
360 
	Tabs.modify(tabs, getIdx(text), text.modified)
 364 
	Tabs.modify(tabs, getIdx(text), text.modified)
361 
END Status;
 365 
END Status;
Line 1943... Line 1947...
1943 
    DELAY = 10;
 1947 
	DELAY = 10;
1944 
VAR
 1948 
VAR
1945 
    msState: SET;
 1949 
	msState: SET;
1946 
    scroll, x, y, scrollX, scrollY: INTEGER;
 1950 
	scroll, x, y, scrollX, scrollY: INTEGER;
1947 
    pos1, pos2: T.tPoint;
 1951 
	pos1, pos2: T.tPoint;
- 
 
 1952 
	shift, ctrl: BOOLEAN;
Line 1948... Line 1953...
1948 
 
 1953 
 
1949 
 
 1954 
 
1950 
    PROCEDURE EditBox (VAR eb: EB.tEditBox);
 1955 
	PROCEDURE EditBox (VAR eb: EB.tEditBox);
Line 1967... Line 1972...
1967 
        IF ~(0 IN msState) OR (16 IN msState) THEN
 1972 
        IF ~(0 IN msState) OR (16 IN msState) THEN
1968 
        	leftButton := FALSE
 1973 
        	leftButton := FALSE
1969 
        END;
 1974 
        END;
1970 
        scroll := K.Scroll();
 1975 
        scroll := K.Scroll();
1971 
        IF scroll # 0 THEN
 1976 
        IF scroll # 0 THEN
- 
 
 1977 
        	K.getKBState(shift, ctrl);
- 
 
 1978 
        	IF shift THEN
- 
 
 1979 
        		T.scroll(text, scroll*3, 0)
- 
 
 1980 
        	ELSE
1972 
            T.scroll(text, 0, scroll*3);
 1981 
            	T.scroll(text, 0, scroll*3)
- 
 
 1982 
            END;
1973 
            repaint
 1983 
            repaint
1974 
        END;
 1984 
        END;
1975 
        IF leftButton THEN
 1985 
        IF leftButton THEN
1976 
            IF K.GetTickCount() - time >= DELAY THEN
 1986 
            IF K.GetTickCount() - time >= DELAY THEN
1977 
            	T.getPos(text, pos1.Y, pos1.X);
 1987 
            	T.getPos(text, pos1.Y, pos1.X);