Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Графика / Как разместить прозрачную надпись на TBitmap?

Как разместить прозрачную надпись на TBitmap?

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
   OldBkMode : integer;
begin
   Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
   OldBkMode := SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,TRANSPARENT);
   Image1.Picture.Bitmap.Canvas.TextOut(10, 10, 'Hello');
   SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,OldBkMode);
end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru