Laufschrift an Panelgröße anpassen

[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);