| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цвет [D6, WinXP]

VKS ©   (2002-07-10 15:24:00) 

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

---

MJH   (2002-07-11 02:11:00) [1]

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

---

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

> MBo

Спасибо!

---

MBo   (2002-07-10 16:13:00) [3]

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");

---

Наверх