Rev 8772 | Rev 8859 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8772 | Rev 8848 | ||
|---|---|---|---|
| Line 26... | Line 26... | ||
| 26 | CB := Clipboard, Languages, |
26 | CB := Clipboard, Languages, |
| 27 | ChangeLog, Scroll, |
27 | ChangeLog, Scroll, |
| 28 | RW, Ini, box_lib, Icons; |
28 | RW, Ini, box_lib, Icons; |
| Line 29... | Line 29... | ||
| 29 | 29 | ||
| 30 | CONST |
30 | CONST |
| Line 31... | Line 31... | ||
| 31 | header = "CEdit (06-jun-2021)"; |
31 | header = "CEdit (14-jun-2021)"; |
| 32 | 32 | ||
| Line 33... | Line 33... | ||
| 33 | ShellFilter = ""; |
33 | ShellFilter = ""; |
| Line 269... | Line 269... | ||
| 269 | END Replaced; |
269 | END Replaced; |
| Line 270... | Line 270... | ||
| 270 | 270 | ||
| 271 | 271 | ||
| 272 | PROCEDURE toolbarIcons; |
272 | PROCEDURE toolbarIcons; |
| 273 | CONST |
273 | CONST |
| 274 | iconPad = (toolBtnSize - 16) DIV 2; |
274 | iconPad = (toolBtnSize - Icons.SIZE) DIV 2; |
| 275 | VAR |
275 | VAR |
| 276 | x, color: INTEGER; |
276 | x, color: INTEGER; |
| 277 | BEGIN |
277 | BEGIN |
| Line 444... | Line 444... | ||
| 444 | END SearchPanel; |
444 | END SearchPanel; |
| Line 445... | Line 445... | ||
| 445 | 445 | ||
| 446 | 446 | ||
| 447 | PROCEDURE draw_window; |
447 | PROCEDURE draw_window; |
| 448 | CONST |
448 | CONST |
| 449 | iconPad = (toolBtnSize - 16) DIV 2; |
449 | iconPad = (toolBtnSize - Icons.SIZE) DIV 2; |
| Line 450... | Line 450... | ||
| 450 | VAR |
450 | VAR |
| Line 1316... | Line 1316... | ||
| 1316 | END |
1316 | END |
| Line 1317... | Line 1317... | ||
| 1317 | 1317 | ||
| 1318 | |2: |
1318 | |2: |
| 1319 | key := K.GetKey(); |
1319 | key := K.GetKey(); |
| - | 1320 | getKBState; |
|
| - | 1321 | IF confirm THEN |
|
| - | 1322 | IF key DIV 65536 = 28 THEN (* Enter *) |
|
| - | 1323 | save; |
|
| - | 1324 | IF ~text.modified THEN |
|
| - | 1325 | K.Exit |
|
| - | 1326 | END; |
|
| - | 1327 | repaint |
|
| - | 1328 | END; |
|
| - | 1329 | key := -1 |
|
| 1320 | getKBState; |
1330 | END; |
| 1321 | IF key DIV 65536 = 61 THEN (* F3 *) |
1331 | IF key DIV 65536 = 61 THEN (* F3 *) |
| 1322 | key := -1; |
1332 | key := -1; |
| 1323 | IF search & (searchText # "") THEN |
1333 | IF search & (searchText # "") THEN |
| 1324 | IF T.SHIFT IN shift THEN |
1334 | IF T.SHIFT IN shift THEN |
| Line 1332... | Line 1342... | ||
| 1332 | IF T.CTRL IN shift THEN |
1342 | IF T.CTRL IN shift THEN |
| 1333 | Script(buildScript) |
1343 | Script(buildScript) |
| 1334 | ELSE |
1344 | ELSE |
| 1335 | Script(runScript) |
1345 | Script(runScript) |
| 1336 | END |
1346 | END |
| 1337 | ELSIF key DIV 65536 = 1 THEN |
1347 | ELSIF key DIV 65536 = 1 THEN (* Esc *) |
| 1338 | key := -1; (* Esc *) |
1348 | key := -1; |
| 1339 | IF search THEN |
1349 | IF search THEN |
| 1340 | Search |
1350 | Search |
| 1341 | END |
1351 | END |
| 1342 | ELSIF (key DIV 65536 = 55) & (key DIV 256 MOD 256 = 52) THEN |
1352 | ELSIF (key DIV 65536 = 55) & (key DIV 256 MOD 256 = 52) THEN |
| 1343 | key := -1 (* PrtScn *) |
1353 | key := -1 (* PrtScn *) |