Pablo César wrote: Pena que Claudio, no disponibilizó algun ejemplo en HMG utilizando esa misma funcion _bt_LoadFileFromResources.
Code: Select all
HGLOBAL __bt_LoadFileFromResources (TCHAR * FileName, TCHAR * TypeResource);
// _LoadAnimatedCursor (FileName, TypeResource) --> Return hCursor
HB_FUNC (_LOADANIMATEDCURSOR)
{
TCHAR *FileName = (TCHAR *) HMG_parc (1);
TCHAR *TypeResource = (TCHAR *) HMG_parc (2);
HCURSOR hCursor = NULL;
HGLOBAL hGlobal = __bt_LoadFileFromResources (FileName, TypeResource);
if (hGlobal)
{ DWORD nFileSize = GlobalSize (hGlobal);
LPBYTE lpGlobalAlloc = (LPBYTE) GlobalLock (hGlobal);
if (lpGlobalAlloc)
{ hCursor = (HCURSOR) CreateIconFromResource ((PBYTE)lpGlobalAlloc, nFileSize, FALSE, 0x00030000);
if (hCursor == NULL && GetLastError() == ERROR_SUCCESS)
MessageBox (NULL,_TEXT("hCursor == NULL bud The operation completed successfully ???"),_TEXT("Error"),0);
GlobalUnlock (hGlobal);
}
GlobalFree (hGlobal);
}
else
hCursor = LoadCursorFromFile (FileName);
hb_retnl ((LONG) hCursor);
}