Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9199 → Rev 9200

/programs/develop/cedit/CEDIT
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programs/develop/cedit/SRC/CEdit.ob07
28,7 → 28,7
RW, Ini, EB := EditBox, Icons, Tabs, Timer;
 
CONST
header = "CEdit (21-sep-2021)";
header = "CEdit (24-sep-2021)";
 
ShellFilter = "";
EditFilter = "SH|ASM|TXT|INC|OB07|C|CPP|H|PAS|PP|LUA|INI|JSON";
/programs/develop/cedit/SRC/RW.ob07
63,6 → 63,7
 
eol*: ARRAY 3 OF tEOL;
eolNames*: ARRAY 3, 16 OF WCHAR;
strBuf: ARRAY 1000000 OF WCHAR;
 
 
PROCEDURE getByte (file: tInput): BYTE;
168,9 → 169,8
VAR
c: WCHAR;
i, L, k, n: INTEGER;
s: ARRAY 1000 OF WCHAR;
BEGIN
L := LEN(s);
L := LEN(strBuf);
eol := FALSE;
n := 0;
i := ORD(file.cnt > 0) - 1;
190,21 → 190,21
ELSIF c = TAB THEN
k := Lines.tab - i MOD Lines.tab;
IF tabs THEN
s[i] := TAB
strBuf[i] := TAB
ELSE
s[i] := SPACE
strBuf[i] := SPACE
END;
INC(i);
DEC(k);
WHILE k > 0 DO
IF tabs THEN
s[i] := Lines.TAB1
strBuf[i] := Lines.TAB1
ELSE
s[i] := SPACE
strBuf[i] := SPACE
END;
INC(i);
IF i = L THEN
Lines.concat(line, s);
Lines.concat(line, strBuf);
INC(n, i);
i := 0
END;
214,10 → 214,10
ELSIF c = BOM THEN
file.CR := FALSE
ELSE
s[i] := c;
strBuf[i] := c;
INC(i);
IF i = L THEN
Lines.concat(line, s);
Lines.concat(line, strBuf);
INC(n, i);
i := 0
END;
225,8 → 225,8
END
END;
IF i >= 0 THEN
s[i] := 0X;
Lines.concat(line, s);
strBuf[i] := 0X;
Lines.concat(line, strBuf);
END;
INC(n, i)
RETURN n
/programs/develop/cedit/SRC/scroll.ob07
194,7 → 194,7
m := (maxPos + 1) MOD scroll.maxVal;
pos := value*n + MIN(value, m)
ELSE
pos := value*(maxPos + 1) DIV scroll.maxVal
pos := FLOOR(FLT(value)*FLT(maxPos + 1)/FLT(scroll.maxVal))
END;
IF pos > maxPos THEN
pos := maxPos;
267,7 → 267,7
END
END
ELSE
value := scroll.maxVal*pos DIV (maxPos + 1)
value := FLOOR(FLT(scroll.maxVal)*FLT(pos)/FLT(maxPos + 1))
END
END
ELSE