sample_203.md

Home

Drawing cursors for the classes defined by the system (preregistered): BUTTON, EDIT, LISTBOX etc.

Code:

DO decl

= DrawClassCursor ("Button",    100)
= DrawClassCursor ("ComboBox",  140)
= DrawClassCursor ("Edit",      180)
= DrawClassCursor ("ListBox",   220)
= DrawClassCursor ("MDIClient", 260)
= DrawClassCursor ("ScrollBar", 300)
= DrawClassCursor ("Static",    340)

PROCEDURE  DrawClassCursor (lcClassName, Y)
	LOCAL hwnd, hdc, lcWndClass, hCursor
	hwnd = GetActiveWindow()
	hdc = GetWindowDC(hwnd)

	#DEFINE WNDCLASS_SIZE  40
	lcWndClass = Repli(Chr(0), WNDCLASS_SIZE)
	= GetClassInfo (0, lcClassName, @lcWndClass)

	* drawing the cursor on the main VFP window
	hCursor = buf2dword(SUBSTR(lcWndClass, 25,4))
	IF hCursor <> 0
		= DrawIcon (hdc, 40,Y, hCursor)
	ENDIF

	ReleaseDC (hwnd, hdc)
RETURN

FUNCTION  buf2dword (lcBuffer)
RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
	Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
	Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
	Asc(SUBSTR(lcBuffer, 4,1)) * 16777216

PROCEDURE  decl
	DECLARE INTEGER GetActiveWindow IN user32
	DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
	DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc

	DECLARE INTEGER GetClassInfo IN user32;
		INTEGER hInstance, STRING lpClassName, STRING @lpWndClass

	DECLARE SHORT DrawIcon IN user32;
		INTEGER hDC, INTEGER X, INTEGER Y, INTEGER hIcon  

---

Listed functions:

DrawIcon
GetActiveWindow
GetClassInfo
GetWindowDC
ReleaseDC

---