Pessoal,
Tem alguma função em harbour que passando como parâmetro o icone e retorne o tamanho w e h dele ?
Que não seja pela freeimage

Moderador: Moderadores
#include "hwgui.ch"
FUNCTION TamIcone
LOCAL nWidthIcon, nHeightIcon, aTamIcon
nhandle := hwg_Loadimage( 0, 'iPrinter24.ico', IMAGE_ICON, nWidthIcon, nHeightIcon, LR_DEFAULTSIZE + LR_LOADFROMFILE + LR_SHARED )
aTamIcon := hwg_Geticonsize( nhandle )
nW := aTamIcon[1]
nH := aTamIcon[2]
hwg_MsgInfo( "W " + str(nw) + " " + "H " + Str(nh) )
RETURN aTamIcon
LoadImage function
HANDLE WINAPI LoadImage(
_In_opt_ HINSTANCE hinst,
_In_ LPCTSTR lpszName,
_In_ UINT uType,
_In_ int cxDesired,
_In_ int cyDesired,
_In_ UINT fuLoad
);
::SendMessage( BM_SETIMAGE, WIN_IMAGE_ICON, wvg_LoadImage( ::oImage[ 3 ], nLoadFromDiskFile, WIN_IMAGE_ICON, nWidth, nHeight ) )
/* https://msdn.microsoft.com/library/ms648045
Windows 2000 and upper, wapi_LoadImage() can resize image
nSource: 0 ResourceIdByNumber
nSource: 1 ResourceIdByName
nSource: 2 ImageFromDiskFile */
FUNCTION wvg_LoadImage( ncImage, nSource, nBmpOrIcon, nWidth, nHeight )
hb_defaultValue( @nBmpOrIcon, WIN_IMAGE_BITMAP )
RETURN iif( hb_defaultValue( nSource, 0 ) == 2, ;
wapi_LoadImage( , ncImage, nBmpOrIcon, nWidth, nHeight, WIN_LR_LOADFROMFILE + WIN_LR_DEFAULTSIZE ), ;
wapi_LoadImage( wapi_GetModuleHandle(), ncImage, nBmpOrIcon, nWidth, nHeight, WIN_LR_DEFAULTSIZE ) )
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes