Function hBmpFromX( cFile, nWidth, nHeight ) //emf-file, width, height
local hBmp
local oBmp
oBmp:= GDIBmp():New(cFile)
if !obmp:is32Bits()
obmp:Conver24to32Alpha( .t. )
endif
IF ( !Empty( nWidth ) .or. !Empty( nHeight ) )
oBmp:Resize( nWidth, nHeight )
endif
hBmp:= oBmp:GetGDIHbitmap()
oBmp:End()
Return hbmp
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 40 guests