Hallo,
ich will mit folgendem code einen text wie ein news flash durchlaufen lassen,
aber irgendwie kommen komische zeichen, nach dem dertext zu ende ist und nur noch durchlaufen soll.

zusammenfalten · markieren

Delphi-Quellcode:

      title:=ExtractFileName(wc.GetFileNameByPlaylistPos(wc.PlaylistPos));
      Label10.Caption:=title;
      if Label10.GetTextLen >38 then
       begin
        Title:='';
        Label12.Caption:='';
        RestCount:=Label10.GetTextLen-38;
        for i:=(1+count) to (38+rest) do
         begin
          temp:=Label10.Caption;
          Label12.Caption:=Label12.Caption+temp[i];
         end;
        count:=count+1;
        rest:=rest+1;
        if count = Label10.GetTextLen then
         begin
          count:=0;
          rest:=0;
         end;
       end;

Aber der Text wird so eingeblendet, wie du es willst?

Mach es doch mit Canvas und TextOut.

Wie wär's mit nem Label2.Repaint in deiner for-Schleife?

hallo,
mit repaint geht es nicht hab ich schon getestet.
Im anhang ein screen von dem fehler.
Ab dem .mp3 sollte eigentlich nichts mehr kommen.

Zitat von inherited:

Mach es doch mit Canvas und TextOut.

ich benutzt die label dann um das auf ein canvas zu zeichne.
wie kann ich das direkt machen?

Zeichne auf das Canvas deiner Form oder was auch immer du benutzt. TextOut hat 3 parameter: X,Y und den Text. Jetzt könntest du in jedem Schleifendurchlauf X um i*Zeichenbreite verkleinern und schon läuft dein Text durch.

hm, das problem ist nur, das ich um das canvas einen ramen zeichne, so würde der ramen dann hab einen buchstaben verdecken

Mach das Ganze größer und rutsche die Buchstaben weiter in die Mitte

Zitat von fLaSh11:

Mach das Ganze größer und rutsche die Buchstaben weiter in die Mitte

hä ?!
er meinte doch das ich die buchstaben quasi aus dem canvas rauszeichen d.h. das sie linksbzw. rechts verschwinden. aber wenn ich es ezz größer mach, dann verschwinden die buchstaben net. oO