Как сделать фон у текста прозрачным?

Для этого можно воспользоваться API функцией SetBkMode().

procedure TForm1.Button1Click(Sender: TObject);

var

 OldBkMode : integer;

begin

 with Form1.Canvas do begin

  Brush.Color := clRed;

  FillRect(Rect(0, 0, 100, 100));

  Brush.Color := clBlue;

  TextOut(10, 20, 'Not Transparent!');

  OldBkMode := SetBkMode(Handle, TRANSPARENT);

  TextOut(10, 50, 'Transparent!');

  SetBkMode(Handle, OldBkMode);

 end;

end;

Взято из http://forum.sources.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...