Цифровые часы без фона

[Roof]

пробую написать цифровые часы без фона.
вот написал код:

implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:= '';
Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:= '';
Label1.Caption:= TimeToStr(Time);
end;
end.

компилирую, часики идут, но вот только Label либо вообще не перерисовывается либо с опазданием, вобщем ужасный результат.
как реализовать перерисовку и чтоб не мерцал при этом текст? уже все чего мог перепробовал

[Vitaly59]

А зачем в таймере ты очищаеш Label1, ведь когда присваеваешь
Caption у Label, старое значение затирается. Вот у тебя у получается мерцание, т.к. он сначало очищаеть, затем снова пишет. А если убрать очистку, у тебя будет красивая замена цифр.

[Alex21]

 
Label1.Transparent:=true;
Timer1.Interval:=1000;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:= TimeToStr(Now);
end;

[Roof]

от мерцания вроде избавился, а вот код не помог все так же старые цифры не стираются.
Вот посмотрите в архиве, я сфотал результат.
А может и глюк видеокарты?

[Carbon]

А где Label1?

[Net]

Сообщение от Roof

от мерцания вроде избавился, а вот код не помог все так же старые цифры не стираются.
Вот посмотрите в архиве, я сфотал результат.
А может и глюк видеокарты?

Дык все ясно. Вы ставите у формы bsClear, вот она и не делает заливку перед выводом нового текста, а сразу новый выводит. вот время идет, текст меняется, и накладывается один на другой.

Сделайте как сказал Alex21, у label поставьте свойство Transparent:=True.

Да, а вы не забыли еще из FormCreate те две строчки грохнуть?

[Roof]

Сообщение от Carbon

А где Label1?

Вроде все на месте. В коде он есть.
или я неправильно вопрос ваш понял?

[Roof]

Сообщение от Net

Дык все ясно. Вы ставите у формы bsClear, вот она и не делает заливку перед выводом нового текста, а сразу новый выводит. вот время идет, текст меняется, и накладывается один на другой.

Сделайте как сказал Alex21, у label поставьте свойство Transparent:=True.

Да, а вы не забыли еще из FormCreate те две строчки грохнуть?

если убираю bsclear, то перерисовка нормально идет, но фон остается, форму видно, а мне нада, чтоб форма прозрачной была. Label1.Transparent:=true; я поставил.
И какие две строчки?
Может напишешь мне правильный код просто, а я по нему разберусь?

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:= '';
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;
  Label1.Transparent:=true;
  Timer1.Interval:=1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:= TimeToStr(Now);
end;
end.

[Alex21]

По моему ты хочешь вот это:

procedure DRAW;
var T:TTime;
begin
     T:=(Now);
     Form1.Canvas.Brush.Color:=clLime;
     Form1.Canvas.Pen.Color:=clLime;
     Form1.Canvas.Rectangle(0,0,Form1.Width,Form1.Height);
     Form1.Canvas.Brush.Style:=bsClear;
     Form1.Canvas.TextOut(0,0,TimeToStr(T));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     Form1.BorderStyle := bsNone;
     Form1.TransparentColorValue:=clLime;
     Form1.TransparentColor:=true;
     Timer1.Interval:=100;
     Form1.Canvas.Font.Color:=clRed;
     Form1.Canvas.Font.Size:=36;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     draw;
end;

Label c формы убери, оставь один Таймер, отрисовка будет прямо на форме. Настройки менять не обязательно, они меняются в FormCreate. (см. код)

[Net]

Все, понял что требуется, когда запустил.. абсолютно прозрачная форма..

вот посмотри мою прогру, там по таймеру вычисляется число (отсчет элементарный), по шрифту и по его размеру форме делается регион и устанавливается. форма таскабельная.

если оно, дам исходник