Color Picker

[SMcNeill]

One of my most useful little ten minute programs that I've came up with for a while, though this is for Windows Only:

Code: (Select All)

Dim WinMse As POINTAPI

Type POINTAPI: As Long X_Pos, Y_Pos: End Type



Declare Dynamic Library "User32"

    Function GetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long)

    Function SetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

    Function GetAsyncKeyState% (ByVal vkey As Long)

    Function GetCursorPos (lpPoint As POINTAPI)

End Declare

Width 12, 1 'large enough to hold our color value in hex

GWL_STYLE = -16

ws_border = &H800000

WS_VISIBLE = &H10000000

_Title "Color Picker"

hwnd& = _WindowHandle

winstyle& = GetWindowLongA&(hwnd&, GWL_STYLE)

_Delay .2

a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& And WS_VISIBLE)



Color 15

Do

    _Limit 30

    z = GetCursorPos(WinMse)

    _ScreenMove WinMse.X_Pos + 1, WinMse.Y_Pos + 1

    tempimage = _ScreenImage

    Cls , 0

    _Source tempimage: Print Hex$(Point(WinMse.X_Pos, WinMse.Y_Pos));: _Source 0

    _FreeImage tempimage

    _Display

Loop Until GetAsyncKeyState(1) Or GetAsyncKeyState(2) Or GetAsyncKeyState(27)

System

Run it. Move the mouse around your screen. I think you can tell fairly quickly and easily what it does for you.