Rev 8859 | Rev 9050 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8859 | Rev 9010 | ||
|---|---|---|---|
| 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 (15-jun-2021)"; |
31 | header = "CEdit (06-jul-2021)"; |
| 32 | 32 | ||
| Line 33... | Line 33... | ||
| 33 | ShellFilter = ""; |
33 | ShellFilter = ""; |
| Line 343... | Line 343... | ||
| 343 | IF confirm THEN |
343 | IF confirm THEN |
| 344 | K.DeleteButton(btnYes); |
344 | K.DeleteButton(btnYes); |
| 345 | K.DeleteButton(btnNo); |
345 | K.DeleteButton(btnNo); |
| 346 | confirm := FALSE |
346 | confirm := FALSE |
| 347 | END; |
347 | END; |
| - | 348 | IF ~search THEN |
|
| - | 349 | T.wordSel(text) |
|
| - | 350 | END; |
|
| 348 | T.draw(text); |
351 | T.draw(text); |
| 349 | K.ClientSize(width, height); |
352 | K.ClientSize(width, height); |
| 350 | y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2; |
353 | y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2; |
| 351 | K.DrawRect(LEFT, TOP + canvas.height + scrollWidth - 1, 16*fontWidth, BOTTOM - scrollWidth + 1, K.winColor); |
354 | K.DrawRect(LEFT, TOP + canvas.height + scrollWidth - 1, 16*fontWidth, BOTTOM - scrollWidth + 1, K.winColor); |
| 352 | WritePos(y); |
355 | WritePos(y); |
| Line 1284... | Line 1287... | ||
| 1284 | new_searchText := ""; |
1287 | new_searchText := ""; |
| 1285 | searchText := ""; |
1288 | searchText := ""; |
| 1286 | cs := FALSE; |
1289 | cs := FALSE; |
| 1287 | whole := FALSE; |
1290 | whole := FALSE; |
| 1288 | replaced := 0; |
1291 | replaced := 0; |
| - | 1292 | Ini.getStr("paths", "build", buildScript); |
|
| - | 1293 | Ini.getStr("paths", "run", runScript); |
|
| - | 1294 | Ini.getStr("paths", "debug", debugScript); |
|
| 1289 | draw_window; |
1295 | draw_window; |
| 1290 | repaint; |
1296 | repaint; |
| 1291 | buildScript := ""; |
- | |
| 1292 | runScript := ""; |
- | |
| 1293 | debugScript := ""; |
- | |
| 1294 | WHILE TRUE DO |
1297 | WHILE TRUE DO |
| 1295 | CASE K.WaitForEvent() OF |
1298 | CASE K.WaitForEvent() OF |
| 1296 | |1: |
1299 | |1: |
| 1297 | FOR i := 0 TO 1 DO |
1300 | FOR i := 0 TO 1 DO |
| 1298 | K.GetSystemColors; |
1301 | K.GetSystemColors; |
| Line 1403... | Line 1406... | ||
| 1403 | |24: key := -1; |
1406 | |24: key := -1; |
| 1404 | open |
1407 | open |
| 1405 | |30: key := ORD("A") |
1408 | |30: key := ORD("A") |
| 1406 | |31: key := -1; |
1409 | |31: key := -1; |
| 1407 | save |
1410 | save |
| - | 1411 | |32: key := ORD("D") |
|
| 1408 | |38: key := ORD("L") |
1412 | |38: key := ORD("L") |
| 1409 | |44: T.undo(text); |
1413 | |44: T.undo(text); |
| 1410 | key := -1 |
1414 | key := -1 |
| 1411 | |45: key := ORD("X") |
1415 | |45: key := ORD("X") |
| 1412 | |46: key := ORD("C") |
1416 | |46: key := ORD("C") |