28,7 → 28,7 |
RW, Ini, box_lib, Icons; |
|
CONST |
header = "CEdit (06-jun-2021)"; |
header = "CEdit (14-jun-2021)"; |
|
ShellFilter = ""; |
EditFilter = "SH|ASM|TXT|INC|OB07|C|CPP|H|PAS|PP|LUA|INI"; |
271,7 → 271,7 |
|
PROCEDURE toolbarIcons; |
CONST |
iconPad = (toolBtnSize - 16) DIV 2; |
iconPad = (toolBtnSize - Icons.SIZE) DIV 2; |
VAR |
x, color: INTEGER; |
BEGIN |
446,7 → 446,7 |
|
PROCEDURE draw_window; |
CONST |
iconPad = (toolBtnSize - 16) DIV 2; |
iconPad = (toolBtnSize - Icons.SIZE) DIV 2; |
VAR |
width, height, x, y: INTEGER; |
|
1318,6 → 1318,16 |
|2: |
key := K.GetKey(); |
getKBState; |
IF confirm THEN |
IF key DIV 65536 = 28 THEN (* Enter *) |
save; |
IF ~text.modified THEN |
K.Exit |
END; |
repaint |
END; |
key := -1 |
END; |
IF key DIV 65536 = 61 THEN (* F3 *) |
key := -1; |
IF search & (searchText # "") THEN |
1334,8 → 1344,8 |
ELSE |
Script(runScript) |
END |
ELSIF key DIV 65536 = 1 THEN |
key := -1; (* Esc *) |
ELSIF key DIV 65536 = 1 THEN (* Esc *) |
key := -1; |
IF search THEN |
Search |
END |