Pen : Farbe ändern

[Sebastian Nintemann]

Also, die Schleife:

Code:

 
for i := 1 to 1000 do
    begin
      pen := CreatePen(PS_SOLID,5,rgb(r,g,b));
      SelectObject(DC,pen);

      GetCursorPos(p);
      LineTo(DC,p.x,p.y);
      r := r+random(21)-10;
      g := g+random(21)-10;
      b := b+random(21)-10;

      if r<0 then r:=0 else if r>255 then r:=255;
      if g<0 then g:=0 else if g>255 then g:=255;
      if b<0 then b:=0 else if b>255 then b:=255;

      sleep(100);
      WriteLn(inttostr(r)+' '+inttostr(g)+' '+inttostr(b));
      
      DeleteObject(pen);   
    end;

Dabei verbessert oder verschlechtert sich das Ergebnis bei variationen wie zb weglassen oder hinzufügen von sleep, mit verschiedenen millisekunden Zahlen, durch hinzufügen von WriteLn (ist ne Konsole), durch ändern der Durchlaufzahl etc.

r, g und b machen das was ich will, nämlich sich dauernd ändern, nur die angezeigte Farbe ändert sich mal garnicht, mal nur in den ersten Sekunden so wie es sein sollte, und danach garnicht mehr, oder mal nach ein paar Sekunden schlagartig. ISt wohl zu schnell für den armen Computer,lol

Ach ja, habs auch mit und ohne DeleteObject versucht, passiert nichts.

Gruß Sebastian