A betűk azért "csúsznak" néha egymásra, mert nem az előzőleg kiírt betű TextWidth-jét veszed alapul az X pozíció meghatározásakor, hanem az aktuálisan kiírandóét.

Sziasztok!

Nagyon nyúbi vagyok (a delphi és egyéb) programozásban, de szeretnék minél többet megtudni. Most a „typewriter effect” kérdéskörében ütköztem egy olyan problémába, melyhez sehol sem találok adalékot, és saját kútfőből sem tudom megoldani a dolgot.
Van az alábbi forráskódom:
procedure HorizontalTypewriter(text: string; image1: timage; delay, space: integer );
var
x,y,i: integer;
begin
image1.Canvas.Refresh;
application.ProcessMessages;
x := 1;

for i := 1 to length(text) do begin
application.ProcessMessages;
y := image1.Picture.Height div 20 - (image1.Canvas.TextHeight(text[i]) div 20);
x := x+image1.Canvas.TextWidth(text[i])+space;

image1.Canvas.Font.Color:=clRed;
image1.Canvas.Font.Name := 'ARIAL';
image1.Canvas.Font.Height:= -13;

image1.Canvas.TextOut(x,y,text[i]);
sleep(delay);
end;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
HorizontalTypewriter ('Mindig jólesik egy kis segítség', image1, 120,4 );
end;
end.
Na most betűszínt, méretet stb. tudok változtatni, viszont két fő gondom van:
1. A betűk nem szimmetrikusan következnek egymás után, hanem egyik rácsúszik a másikra stb.
Hogyan lehetne ezt korrigálni?
2. Hogyan tudnék további sorokat írni a fenti alá, ugyanilyen „írógép-stílusban”?
Nagy köszönet minden építő jellegű tanácsért, segítségért!
Üdv. D.