Laufschrift ohne sofort wieder den Anfang zu sehen

[Helmi]

Hallo,

Sorry dass ich schon wieder eine Laufschrift-Frage stellen muss, aber ich möchte gerne eine Laufschrift programmieren, die den Text von rechts nach links anzeigt.
Aber wenn das Ende des Textes kommt, dann soll nicht gleich wieder der erste Buchstabe des Strings zu sehen sein, sondern erst wieder, wenn der komplette String einmal durchgelaufen ist.

Weiss jemand wie man das programmieren könnte?

[Aenogym]

hi,

also spontan so:

Delphi-Quellcode:

//einen timer und ein label aufs form setzen

//folgendes im timer:
if label1.left > (label1.width)* -1 then
  label1.left := label1.left - 1
else
  label1.left := form1.clientwidth;

sollte klappen wie ein normales HTML-marquee.

Aenogym

[Helmi]

Hallo,

danke - aber ich hab vergessen zu erwähnen, dass der Text in einer Statusbar ist und dort kann ich das nicht mit left machen, es müssten also die Buchstaben bewegt werden.

[Aenogym]

könntest ja versuchen, es im canvas mit TextOut zu zeichnen. und eben die X-koordinate wie die left-property benutzen.

Aenogym

[Helmi]

hättest du da vielleicht ein kleines Beispielchen?

*liebguck* :angel2:

[gsh]

Ich kenn mich zwar nicht so gut mit laufstrings aus aber ich mir ist spotan eingefallen des man einfach ein paar leerzeichen am schluss dazu macht. des kann man dann auch noch verbessern in dem man abfragt wie breit ein leerzeichen ist und dann sich die breite vom Fenster nimmt und soviele leerzeichen hinzufügt wie notwendig. :thumb:

gsh

[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 :thumb:

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

[Helmi]

Hallo,

ich bin jetzt mal ganz frech: Dein Beispiel ist ganz nett und geht auch, nur sollte halt die Statusbar ned übermalt werden und der Text soll nur in einem Statusbar-Feld laufen

[Aenogym]

ja update. übermalt wird nichtmehr und das mit dem feld kannst du slebst amchen. musst lediglich die koordinaten einschränken.

das traue ich dir zu ;)

Aenogym

[Helmi]

Zitat:

Zitat von Aenogym

das traue ich dir zu ;)

Endlich jemand der an mich glaubt :oops: :wink: