Laufschrift ohne sofort wieder den Anfang zu sehen

[Aenogym]

hi,

jo hab mal schnell nen kleines beispielchen gezimmert. problem ist nur, dass die statusbar "überzeichnet" wird. also dadrunter ist zum beispiel der grip weg und so..... musst mal noch etwas verbessern

edit: update: jetzt gehts

Delphi-Quellcode:

//x im public bereich des forms als integer deklarieren
//timer-intervall auf 20 oder so
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  statusbar1.repaint;

  if x > statusbar1.canvas.TextWidth('hallo')*-1 then
  begin
    statusbar1.Canvas.TextOut(x, 2, 'hallo');
    dec(x);
  end
  else
    x := statusbar1.ClientWidth;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  statusbar1.Canvas.Font.Color := clBlue;
  statusbar1.canvas.Brush.Style := bsclear;
  statusbar1.Canvas.Font.Size := 12;
end;

Aenogym