VPF::Canvas.Font.Transparent - Форум программистов

kindDevil

Дата 29.8.2006, 21:38 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 10.10.2005

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

такое в природе бывает?
кокретно мне нужно выводить текст на канве поверх картинки. не хочется ее портить backgroundным цветом текста.
как можно это организовать?

Тьма

Дата 29.8.2006, 23:45 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

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

полный рабочий кусок

Код


var lf : TLogFont;
    bmp : TBitmap;
    Fnt : TFont;
begin
  fnt := TFont.Create;  //создаю шрифт
  fnt.Handle := CreateFont(30, 20, SpinEdit1.Value*10, SpinEdit1.Value*10, 0, 0, 0, 0, RUSSIAN_CHARSET, OUT_DEFAULT_PRECIS,
                   CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH + FF_DONTCARE, 'Biting'); // задаю параметры шрифта
  bmp := TBitmap.Create; // создаю битмап
  bmp.LoadFromFile('Monky2.bmp'); // загружаю рисунок
  SetBkMode(BMP.Canvas.Handle, TRANSPARENT);  //устанавливаю прозрачность для текста, и не только 
  SetGraphicsMode(bmp.Canvas.Handle, GM_ADVANCED);  //задаю расширеный режим
  bmp.Canvas.Font := fnt; // присваиваю нужный шрифт
  bmp.Canvas.Font.Name := 'MS Sans Self';
  bmp.Canvas.Font.Color := clRed;
  bmp.Canvas.TextOut(15, 15, Edit1.Text); //вывод текста
  paintbox1.Canvas.Draw(0, 0, bmp); 
  bmp.Free;
end;

Это сообщение отредактировал(а) Тьма - 30.8.2006, 00:02

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

Vir magni ingenii

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