Rev 9903 | Rev 9906 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9903 | Rev 9904 | ||
|---|---|---|---|
| Line 66... | Line 66... | ||
| 66 | scroll: tPoint; |
66 | scroll: tPoint; |
| 67 | CurX: INTEGER; |
67 | CurX: INTEGER; |
| 68 | smallChange: INTEGER; |
68 | smallChange: INTEGER; |
| 69 | modified*, smallMove, |
69 | modified*, smallMove, |
| 70 | comments, guard, fasm*, |
70 | comments, guard, fasm*, |
| 71 | search, cs, whole: BOOLEAN; |
71 | search, cs, whole, wordSel: BOOLEAN; |
| 72 | edition*: tGuard; |
72 | edition*: tGuard; |
| 73 | curLine: tLine; |
73 | curLine: tLine; |
| 74 | lang*: INTEGER; |
74 | lang*: INTEGER; |
| 75 | enc, eol: INTEGER; |
75 | enc, eol: INTEGER; |
| 76 | foundList: List.tList; |
76 | foundList: List.tList; |
| Line 927... | Line 927... | ||
| 927 | PROCEDURE modify (text: tText); |
927 | PROCEDURE modify (text: tText); |
| 928 | BEGIN |
928 | BEGIN |
| 929 | text.modified := TRUE; |
929 | text.modified := TRUE; |
| 930 | text.comments := TRUE; |
930 | text.comments := TRUE; |
| 931 | text.search := TRUE; |
931 | text.search := TRUE; |
| 932 | text.guard := TRUE |
932 | text.guard := TRUE; |
| - | 933 | text.wordSel := TRUE |
|
| 933 | END modify; |
934 | END modify; |
| Line 934... | Line 935... | ||
| 934 | 935 | ||
| 935 | 936 | ||
| Line 1053... | Line 1054... | ||
| 1053 | text.select.X := text.curLine.length |
1054 | text.select.X := text.curLine.length |
| 1054 | END; |
1055 | END; |
| 1055 | setSelect(text); |
1056 | setSelect(text); |
| 1056 | text.foundSel := 0; |
1057 | text.foundSel := 0; |
| 1057 | ShowCursor; |
1058 | ShowCursor; |
| 1058 | text.CurX := -1 |
1059 | text.CurX := -1; |
| - | 1060 | text.wordSel := TRUE |
|
| 1059 | END SetPos; |
1061 | END SetPos; |
| Line 1060... | Line 1062... | ||
| 1060 | 1062 | ||
| 1061 | 1063 | ||
| Line 1990... | Line 1992... | ||
| 1990 | n, i, x1, x2: INTEGER; |
1992 | n, i, x1, x2: INTEGER; |
| 1991 | selBeg, selEnd: tPoint; |
1993 | selBeg, selEnd: tPoint; |
| 1992 | str: tString; |
1994 | str: tString; |
| 1993 | curLine: tLine; |
1995 | curLine: tLine; |
| 1994 | BEGIN |
1996 | BEGIN |
| - | 1997 | IF text.wordSel THEN |
|
| 1995 | curLine := text.curLine; |
1998 | curLine := text.curLine; |
| 1996 | IF selected(text) & (text.cursor.Y = text.select.Y) THEN |
1999 | IF selected(text) & (text.cursor.Y = text.select.Y) THEN |
| 1997 | getSelect(text, selBeg, selEnd); |
2000 | getSelect(text, selBeg, selEnd); |
| 1998 | x1 := selBeg.X; |
2001 | x1 := selBeg.X; |
| 1999 | x2 := selEnd.X; |
2002 | x2 := selEnd.X; |
| Line 2013... | Line 2016... | ||
| 2013 | END |
2016 | END |
| 2014 | END; |
2017 | END; |
| 2015 | IF text.searchText # str THEN |
2018 | IF text.searchText # str THEN |
| 2016 | text.smallMove := FALSE |
2019 | text.smallMove := FALSE |
| 2017 | END; |
2020 | END; |
| 2018 | IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END |
2021 | IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END; |
| - | 2022 | text.wordSel := FALSE |
|
| - | 2023 | END |
|
| 2019 | END wordSel; |
2024 | END wordSel; |
| Line 2020... | Line 2025... | ||
| 2020 | 2025 | ||
| 2021 | 2026 | ||
| Line 2493... | Line 2498... | ||
| 2493 | text.comments := TRUE; |
2498 | text.comments := TRUE; |
| 2494 | text.search := TRUE; |
2499 | text.search := TRUE; |
| 2495 | text.cs := FALSE; |
2500 | text.cs := FALSE; |
| 2496 | text.whole := FALSE; |
2501 | text.whole := FALSE; |
| 2497 | text.guard := TRUE; |
2502 | text.guard := TRUE; |
| - | 2503 | text.wordSel := FALSE; |
|
| 2498 | text.edition := NIL; |
2504 | text.edition := NIL; |
| 2499 | text.foundList := List.create(NIL); |
2505 | text.foundList := List.create(NIL); |
| 2500 | text.searchText := ""; |
2506 | text.searchText := ""; |
| 2501 | text.foundSel := 0; |
2507 | text.foundSel := 0; |
| 2502 | text.CurX := -1; |
2508 | text.CurX := -1; |