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