Laufschrift an Panelgröße anpassen

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