Цвет

← →
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;

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