VPF::Половина белым, половина черным

Понедельник

Дата 12.1.2004, 10:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Часть канваса должна быть черной, другая - белой, а текст поверху. Естественно, чтобы текст нормально читался, та часть, что на черном фоне должна быть белой, и наоборот (примерно, как на индикаторе с процентами).
Как это можно изобразить?

stab

Дата 12.1.2004, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: нет
Всего: 48

примерно так:

Код


procedure TForm1.FormPaint(Sender: TObject);
begin
  Color := clWhite;
  Canvas.TextOut(100, 100, 'Some text');
  Canvas.Pen.Mode := pmNot;
  Canvas.Rectangle(116, 100, 150, 115);
end;

--------------------

6, 6, 6 - the number of the beast.

Kesh

Дата 12.1.2004, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 1
Всего: 54

Цитата(cully @ 12.1.2004, 08:45)

примерно так:

Код


procedure TForm1.FormPaint(Sender: TObject);
begin
  Color := clWhite;
  Canvas.TextOut(100, 100, 'Some text');
  Canvas.Pen.Mode := pmNot;
  Canvas.Rectangle(116, 100, 150, 115);
end;

или так:

Код


procedure TForm1.FormPaint(Sender: TObject);
begin
  Color := clWhite;
  Canvas.Rectangle(116, 100, 150, 115);
  Canvas.Pen.Mode := pmXOR;
  Canvas.TextOut(100, 100, 'Some text');
end;

--------------------

Понедельник

Дата 15.1.2004, 11:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А если то же самое, но вместо черного чтоб был синий цвет, например.

Kesh

Дата 15.1.2004, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 1
Всего: 54

Вывод XOR-ом производится по методу булевого побитового отрицания... т.е. Если у тебя Поверх белого фона (#FFFFFF) выводится желтый текст (#FFFF00) то в итоге получится синий цвет (#0000FF) на все том же белом фоне.

Операция побитового сксоривания работает c каждым битом цвета так

Код

a | b | xor
-----------
0 | 0 |  0
0 | 1 |  1
1 | 0 |  1
1 | 1 |  0

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »