Maus auf Farbwert setzen

[Fox]

Hi, hab mal wieder ein Problm.
Ich will meine Mauscursor auf einen Bestimmten Farbwert setzen, den ich hiermit ermittle:

Code: Alles auswählen

Procedure GetColorUnderMouse() 
 GetCursorPos_(@CursorPos.POINT ) 
 ProcedureReturn GetPixel_(GetDC_(0),CursorPos\x,CursorPos\y)  
EndProcedure 

Debug Hex(GetColorUnderMouse())

Den Courser kann ich ja mit

Code: Alles auswählen

SetCursorPos_()

auf einen Position setzen, aber wie mache ich das mit dem Farbwert?

Hoffe ihr wisst was ich meine und könnt mir helfen

MfG
Fox

[#NULL]

willst du mit der maus zu einem punkt mit einer bestimmten farbe springen?

[NicTheQuick]

Der Cursor ist ein Bild und nicht einfach nur eine Farbe. Du musst also ein
Bild zeichnen und es dem Cursor zuweisen. Dazu gibt es auch genügend
Beispiele in der PureArea oder hier im Forum.

[DarkDragon]

Du meinst sowas?

Code: Alles auswählen

Procedure GetColorUnderMouse()
  Protected CursorPos.POINT
  Protected Result.l
  Protected hDC.l
  
  hDC = GetDC_(0)
  GetCursorPos_(@CursorPos.POINT)
  Result = GetPixel_(hDC, CursorPos\x, CursorPos\y)
  ReleaseDC_(0, hDC)
  
  ProcedureReturn Result
EndProcedure

Procedure SetColorUnderMouse(Color.l)
  Protected CursorPos.POINT
  Protected hDC.l
  
  hDC = GetDC_(0)
  GetCursorPos_(@CursorPos.POINT)
  SetPixel_(hDC, CursorPos\x, CursorPos\y, Color)
  ReleaseDC_(0, hDC)
EndProcedure

Debug Hex(GetColorUnderMouse())

t = ElapsedMilliseconds()
While ElapsedMilliseconds() - t < 2000
  SetColorUnderMouse(RGB(255, 0, 0))
Wend

Btw.: Dein Code sollte nach GetDC_() immer schön brav ReleaseDC_() aufrufen, ansonsten wird es sehr speicherfressend wenn du es mehrfach aufrufst.

[Fox]

hi... also ich meine das so, dass wenn jetzt auf meinem bildschirm der cursor irgendwo ist, und sobald eine icq nachricht eingeht, da blinkt ja dann in der taskleiste der kleine icon, der cursor auf das kleine icon gesetzt wird.
wie mach ich das denn?

Danke euch

Fox

[KeyKon]

Um das nochmal Klar zu stellen:
Du willst sobald eine ICQ-Nachricht eintrifft den Coursor auf die Koordinaten der blinkende Meldung setzen, und das ganze an Hand des Farbwertes?

[Fox]

ja... also das mit icq war nur als beispiel, aber ja sonst stimmt die beschreibung

[KeyKon]

Aber dann müsstest du ja den ganzen Bildschirm nach dem Farbwert absuchen

[Fox]

stimmt, aber wie mach ich das denn?

[KeyKon]

Is doch Simpel, folgender Code ließt zB die Screen in ein Array ein, aber wie gesagt, schnell is das nich...

Code: Alles auswählen

Width = 1280
Height = 1024

Dim Screen.l(Width,Height)

hDC = GetDC_(0) 
For x = 0 To Width
  For y = 0 To Height
    Screen(x,y) = GetPixel_(hDC, x, y) 
  Next
Next
ReleaseDC_(0, hDC) 

(Das Prinzip GetPixel_(dc,x,y) geht eigentlich schon aus DarkDragons Post hervor)