Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9175 → Rev 9174

/programs/develop/cedit/CEDIT
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programs/develop/cedit/SRC/CEdit.ob07
28,7 → 28,7
RW, Ini, box_lib, Icons, Tabs, Timer;
 
CONST
header = "CEdit (03-sep-2021)";
header = "CEdit (02-sep-2021)";
 
ShellFilter = "";
EditFilter = "SH|ASM|TXT|INC|OB07|C|CPP|H|PAS|PP|LUA|INI|JSON";
185,7 → 185,7
winWidth, winHeight: INTEGER;
AppPath, runScript, buildScript, debugScript: RW.tFileName;
OD: OpenDlg.Dialog;
confirm, notFound, menuFindClicked, search, searchOpened, modified: BOOLEAN;
confirm, notFound, search, searchOpened, modified: BOOLEAN;
 
switch, closing: BOOLEAN;
leftButton: BOOLEAN;
206,8 → 206,6
menuView, menuSyntax, menuProgram, menuTools,
subCurLine, subIndent, subCase, subBookmark: Menu.tMenu;
 
menuActive: BOOLEAN;
 
icons: INTEGER;
grayIcons: INTEGER;
 
310,11 → 308,7
BEGIN
IF notFound THEN
Message("not found");
IF menuFindClicked THEN
menuFindClicked := FALSE
ELSE
notFound := FALSE
END;
notFound := FALSE;
SetFocus(FindEdit, TRUE)
END
END NotFound;
335,41 → 329,32
END Replaced;
 
 
PROCEDURE drawIcon (icons, idx, x: INTEGER);
BEGIN
Icons.draw(icons, idx, x + iconPad, btnTop + iconPad)
END drawIcon;
 
 
PROCEDURE toolbarIcons;
VAR
x, color, ico: INTEGER;
x, color: INTEGER;
BEGIN
x := searchLeft + (toolBtnSize + 5)*2;
IF text.modified THEN
ico := icons
Icons.draw(icons, 5, x + iconPad, btnTop + iconPad)
ELSE
ico := grayIcons
Icons.draw(grayIcons, 5, x + iconPad, btnTop + iconPad)
END;
drawIcon(ico, 5, x);
 
IF text.edition # NIL THEN
x := searchLeft + (toolBtnSize + 5)*4 + toolbarDelim*2;
IF ChangeLog.isFirstGuard(text.edition) THEN
ico := grayIcons
Icons.draw(grayIcons, 37, x + iconPad, btnTop + iconPad)
ELSE
ico := icons
Icons.draw(icons, 37, x + iconPad, btnTop + iconPad)
END;
drawIcon(ico, 37, x);
 
x := searchLeft + (toolBtnSize + 5)*5 + toolbarDelim*2;
IF ChangeLog.isLastGuard(text.edition) THEN
ico := grayIcons
Icons.draw(grayIcons, 36, x + iconPad, btnTop + iconPad)
ELSE
ico := icons
Icons.draw(icons, 36, x + iconPad, btnTop + iconPad)
END
END;
drawIcon(ico, 36, x)
END;
 
IF T.selected(text) THEN
color := K.caseColor
386,19 → 371,16
 
x := searchLeft + (toolBtnSize + 5)*8 + toolbarDelim*4;
IF buildScript # "" THEN
ico := icons
Icons.draw(icons, 54, x + iconPad, btnTop + iconPad)
ELSE
ico := grayIcons
Icons.draw(grayIcons, 54, x + iconPad, btnTop + iconPad)
END;
drawIcon(ico, 54, x);
 
INC(x, toolBtnSize + 5);
IF runScript # "" THEN
ico := icons
Icons.draw(icons, 53, x + iconPad, btnTop + iconPad)
ELSE
ico := grayIcons
END;
drawIcon(ico, 53, x)
Icons.draw(grayIcons, 53, x + iconPad, btnTop + iconPad)
END
END toolbarIcons;
 
 
614,11 → 596,11
x := searchLeft;
 
drawToolbarBtn(btnNew, x);
drawIcon(icons, 2, x);
Icons.draw(icons, 2, x + iconPad, btnTop + iconPad);
INC(x, toolBtnSize + 5);
 
drawToolbarBtn(btnOpen, x);
drawIcon(icons, 0, x);
Icons.draw(icons, 0, x + iconPad, btnTop + iconPad);
INC(x, toolBtnSize + 5);
 
drawToolbarBtn(btnSave, x);
625,7 → 607,7
INC(x, toolBtnSize + 5 + toolbarDelim);
 
drawToolbarBtn(btnSearch, x);
drawIcon(icons, 49, x);
Icons.draw(icons, 49, x + iconPad, btnTop + iconPad);
INC(x, toolBtnSize + 5 + toolbarDelim);
 
drawToolbarBtn(btnUndo, x);
1244,9 → 1226,8
IF Menu.opened(menu) THEN
Menu.close(menu)
END;
Menu.open(menu, x, y);
menuActive := TRUE
END
Menu.open(menu, x, y)
END;
END ShowMenu;
 
 
1274,14 → 1255,8
ELSIF vScroll.Inc THEN
T.scroll(text, 0, 1)
END;
repaint;
 
IF menuActive THEN
draw_window;
menuActive := FALSE
ELSE
repaint
END;
 
IF (0 IN K.MouseState()) THEN
WHILE (0 IN K.MouseState()) & (delay > 0) DO
K.Pause(1);
1341,11 → 1316,9
ShowSearchPanel;
SetFocus(FindEdit, TRUE)
|menuFindNext:
notFound := ~T.findNext(text, box_lib.check_box_get_value(BKW));
menuFindClicked := TRUE
notFound := ~T.findNext(text, box_lib.check_box_get_value(BKW))
|menuFindPrev:
notFound := ~T.findNext(text, ~box_lib.check_box_get_value(BKW));
menuFindClicked := TRUE
notFound := ~T.findNext(text, ~box_lib.check_box_get_value(BKW))
|menuGoto:
ShowSearchPanel;
SetFocus(GotoEdit, TRUE)
2139,8 → 2112,6
T.SetPos(text, 0, 0);
confirm := FALSE;
notFound := FALSE;
menuFindClicked := FALSE;
menuActive := FALSE;
search := FALSE;
searchOpened := FALSE;
createSearchForm;
/programs/develop/cedit/SRC/KolibriOS.ob07
30,7 → 30,7
 
winColor*, textColor*, btnColor*, btnTextColor*,
toolbarColor*, scrollColor*, scrollBkColor*,
borderColor*, shadowColor*, darkColor*, lightColor*,
borderColor*, shadowColor*, (*darkColor*, lightColor*,*)
caseColor*, disCaseColor*: INTEGER;
 
 
339,11 → 339,16
VAR
buf: ARRAY 10 OF INTEGER;
BEGIN
toolbarColor := 0DFDFDFH;
shadowColor := 0808080H;
caseColor := 00000FFH;
disCaseColor := 0808080H;
 
ASSERT(LEN(buf) >= 10);
KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40);
 
darkColor := buf[2];
lightColor := buf[3];
(* darkColor := buf[2];
lightColor := buf[3];*)
winColor := buf[5];
textColor := buf[8];
btnColor := buf[6];
351,11 → 356,6
scrollColor := btnColor;
scrollBkColor := winColor;
borderColor := buf[9];
 
toolbarColor := 0DFDFDFH;
shadowColor := 0808080H;
caseColor := 00000FFH;
disCaseColor := 0808080H;
END GetSystemColors;
 
 
/programs/develop/cedit/SRC/Menu.ob07
76,11 → 76,8
resetTimer: tProc;
_open: PROCEDURE (m: tMenu; x, y: INTEGER);
redraw*: BOOLEAN;
(*
backColor, foreColor, selBackColor, selForeColor,
disBackColor, disForeColor, disSelBackColor, disSelForeColor: INTEGER;
*)
 
 
PROCEDURE isSender* (tid: INTEGER): BOOLEAN;
VAR
i: INTEGER;
110,17 → 107,6
canvas: G.tCanvas;
 
BEGIN
(*
backColor := K.winColor;
foreColor := K.textColor;
selBackColor := K.btnColor;
selForeColor := K.btnTextColor;
 
disBackColor := backColor;
disForeColor := K.darkColor;
disSelBackColor := K.lightColor;
disSelForeColor := disForeColor;
*)
canvas := m.canvas;
G.SetColor(canvas, backColor);
G.clear(canvas);
/programs/develop/cedit/SRC/Tabs.ob07
53,10 → 53,11
IF id = t.current THEN
INC(height, curTabHeight - tabHeight);
DEC(y, curTabHeight - tabHeight);
color := K.lightColor
(*color := K.lightColor
ELSE
color := K.winColor
color := K.darkColor*)
END;
color := K.winColor;
DEC(x); INC(width);
x2 := x + width - 1;
y2 := y + height - 1;
/programs/develop/cedit/SRC/Text.ob07
1123,8 → 1123,8
IF text.cursor.X > 0 THEN
i := text.cursor.X;
n := leadingSpaces(curLine);
IF n < i THEN
modify(text);
IF n < i THEN
move(text, -1);
delete(text)
ELSE
/programs/develop/cedit/README.TXT
0,0 → 1,35
Горячие клавиши:
 
ctrl+A выделить всё
ctrl+C копировать
ctrl+V вставить
ctrl+X вырезать
ctrl+L преобразовать буквы A..Z слева от курсора в a..z
ctrl+U преобразовать буквы a..z слева от курсора в A..Z
ctrl+F показать панель поиска
Esc закрыть панель поиска
F3 найти следующий
shift+F3 найти предыдущий
ctrl+Z отменить
ctrl+Y вернуть
ctrl+G перейти на строку...
ctrl+Del удалить строку
ctrl+D дублировать строку
ctrl+Up переместить строку вверх
ctrl+Down переместить строку вниз
 
ctrl+F2 установить/снять метку
F2 перейти к метке ниже
shift+F2 перейти к метке выше
 
ctrl+S сохранить
ctrl+O открыть
ctrl+N создать новый
ctrl+W закрыть файл
ctrl+Tab переключиться на следующую вкладку
 
ctrl+F9 компилировать
F9 выполнить
 
перемещение по тексту:
(ctrl+)Home, (ctrl+)End, (ctrl+)PageUp, (ctrl+)PageDown