Отрисовка текста на прозрачной форме

@TAZAQ · Регистрация: 28.01.2014

Author24 — интернет-сервис помощи студентам

Решил сделать себе простенький виджет - часы для второго экрана, но столкнулся с такой проблемой.

Код

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Refresh;
Canvas.TextOut(10,10,FormatDateTime('hh:mm',Time));
end;

Часть цвета который должен быть прозрачным остается на тексте.

Как решать эту проблему, какие компоненты или свойства могут помочь?

@FIL · 23.06.2014, 21:19

Задай "прозрачный" цвет максимально близким к цвету шрифта:

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Repaint;
  Canvas.TextOut(10, 10, FormatDateTime('hh:mm:ss', Time));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Font do
  begin
    Name := 'Arial';
    Size := 64;
    Style := Style + [fsBold];
    Color := clWhite;
  end;
 
  Color := Font.Color - 1;
  TransparentColorValue := Font.Color - 1;
  TransparentColor := True;
end;

	23.06.2014, 21:19