23 lines
754 B
Plaintext
23 lines
754 B
Plaintext
#DEFINE WM_LBUTTONDOWN 513
|
|
#DEFINE WM_RBUTTONDOWN 516
|
|
#DEFINE WM_CLOSE 16
|
|
|
|
FBSLSETFORMCOLOR(ME, RGB(0, 255, 255)) ' Cyan: set persistent background color
|
|
DRAWWIDTH(5) ' Adjust point size
|
|
FBSL.GETDC(ME) ' Use volatile FBSL.GETDC below to avoid extra assignments
|
|
|
|
RESIZE(ME, 0, 0, 300, 200)
|
|
CENTER(ME)
|
|
SHOW(ME)
|
|
|
|
BEGIN EVENTS
|
|
SELECT CASE CBMSG
|
|
CASE WM_LBUTTONDOWN ' Set color at current coords as hex literal
|
|
PSET(FBSL.GETDC, LOWORD(CBLPARAM), HIWORD(CBLPARAM), &H0000FF) ' Red: Windows stores colors in BGR order
|
|
CASE WM_RBUTTONDOWN ' Get color at current coords as hex literal
|
|
FBSLSETTEXT(ME, "&H" & HEX(POINT(FBSL.GETDC, LOWORD(CBLPARAM), HIWORD(CBLPARAM))))
|
|
CASE WM_CLOSE ' Clean up
|
|
FBSL.RELEASEDC(ME, FBSL.GETDC)
|
|
END SELECT
|
|
END EVENTS
|