for schliefe baut komische zeichen ein

[ghost007]

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.

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;

[fLaSh11]

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

[inherited]

Mach es doch mit Canvas und TextOut.

[fLaSh11]

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

[ghost007]

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.

[ghost007]

Zitat:

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?

[inherited]

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.

[ghost007]

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

[fLaSh11]

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

[ghost007]

Zitat:

Zitat von fLaSh11

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

hä ?! :gruebel:
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