Текущий архив: 2002.11.04;
Скачать: CL | DM;

Вниз

Цвет   Найти похожие ветки 

← →
VKS   (2002-07-10 15:24) [0]

Уважаемые коллеги, помогите обратить цвет TColor.
Короче, рисую линию (Pen.Mode=pmNot).
Сверху текст. Хочется таким же цветом.
(not Color не помогает)

---

← →
MBo ©   (2002-07-10 16:13) [1]

canvas.pen.mode:=pmNot;
canvas.pen.width:=5;
canvas.moveto(100,100);
canvas.lineto(200,200);
canvas.font.Size:=24;
canvas.Font.color:=(not form1.color) and $FFFFFF;
canvas.textout(10,10,"234");

---

← →
VKS   (2002-07-10 18:27) [2]

> MBo

Спасибо!

---

← →
MJH ©   (2002-07-11 02:11) [3]

function invert(col:tcolor):TColor;
begin
Result:=RGB(255-GetRValue(col),
255-GetGValue(col),
255-GetBValue(col));
end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c