aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

CEdit: optimization

Browse Source 
git-svn-id: svn://kolibrios.org@9904 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Anton Krotov
2023-02-26 19:26:25 +00:00
parent 759e2688de
commit 9ea1f9a4a6
6 changed files with 67 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files
programs/develop/cedit/SRC/Text.ob07
+33 -27
View File
@@ -68,7 +68,7 @@ TYPE
smallChange: INTEGER;
modified*, smallMove,
comments, guard, fasm*,
search, cs, whole: BOOLEAN;
search, cs, whole, wordSel: BOOLEAN;
edition*: tGuard;
curLine: tLine;
lang*: INTEGER;
@@ -929,7 +929,8 @@ BEGIN
text.modified := TRUE;
text.comments := TRUE;
text.search := TRUE;
text.guard := TRUE
text.guard := TRUE;
text.wordSel := TRUE
END modify;
@@ -1055,7 +1056,8 @@ BEGIN
setSelect(text);
text.foundSel := 0;
ShowCursor;
text.CurX := -1
text.CurX := -1;
text.wordSel := TRUE
END SetPos;
@@ -1992,30 +1994,33 @@ VAR
str: tString;
curLine: tLine;
BEGIN
curLine := text.curLine;
IF selected(text) & (text.cursor.Y = text.select.Y) THEN
getSelect(text, selBeg, selEnd);
x1 := selBeg.X;
x2 := selEnd.X;
n := getString(curLine, x1, x2 - x1, str);
ELSE
str := ""
END;
IF str # "" THEN
i := 0;
WHILE (i < n) & isWordChar(str[i]) DO
INC(i)
END;
IF (i # n) OR
((x1 > 0) & isWordChar(Lines.getChar(curLine, x1 - 1))) OR
((x2 < curLine.length) & isWordChar(Lines.getChar(curLine, x2))) THEN
str := ""
END
END;
IF text.searchText # str THEN
text.smallMove := FALSE
END;
IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END
IF text.wordSel THEN
curLine := text.curLine;
IF selected(text) & (text.cursor.Y = text.select.Y) THEN
getSelect(text, selBeg, selEnd);
x1 := selBeg.X;
x2 := selEnd.X;
n := getString(curLine, x1, x2 - x1, str);
ELSE
str := ""
END;
IF str # "" THEN
i := 0;
WHILE (i < n) & isWordChar(str[i]) DO
INC(i)
END;
IF (i # n) OR
((x1 > 0) & isWordChar(Lines.getChar(curLine, x1 - 1))) OR
((x2 < curLine.length) & isWordChar(Lines.getChar(curLine, x2))) THEN
str := ""
END
END;
IF text.searchText # str THEN
text.smallMove := FALSE
END;
IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END;
text.wordSel := FALSE
END
END wordSel;
@@ -2495,6 +2500,7 @@ BEGIN
text.cs := FALSE;
text.whole := FALSE;
text.guard := TRUE;
text.wordSel := FALSE;
text.edition := NIL;
text.foundList := List.create(NIL);
text.searchText := "";