Rev 9194 | Rev 9200 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9194 | Rev 9197 | ||
|---|---|---|---|
| Line 26... | Line 26... | ||
| 26 | CB := Clipboard, Languages, |
26 | CB := Clipboard, Languages, |
| 27 | ChangeLog, Scroll, CheckBox, |
27 | ChangeLog, Scroll, CheckBox, |
| 28 | RW, Ini, EB := EditBox, Icons, Tabs, Timer; |
28 | RW, Ini, EB := EditBox, Icons, Tabs, Timer; |
| Line 29... | Line 29... | ||
| 29 | 29 | ||
| 30 | CONST |
30 | CONST |
| Line 31... | Line 31... | ||
| 31 | header = "CEdit (17-sep-2021)"; |
31 | header = "CEdit (21-sep-2021)"; |
| 32 | 32 | ||
| Line 33... | Line 33... | ||
| 33 | ShellFilter = ""; |
33 | ShellFilter = ""; |
| Line 1085... | Line 1085... | ||
| 1085 | K.Run("/rd/1/@open", script) |
1085 | K.Run("/rd/1/@open", script) |
| 1086 | END |
1086 | END |
| 1087 | END Script; |
1087 | END Script; |
| Line 1088... | Line 1088... | ||
| 1088 | 1088 | ||
| - | 1089 | ||
| - | 1090 | PROCEDURE ShowSearchPanel (goto: BOOLEAN); |
|
| - | 1091 | VAR |
|
| 1089 | 1092 | i: INTEGER; |
|
| - | 1093 | flag: BOOLEAN; |
|
| - | 1094 | BEGIN |
|
| - | 1095 | flag := FALSE; |
|
| - | 1096 | IF T.selected(text) & ~goto THEN |
|
| - | 1097 | T.getSelectedText(text, new_searchText); |
|
| - | 1098 | IF new_searchText # "" THEN |
|
| - | 1099 | i := 0; |
|
| - | 1100 | WHILE (new_searchText[i] # 0X) & (new_searchText[i] # Lines.TAB) DO |
|
| - | 1101 | INC(i) |
|
| - | 1102 | END; |
|
| - | 1103 | IF new_searchText[i] = 0X THEN |
|
| - | 1104 | searchText := new_searchText; |
|
| - | 1105 | EB.setValue(FindEdit, searchText); |
|
| - | 1106 | notFound := ~T.search(text, searchText, cs, whole); |
|
| - | 1107 | flag := TRUE |
|
| - | 1108 | END |
|
| 1090 | PROCEDURE ShowSearchPanel; |
1109 | END |
| 1091 | BEGIN |
1110 | END; |
| 1092 | IF ~search THEN |
1111 | IF ~search THEN |
| 1093 | Search |
1112 | Search |
| 1094 | ELSIF ~searchOpened THEN |
1113 | ELSIF ~searchOpened THEN |
| - | 1114 | search := FALSE; |
|
| - | 1115 | Search |
|
| - | 1116 | END; |
|
| - | 1117 | IF flag THEN |
|
| - | 1118 | SetFocus(FindEdit, FALSE) |
|
| - | 1119 | ELSIF goto THEN |
|
| - | 1120 | SetFocus(GotoEdit, TRUE) |
|
| 1095 | search := FALSE; |
1121 | ELSE |
| 1096 | Search |
1122 | SetFocus(FindEdit, TRUE) |
| Line 1097... | Line 1123... | ||
| 1097 | END |
1123 | END |
| Line 1303... | Line 1329... | ||
| 1303 | repaint |
1329 | repaint |
| 1304 | |menuRedo: |
1330 | |menuRedo: |
| 1305 | T.redo(text); |
1331 | T.redo(text); |
| 1306 | repaint |
1332 | repaint |
| 1307 | |menuFind: |
1333 | |menuFind: |
| 1308 | ShowSearchPanel; |
1334 | ShowSearchPanel(FALSE) |
| 1309 | SetFocus(FindEdit, TRUE) |
- | |
| 1310 | |menuFindNext: |
1335 | |menuFindNext: |
| 1311 | notFound := ~T.findNext(text, BKW.value); |
1336 | notFound := ~T.findNext(text, BKW.value); |
| 1312 | menuFindClicked := TRUE |
1337 | menuFindClicked := TRUE |
| 1313 | |menuFindPrev: |
1338 | |menuFindPrev: |
| 1314 | notFound := ~T.findNext(text, ~BKW.value); |
1339 | notFound := ~T.findNext(text, ~BKW.value); |
| 1315 | menuFindClicked := TRUE |
1340 | menuFindClicked := TRUE |
| 1316 | |menuGoto: |
1341 | |menuGoto: |
| 1317 | ShowSearchPanel; |
1342 | ShowSearchPanel(TRUE) |
| 1318 | SetFocus(GotoEdit, TRUE) |
- | |
| 1319 | |menuToggleBookmark: |
1343 | |menuToggleBookmark: |
| 1320 | T.toggleLabel(text) |
1344 | T.toggleLabel(text) |
| 1321 | |menuNextBookmark: |
1345 | |menuNextBookmark: |
| 1322 | T.gotoLabel(text, TRUE) |
1346 | T.gotoLabel(text, TRUE) |
| 1323 | |menuPrevBookmark: |
1347 | |menuPrevBookmark: |
| Line 1760... | Line 1784... | ||
| 1760 | ELSIF (keyCode = 15) & ctrl THEN (* ctrl+Tab *) |
1784 | ELSIF (keyCode = 15) & ctrl THEN (* ctrl+Tab *) |
| 1761 | key := -1; |
1785 | key := -1; |
| 1762 | SwitchTab((curText + 1) MOD textsCount) |
1786 | SwitchTab((curText + 1) MOD textsCount) |
| 1763 | ELSIF (keyCode = 33) & ctrl THEN |
1787 | ELSIF (keyCode = 33) & ctrl THEN |
| 1764 | key := -1; |
1788 | key := -1; |
| 1765 | ShowSearchPanel; |
1789 | ShowSearchPanel(FALSE) |
| 1766 | SetFocus(FindEdit, TRUE) |
- | |
| 1767 | ELSIF (keyCode = 34) & ctrl THEN |
1790 | ELSIF (keyCode = 34) & ctrl THEN |
| 1768 | key := -1; |
1791 | key := -1; |
| 1769 | ShowSearchPanel; |
1792 | ShowSearchPanel(TRUE) |
| 1770 | SetFocus(GotoEdit, TRUE) |
- | |
| 1771 | ELSE |
1793 | ELSE |
| 1772 | IF EditBox_Focus(FindEdit) THEN |
1794 | IF EditBox_Focus(FindEdit) THEN |
| 1773 | EB.key(FindEdit, key); |
1795 | EB.key(FindEdit, key); |
| 1774 | EditBox_GetValue(FindEdit, new_searchText); |
1796 | EditBox_GetValue(FindEdit, new_searchText); |
| 1775 | IF new_searchText # searchText THEN |
1797 | IF new_searchText # searchText THEN |
| Line 1903... | Line 1925... | ||
| 1903 | open |
1925 | open |
| 1904 | |btnSave: |
1926 | |btnSave: |
| 1905 | save(text); |
1927 | save(text); |
| 1906 | repaint |
1928 | repaint |
| 1907 | |btnSearch: |
1929 | |btnSearch: |
| 1908 | ShowSearchPanel |
1930 | ShowSearchPanel(FALSE); |
| - | 1931 | repaint |
|
| 1909 | |btnCloseSearch: |
1932 | |btnCloseSearch: |
| 1910 | Search |
1933 | Search |
| 1911 | |btnHideSearch: |
1934 | |btnHideSearch: |
| 1912 | HideSearch |
1935 | HideSearch |
| 1913 | |btnUndo: |
1936 | |btnUndo: |