FiveTech Software tech support forums

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... resize width, height as 6,7th params to ABPaint() Secondly, for bmp files FWH is using classic GDI but not GDI+. So for magic.bmp the FWH is using PalBmpRead() / ReadBmp() oWnd:ReadPalBmpEx( uSource ) -> aBmpPal reads the image using the appropriate functions. oWnd:SayPalBmp( aBmpPal/hBitmap, ...

... Windows CE temporary fix // function CeSetmenu() ; return nil // function GetMenu() ; return nil // function ReadBitmap() ; return nil // function PalBmpRead() ; return nil Try with those and check again please. Also I take the oportunity to announce that there is a new FWPPC built very recently ...

... es correcto que quede asi el codigo, lo digo por que al pasar el ::ReleaseDC() despues del endif, estaria eliminando un DC, que en el caso de palbmpread es creado con ::GetDC(), pero no veo que se creee un DC en FWOpenPngFile otra pregunta, este cambio aplica para cada uno de los cBmpFIle1...4? ...

Es correcto este código ? , no tendriamos que liberar el dc creado en aBmpPal = PalBmpRead( ::GetDC(), cBmpFile1 ) con un ::ReleaseDC()? . Esto pasaría en varias partes del código y se podria solucionar pasando el primer ::ReleaseDc() para despues del "endif". ...

... = cName if upper(right(cName,3))="PNG" ::hBitmap1 = FWOpenPngFile( cName ) ::hPalette1 = 0 ::HasAlpha( ::hBitmap1 ) else aBmpPal = PalBmpRead( ::GetDC(), cName ) ::hBitmap1 = aBmpPal[ 1 ] ::hPalette1 = aBmpPal[ 2 ] ::HasAlpha( ::hBitmap1 ) // falta esta lineas ::ReleaseDC() endif ...

Antonio, Muchas gracias por responder. Lamentablemente no ha funcionado. Lo he probado con PalBmpRead() puesto que tengo el bitmap en disco. Aquí te dejo como ha quedado el metodo despues de las modificaciones: METHOD SayBitmap( nRow, nCol, xBitmap, nWidth, nHeight, ...

... compilador con soporte UNICODE (es correcto esto?) si compilo con bcc estas dos funciones son incluidas, pero si compilo con xcc de xharbour.com palbmpread no es incluida por estar la compilacion condiconada por la definicion de la constante UNICODE, es correcto esto? aun sigo a la caza del error ...

... SetMapMode() selected. <hBitmap>, <hPalette> The bitmap handles. These handles are automatically generated by the FiveWin functions: PalBmpRead( <hDC>, <cBmpFileName> ) --> <aPalBmp> PalBmpLoad( <hDC>, <cBmpResName> ) --> <aPalBmp> And destroyed ...

... functions for Windows CE // function CeSetmenu() ; return nil // function GetMenu() ; return nil // function ReadBitmap() ; return nil // function PalBmpRead() ; return nil

... OpenClipboard() OpenComm() ORead() OSend() OutportByte() OutportWord() OutputDebugString() oWndFromhWnd() PageBegin() PalBmpDraw() PalBmpLoad() PalBmpRead() PalBtnPaint() ParamCount() pBmpColors() pBmpHeigh() pBmpWidth() PeekByte() PeekMessage() PeekWord() Pie() PlayMetafile() PokeByte() PokeWord() ...

... me funciona que es uma maravilha function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil mais no meu sistema quanto tento compilar me da esses errores wcliente.c FiveCEC.lib(AYGSHELL.obj) : error LNK2005: HB_FUN_CESETMENU ...

... quitar todas las referencias a ella: function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil

... quitar todas las referencias a ella: function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil

... CLICK MsgInfo( "Click!" ) return nil function CeSetmenu() ; return nil function GetMenu() ; return nil function ReadBitmap() ; return nil function PalBmpRead() ; return nil #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" HB_FUNC( ORIENTATION ) { DEVMODE devmode; memset( &devmode, ...