Pen : Farbe ändern

[Sebastian Nintemann]

hallo!

also ich hab ein simples Problem:

Ich erzeuge mit

Code:

 pen := CreatePen(PS_SOLID,5,rgb(r,g,b));

Einen Pen und setze ihn mit

Code:

  SelectObject(DC,pen);

in meinen dc ein. Wie kann ich nun die Farbe des Pens ändern?
Ich benutze Win9x.


Viele Grüße, Sebastian

[Daniel]

Du könntest via "GetObject" wieder auf den Pen zugreifen. Hierzu ein Auszug aus dem PSDK:

Code:

int GetObject(
  HGDIOBJ hgdiobj,  // handle to graphics object
  int cbBuffer,     // size of buffer for object information
  LPVOID lpvObject  // buffer for object information
);

"lpvObject" ist dann eine Referenz auf eine TLogPen-Struktur, welche u.A. die Farbe des Stiftes enthält. Damit müsstest Du sie dann ändern können. Und anschliessend ist bestimmt wieder ein Aufruf von "SelectObject(...)" nötig.

Vielleicht hilft's ja...


Grüße,
Daniel

[Luckie]

Wo ist das Problem? So wie du ihn erzeugt hast, einfach einen neuen einsetzen.

Aber nicht vergessen ihn mit DeleteObject wieder zu löschen.

[Sebastian Nintemann]

Danke schonmal für die Antworten, ich habs auch jetzt so gemacht dass ich jedesmal einen neuen Pen einsetze. Allerdings: Das ganze ist in einer Schleife (man malt quasi mit einem Stift der immer seine Farbe ändert (per random)). Die ersten 5 Sekunden geht das gut, dann ändert der Stift seine Farbe nicht mehr, hab keine Ahnung woran das liegt. Ich dachte es gäbe vielleicht etwas wie SetDCPenColor (das gibts nur in win NT/2000/XP).

[Luckie]

Kann daranliegen, dass ihm die Ressourcen ausgehen. Das Problem habe ich auch mit einem Programm. da wird in WM_PAINT gemalt und wenn man das Fenster so 30 - 50 mal minimiert und wieder hergstellt hat wars das mit den Farben.

Zeig uns doch mal deine Schleife.

Eventuell hilft es das Objekt erst wieder zu löschen.

[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

[OregonGhost]

Muss man das nicht eigentlich so machen:

Code:

pen := CreatePen(PS_SOLID,5,rgb(r,g,b)); 
oldPen = SelectObject(DC,pen); // <<-- hier, das meine ich      
{ Dein Code }
SelectObject(DC, oldPen); // <<-- und das auch 
DeleteObject(pen);

Zumindest steht im PSDK, dass man keine GDI-Objekte löschen soll, die noch in einen Gerätekontext selektiert sind. Also wird es vielleicht gar nicht gelöscht.
Konnte ich leider nicht nachprüfen, weil mein Taskmanager hat für das Testprogramm immer 38 Handles angezeigt, egal ob ich den immer freigegeben hab' oder nicht ;c)