Вывести текст на канву инверсным цветом

← →
Sulimxar © (2004-02-22 02:53) [0]

Подскажите, есть ли способ вывести текст на
канву инверсным цветом? (на канве уже прорисовано
некоторое изображение)
Пробовал Canvas.Pen.Mode := pmXor и т.д.
- но требуемого эффекта не получил,
а у canvas.Font - вообще ничего такого нет

← →
Max003 (2004-02-22 07:26) [1]

Удалено модератором

← →
Max003 (2004-02-22 07:40) [2]

Удалено модератором
Примечание: Лучше помолчать, если не знаешь

procedure TForm1.Button1Click(Sender: TObject);
var
r,g,b:byte;
c:DWORD;
begin
c:= ColorToRGB(canvas.Brush.Color);

//находим компоненты цвета
r:=c shr 16;
g:=(c and $FF00) shr 8;
b:=c and $0000FF;

//делаем инверсию
r:=255-r;
g:=255-g;
b:=255-b;

Canvas.Font.Color:=rgb(r,g,b);
Canvas.TextOut(10,10,"Simple text");

end;

Вывести текст на канву инверсным цветом Найти похожие ветки