Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9627 → Rev 9628

/programs/develop/cedit/SRC/Tabs.ob07
1,5 → 1,5
(*
Copyright 2021 Anton Krotov
Copyright 2021, 2022 Anton Krotov
 
This file is part of CEdit.
 
61,9 → 61,9
IF id = t.current THEN
INC(height, curTabHeight - tabHeight);
DEC(y, curTabHeight - tabHeight);
color := K.lightColor
color := K.colors.light
ELSE
color := K.winColor
color := K.colors.work
END;
DEC(x); INC(width);
x2 := x + width - 1;
70,16 → 70,16
y2 := y + height - 1;
 
K.DrawRect(x, y, width, height, color);
K.DrawLine(x, y, x2, y, K.borderColor);
K.DrawLine(x2, y, x2, y2, K.borderColor);
K.DrawLine(x, y, x2, y, K.colors.line);
K.DrawLine(x2, y, x2, y2, K.colors.line);
IF id # t.current THEN
K.DrawLine(x2 - 1, y2, x, y2, K.borderColor);
K.DrawLine(x2 - 1, y2, x, y2, K.colors.line);
END;
K.DrawLine(x, y2, x, y, K.borderColor);
K.DrawLine(x, y2, x, y, K.colors.line);
 
K.DrawText866bk(x + K.fontWidth + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, K.textColor, color, s);
K.DrawText866bk(x + K.fontWidth + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, K.colors.work_text, color, s);
IF modified THEN
K.DrawText866bk(x + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, K.textColor, color, "*")
K.DrawText866bk(x + K.fontWidth DIV 2, y + (height - K.fontHeight) DIV 2, K.colors.work_text, color, "*")
END;
K.CreateButton(id + ORD({30}) + btnID, x + 1, y - 1, width - 1, height - 1, color, "");
END drawTab;
115,13 → 115,13
BEGIN
y := t.y;
x := t.x;
K.DrawRect(x, y - (curTabHeight - tabHeight), t.width + (2*scrWidth + 2), t.height + (curTabHeight - tabHeight) - 1, K.winColor);
K.DrawRect(x, y - (curTabHeight - tabHeight), t.width + (2*scrWidth + 2), t.height + (curTabHeight - tabHeight) - 1, K.colors.work);
IF Width(t, 0, t.strings.count - 1) > t.width THEN
INC(x, 2*scrWidth);
K.DeleteButton(btnLeft);
K.DeleteButton(btnRight);
K.CreateButton(btnLeft, t.x, y, scrWidth, t.height - 1, K.btnColor, "<");
K.CreateButton(btnRight, t.x + scrWidth, y, scrWidth, t.height - 1, K.btnColor, ">");
K.CreateButton(btnLeft, t.x, y, scrWidth, t.height - 1, K.colors.button, "<");
K.CreateButton(btnRight, t.x + scrWidth, y, scrWidth, t.height - 1, K.colors.button, ">");
scroll := TRUE
ELSE
t.first := 0;
145,8 → 145,8
t.first := n
END;
 
K.DrawRect(x, y, t.width, t.height - 1, K.winColor);
K.DrawLine(x, y + tabHeight - 1, x + t.width - 1 + 2*scrWidth*(1 - ORD(scroll)), y + tabHeight - 1, K.borderColor);
K.DrawRect(x, y, t.width, t.height - 1, K.colors.work);
K.DrawLine(x, y + tabHeight - 1, x + t.width - 1 + 2*scrWidth*(1 - ORD(scroll)), y + tabHeight - 1, K.colors.line);
item := List.getItem(t.strings, t.first);
n := t.first;
WHILE (item # NIL) & (x <= xmax) DO