Farbe unterm Mauscursor

[Kekskiller]

Suche eine Funktion, die mir die/den Farbwert/Farbwerte zurückgibt, der im Moment unter der Maus ist. Am besten so in der Art:

Code: Alles auswählen

col = GetColorUnderMouse()

Danke schonmal im Voraus.

[MVXA]

Code: Alles auswählen

Procedure GetColorUnderMouse()
    DefType.l imgPoint, lngDC, lngMemDC, lngColor
    DefType.POINT CursorPos
    
    GetCursorPos_(@CursorPos)
    lngDC = GetDC_(0) 
    
    imgPoint = CreateImage(#PB_Any, 5, 5)
    lngMemDC = CreateCompatibleDC_(lngDC)
    SelectObject_(lngMemDC, ImageID())
    BitBlt_(lngMemDC, 0, 0, 5, 5, lngDC, CursorPos\x, CursorPos\y, #SRCCOPY)
    DeleteDC_ (lngMemDC)
    ReleaseDC_(0, lngDC) 
    
    If StartDrawing(ImageOutput())
        lngColor = Point(1, 1)
        StopDrawing()
    EndIf 
    
    ProcedureReturn lngColor
EndProcedure

Das hier sollte fürs erste reichen . Was bekomme ich jetzt ?

[Rings]

sorry, konnte ich nich wiederstehen:

Windows-Api version:

Code: Alles auswählen

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

Debug Hex(GetColorUnderMouse())

[MVXA]

ach menno -_-. Gut in der MSDN rum gesurft -_-...

[Kekskiller]

*freu* Kekse für alle !

[Kaeru Gaman]

seit ihr denn sicher, daß wirklich die Farbe unter dem Maus-Zeiger ermittelt wird,
und nicht die Farbe des Maus-Zeigers selbst?

[Rings]

seit ihr denn sicher, daß wirklich die Farbe unter dem Maus-Zeiger ermittelt wird,
und nicht die Farbe des Maus-Zeigers selbst?

ja, bewege einfach die mouse und drück F5 in PB .

[DarkDragon]

Naja, aber man sollte doch ein DC auch immer wieder releasen, oder etwa nicht?

Code: Alles auswählen

Procedure GetColorUnderMouse()
 GetCursorPos_(@CursorPos.POINT )
 hDC = GetDC_(0)
 If hDC <> 0
 Color = GetPixel_(hDC,CursorPos\x,CursorPos\y)
 ReleaseDC_(0, hDC)
 ProcedureReturn Color
 EndIf
EndProcedure

Debug Hex(GetColorUnderMouse())

[EDIT] Und testen ob das hDC gültig ist wäre auch empfehlenswert .

[Andre]

Wenn wir schon beim Code vergrößern sind, dann gleich noch die Rückgabewerte in jedem brauchbaren Format:

Code: Alles auswählen

Procedure GetColorUnderMouse() 
  GetCursorPos_(@CursorPos.POINT ) 
  hDC = GetDC_(0) 
  If hDC <> 0 
    Color = GetPixel_(hDC,CursorPos\x,CursorPos\y) 
    ReleaseDC_(0, hDC) 
    ProcedureReturn Color 
  EndIf 
EndProcedure 

color.l = GetColorUnderMouse()

Debug "Color:"
Debug color

Debug "Color in Hex format:"
Debug Hex(color)

Debug "Color in RGB values:"
Debug Red(color)
Debug Green(color)
Debug Blue(color)