Big Cursor

Category: Application Features

Date: 02-16-2022

'Credit: Peter Lameijn
#Compile Exe
#Include "Win32Api.inc"

Global hDlg As Long

CallBack Function CbMain()
  Local hCursor As Dword
  Select Case CbMsg
    Case %WM_InitDialog
      hCursor = LoadImage (ByVal 0, "c:\windows\cursors\larrow.cur", %IMAGE_ICON, 125, 125, %LR_LOADFROMFILE)
      SetClassLong CbHndl, %GCL_HCURSOR, hCursor
  End Select
End Function

Function PBMain () As Long
  Dialog New 0, "Cursor test:", , , 250, 275, %WS_SysMenu To hDlg
  Dialog Show Modal hDlg , Call CbMain
End Function

'gbs_01191
'Date: 05-11-2013

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm