Laufschrift an Panelgröße anpassen

[Sunlight7]

Zitat von Sunlight7:

Natürlich empfielt es sich, das Zeichnen zu optimieren, zB. zuerst auf ein Bitmap, damit es nicht flimmert.

Dann bist Du sicher, das nix flimmert und keine Streifen überbleiben, falls zB. der Nutzer eine andere Standardschrift(art/größe) hat.

[Sunlight7]

Zitat von NamenLozer:

(eleganter gings nicht...)

Es geht schon

Damit kann der Text mehrfach nebeneinander angezeigt werden:

Delphi-Quellcode:

const MyText='Ich wandere von rechts nach links ;-)  ';
      StepWidth=2;
      Space=10;
var x:Integer;
    TextWidth:Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
   x:=ClientWidth;
   TextWidth:=Canvas.TextWidth(MyText);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
   var temp:Integer;
begin
   Dec(x, StepWidth);
   Refresh;
   temp:=x;
   While temp<ClientWidth do begin
      Canvas.TextOut(temp, 0, MyText);
      Inc(temp, TextWidth+Space);
   end;
   If x<-TextWidth+Space then Inc(x, TextWidth+Space);
end;

[newuser01]

Delphi-Quellcode:

//funktioniert sehr gut nur nicht mit Buffer.Canvas.TextOut(temp, 0, sLaufSchrift);
while temp < PaintBox.Width do
begin
PaintBox.Canvas.TextOut(temp, 0, sLaufSchrift);
Inc(temp, TextWidth + Space);
end;

if x1 <- TextWidth + Space then Inc(x1, TextWidth + Space);

[newuser01]

Delphi-Quellcode:

//jetzt funktioniert es  :-D 
while temp < PaintBox.Width do
begin
PaintBox.Canvas.TextOut(temp, 0, sLaufSchrift);
Inc(temp, TextWidth + Space);
end;

bitblt(PaintBox.Canvas.Handle,1,1,PaintBox.Width,PaintBox.Height,Buffer.Canvas.Handle,0,0,Srccopy);

if x1 <- TextWidth + Space then Inc(x1, TextWidth + Space);

[Namenloser]

Hmm, aber bei einem größeren zwischenraum (Space = 100) funktioniert das nicht mehr ganz richtig. Der linke text verschwindet schon, bevor er ganz durchgelaufen ist.

[Sunlight7]

Zitat von NamenLozer:

Hmm, aber bei einem größeren zwischenraum (Space = 100) funktioniert das nicht mehr ganz richtig. Der linke text verschwindet schon, bevor er ganz durchgelaufen ist.

Das kommt davon, wenn man Code voher net ausprobiert, bzw. sieht man dann die "Macht" von ()

Lösung: If x<-(TextWidth+Space) then Inc(x, TextWidth+Space); Habs probiert, es läuft durch!