Скачать: CL | DM;

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

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

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

---

← →
Opilki_Inside ©   (2004-02-22 21:50) [3]

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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c