[CEdit, FB2 Reader]: minor fixes

git-svn-id: svn://kolibrios.org@9599 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/cedit/SRC/CEdit.ob07

@@ -28,7 +28,7 @@ IMPORT
     RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;
 
 CONST
-    HEADER = "CEdit (05-jan-2022)";
+    HEADER = "CEdit (08-jan-2022)";
 
     ShellFilter = "";
     EditFilter = "SH|INC|TXT|ASM|OB07|C|CPP|H|PAS|PP|LUA|INI|JSON";
@@ -404,6 +404,8 @@ BEGIN
 	        CheckBox.paint(WH);
         END;
 
+		G.SetColor(canvas, K.borderColor);
+		G.VLine(canvas, 0, 0, canvas.height - 1);
         G.DrawCanvas(canvas, LEFT, TOP);
         NotFound;
         Replaced;
@@ -1952,7 +1954,7 @@ VAR
     fileName, filePath: RW.tFileName;
     width, height, cliWidth, cliHeight: INTEGER;
     resized: BOOLEAN;
-    firstClickX, firstClickY, time: INTEGER;
+    firstClickX, firstClickY, time, blink: INTEGER;
 BEGIN
 	header := "";
     K.GetSystemColors;
@@ -2066,11 +2068,17 @@ BEGIN
     K.SetEventsMask({0, 1, 2, 5, 6, 31});
     Menu.init(resetTimer);
     draw_window;
+    blink := Ini.blink;
+	IF blink <= 0 THEN
+		blink := 0
+	ELSIF blink < 30 THEN
+		blink := 30
+	END;
     timerEnabled := TRUE;
     CursorTime := K.GetTickCount();
     WHILE TRUE DO
     	CurrentTime := K.GetTickCount();
-    	IF (CurrentTime - CursorTime > Ini.blink) & timerEnabled THEN
+    	IF (CurrentTime - CursorTime > blink) & (blink > 0) & timerEnabled THEN
     		CursorTime := CurrentTime;
     		T.toggleCursor;
     		repaint

programs/develop/cedit/SRC/Clipboard.ob07

@@ -49,7 +49,7 @@ VAR
     ptr, pchar: INTEGER;
     wch: WCHAR;
 BEGIN
-    cnt := bufSize(buffer) DIV 2;
+    cnt := bufSize(buffer) DIV SYSTEM.SIZE(WCHAR);
     size := cnt + 12;
     a := KOSAPI.malloc(size);
     ASSERT(a # 0);

programs/develop/cedit/SRC/Ini.ob07

@@ -151,11 +151,6 @@ PROCEDURE getSettings* (VAR build, run, debug: RW.tFileName);
 BEGIN
 	Lines.setTabs(get_int(IniFileName, "settings", "tab", 4));
 	blink := get_int(IniFileName, "settings", "blink", 70);
-	IF blink = 0 THEN
-		blink := -1
-	ELSE
-		blink := MIN(MAX(blink, 1), 1000)
-	END;
     getStr("settings", "build", build);
     getStr("settings", "run",   run);
     getStr("settings", "debug", debug)

programs/develop/cedit/SRC/Lines.ob07

@@ -497,7 +497,10 @@ BEGIN
         _tab := 4
     END;
     tabs := _tab > 0;
-    tab := ABS(_tab)
+    tab := ABS(_tab);
+    IF tab > 32 THEN
+    	tab := 32
+    END
 END setTabs;
 
 

programs/develop/cedit/SRC/Text.ob07

@@ -26,7 +26,6 @@ IMPORT
     RW, Search,
     E := Encodings,
     CB := Clipboard,
-    K := KolibriOS,
     ChangeLog, File,
     Lang := Languages;
 
@@ -75,7 +74,6 @@ TYPE
         enc, eol: INTEGER;
         table: Search.IdxTable;
         foundList: List.tList;
-        idxData: Search.tBuffer;
         foundSel: INTEGER;
         searchText: tString;
         chLog*: ChangeLog.tLog;
@@ -818,7 +816,7 @@ BEGIN
 END leadingSpaces;
 
 
-PROCEDURE plain (text: tText; eot: BOOLEAN): CB.tBuffer;
+PROCEDURE plain (text: tText): CB.tBuffer;
 VAR
     buf: CB.tBuffer;
     size: INTEGER;
@@ -834,10 +832,7 @@ BEGIN
             INC(size, CB.lenEOL)
         END
     END;
-    IF eot THEN
+    buf := CB.create(size + 2);
-        INC(size, 2)
-    END;
-    buf := CB.create(size);
     line := text.first(tLine);
     WHILE line # NIL DO
         CB.append(buf, line, 0, line.length - 1);
@@ -846,43 +841,42 @@ BEGIN
             CB.eol(buf)
         END
     END;
-    IF eot THEN
+    CB.appends(buf, 0X, 0, 0);
-        CB.appends(buf, 0X + 0X, 0, 1)
+    CB.appends(buf, 0X, 0, 0)
-    END
     RETURN buf
 END plain;
 
 
 PROCEDURE search* (text: tText; s: ARRAY OF WCHAR; cs, whole: BOOLEAN): BOOLEAN;
 VAR
-    pos: List.tItem;
+	pos: List.tItem;
-    res: BOOLEAN;
+	res: BOOLEAN;
-    plainText: Search.tBuffer;
+	plainText, idxData: Search.tBuffer;
 BEGIN
-    plainText := NIL;
+	res := TRUE;
-    WHILE text.foundList.count # 0 DO
+	plainText := NIL;
-        pos := List.pop(text.foundList);
+	idxData := NIL;
-        DISPOSE(pos)
+	WHILE text.foundList.count # 0 DO
-    END;
+		pos := List.pop(text.foundList);
-    text.whole := whole;
+		DISPOSE(pos)
-    text.cs := cs;
+	END;
-    text.searchText := s;
+	text.whole := whole;
-    IF ~cs THEN
+	text.cs := cs;
-        U.upcase16(text.searchText)
+	text.searchText := s;
-    END;
+	IF ~cs THEN
-    IF text.searchText # "" THEN
+		U.upcase16(text.searchText)
-        plainText := plain(text, TRUE);
+	END;
-        text.idxData := Search.index(plainText, text.table, cs);
+	IF text.searchText # "" THEN
-        Search.find(plainText, text.table, text.searchText, whole, text.foundList);
+		plainText := plain(text);
-        res := text.foundList.count > 0
+		idxData := Search.index(plainText, text.table, cs);
-    ELSE
+		Search.find(plainText, text.table, text.searchText, whole, text.foundList);
-        res := TRUE
+		res := text.foundList.count > 0
-    END;
+	END;
-    CB.destroy(plainText);
+	CB.destroy(plainText);
-    CB.destroy(text.idxData);
+	CB.destroy(idxData);
-    text.search := FALSE;
+	text.search := FALSE;
-    text.foundSel := 0
+	text.foundSel := 0
-    RETURN res
+	RETURN res
 END search;
 
 
@@ -1537,7 +1531,7 @@ BEGIN
         DEC(n)
     END;
 
-    buffer := CB.create(cnt);
+    buffer := CB.create(cnt + 2); (* +2 wchars EOT *)
 
     n := selEnd.Y - selBeg.Y;
     line := first;
@@ -2343,9 +2337,7 @@ BEGIN
 
     IF drawCursor THEN
         cursor(text)
-    END;
+    END
-    G.SetColor(canvas, K.borderColor);
-    G.VLine(canvas, 0, 0, size.Y - 1);
 END draw;
 
 
@@ -2380,7 +2372,6 @@ BEGIN
     text.whole := FALSE;
     text.numbers := TRUE;
     text.guard := TRUE;
-    text.idxData := NIL;
     text.edition := NIL;
     text.foundList := List.create(NIL);
     text.searchText := "";