Bumping Text

[theomega]

hy
wo ist der Denkfehler in diesem Code:

Delphi-Quellcode:

procedure maindraw(var dcdbl:HDC;width,heigth:integer);
var  Pen: HPEN;  // Handle für Zeichenstift
s:pchar;
begin;

  l := l+shift;

  s := 'Dies ist ein Test';
  TextOut(dcdbl,l,20,s,length(s));

  Pen := CreatePen(PS_SOLID, 1, RGB(75,0,255));
  SelectObject(dcdbl, Pen);

  if (shift>width) then shift := shift*(-1);

end;

einmal (am Anfang) wird diese Procedure ausgeführt:

Delphi-Quellcode:

procedure initvars(var dcdbl:HDC;width,heigth:integer);
begin;
l := 10;
shift := 10;
end;

Theoretisch sollte jetzt der Text an den rechten Seite abspringen. Tut er aber nicht. Er "fährt" aus dem Bildschirm raus!

Danke

to