KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

Apps/Develop/CEDIT: a bit nicer tabs

Browse Source
This commit is contained in:
lipatov.kiril@gmail.com
2025-02-27 02:50:19 +02:00
parent b84c329f12
commit 5faa425e10
2 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
programs/develop/cedit/CEDIT
View File

Binary file not shown.

22
programs/develop/cedit/SRC/Tabs.ob07
View File

@@ -75,13 +75,23 @@ BEGIN
x2 := x + width - 1; x2 := x + width - 1;
y2 := y + height - 1; y2 := y + height - 1;
K.DrawRect(x, y, width, height, color); K.DrawLine(x, y + 1, x2 - 1, y + 1, K.colors.light);
K.DrawLine(x, y, x2, y, K.colors.line); //K.DrawRect(x, y + 2, width, height - 3, color); //seems to be unnecessary redraw
K.DrawLine(x2, y, x2, y2, K.colors.line); K.DrawLine(x2, y + 1, x2, y2, K.colors.line);
K.DrawLine(x2 - 1, y2, x, y2, K.colors.line);
IF id = t.current THEN
K.DrawLine(x + 1, y, x2 - 1, y, K.colors.line);
K.PutPixel(x, y, K.colors.dark);
K.PutPixel(x + 1, y + 1, K.colors.dark);
K.PutPixel(x2, y, K.colors.dark);
K.PutPixel(x2 - 1, y + 1, K.colors.dark)
ELSE
K.DrawLine(x, y, x2, y, K.colors.line)
END;
top := y + 3; top := y + 3;
IF id # t.current THEN IF id # t.current THEN
K.DrawLine(x2 - 1, y2, x, y2, K.colors.line);
closeColor := K.colors.button; closeColor := K.colors.button;
closeForeColor := K.colors.button_text closeForeColor := K.colors.button_text
ELSE ELSE
@@ -89,13 +99,13 @@ BEGIN
closeColor := btnCloseColor; closeColor := btnCloseColor;
closeForeColor := 0FFFFFFH closeForeColor := 0FFFFFFH
END; END;
K.DrawLine(x, y2, x, y, K.colors.line); K.DrawLine(x, y2, x, y + 1, K.colors.line);
K.DrawText866bk(x + K.fontWidth + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, textColor, color, s); K.DrawText866bk(x + K.fontWidth + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, textColor, color, s);
IF modified THEN IF modified THEN
K.DrawText866bk(x + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, modifColor, color, "*") K.DrawText866bk(x + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, modifColor, color, "*")
END; END;
K.CreateButton(id + ORD({30}) + btnID, x + 1, y - 1, width - 1, height - 1, 0, ""); K.CreateButton(id + ORD({30}) + btnID, x + 1, y + 1, width - 3, height - 3, 0, "");
left := x + width - btnCloseSize - 5; left := x + width - btnCloseSize - 5;
K.CreateButton(id + btnClose, left, top, btnCloseSize, btnCloseSize, closeColor, ""); K.CreateButton(id + btnClose, left, top, btnCloseSize, btnCloseSize, closeColor, "");
K.DrawLine(left + 5, top + 4, left + btnCloseSize - 4, top + btnCloseSize - 5, closeForeColor); K.DrawLine(left + 5, top + 4, left + btnCloseSize - 4, top + btnCloseSize - 5, closeForeColor);