| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вывести текст на канву инверсным цветом
Sulimxar © (2004-02-22 02:53:00)Подскажите, есть ли способ вывести текст на
канву инверсным цветом? (на канве уже прорисовано
некоторое изображение)
Пробовал Canvas.Pen.Mode := pmXor и т.д.
- но требуемого эффекта не получил,
а у canvas.Font - вообще ничего такого нет
Opilki_Inside (2004-02-22 21:50:00) [1]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;
Max003 (2004-02-22 07:40:00) [2]Удалено модератором
Примечание: Лучше помолчать, если не знаешь
Max003 (2004-02-22 07:26:00) [3]Удалено модератором
| |
