se le hizo un seguimiento al HB_OUT.TXT en el cual el error da en METHOD LoadBitmaps
Called from PALBMPNEW(0)
Called from WNDREADPALBMPEX(588) in .\source\function\IMGTXTIO.PRG
Called from (b)TWINDOW(551) in .\source\classes\WINDOW.PRG
Called from TBTNBMP:READPALBMPEX(0) in .\source\classes\WINDOW.PRG
Called from TBTNBMP:SETIMAGES(1004) in .\source\classes\BTNBMP.PRG
Called from TBTNBMP:LOADBITMAPS(1031) in .\source\classes\BTNBMP.PRG
revisando con versiones anteriores
METHOD LoadBitmaps( cResName1, cResName2, cBmpFile1, cBmpFile2,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 cResName3, cBmpFile3, cResName4, cBmpFile4 ) CLASS TBtnBmp
聽 聽local aBmpPal
聽 聽if ! Empty( cResName1 )
聽 聽 聽 aBmpPal = PalBmpLoad( cResName1 )
聽 聽 聽 ::hBitmap1 聽= aBmpPal[ 1 ]
聽 聽 聽 ::hPalette1 = aBmpPal[ 2 ]
聽 聽 聽 ::HasAlpha( ::hBitmap1, BTN_UP )
聽 聽endif
聽 聽if ! Empty( cResName2 )
聽 聽 聽 aBmpPal = PalBmpLoad( cResName2 )
聽 聽 聽 ::hBitmap2 聽= aBmpPal[ 1 ]
聽 聽 聽 ::hPalette2 = aBmpPal[ 2 ]
聽 聽 聽 ::HasAlpha( ::hBitmap2, BTN_DOWN )
聽 聽endif
聽 聽if ! Empty( cResName3 )
聽 聽 聽 aBmpPal = PalBmpLoad( cResName3 )
聽 聽 聽 ::hBitmap3 聽= aBmpPal[ 1 ]
聽 聽 聽 ::hPalette3 = aBmpPal[ 2 ]
聽 聽 聽 ::HasAlpha( ::hBitmap3, BTN_DISABLE )
聽 聽endif
聽 聽if ! Empty( cResName4 )
聽 聽 聽 aBmpPal = PalBmpLoad( cResName4 )
聽 聽 聽 ::hBitmap4 聽= aBmpPal[ 1 ]
聽 聽 聽 ::hPalette4 = aBmpPal[ 2 ]
聽 聽 聽 ::HasAlpha( ::hBitmap4, BTN_OVERMOUSE )
聽 聽endif
聽 聽if ! Empty( cBmpFile1 )
聽 聽 聽 if File( cBmpFile1 )
聽 聽 聽 聽 聽::cBmpFile1 = cBmpFile1
聽 聽 聽 聽 聽aBmpPal 聽 聽 = PalBmpRead( ::GetDC(), cBmpFile1 )
聽 聽 聽 聽 聽::hBitmap1 聽= aBmpPal[ 1 ]
聽 聽 聽 聽 聽::hPalette1 = aBmpPal[ 2 ]
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap1, BTN_UP )
聽 聽 聽 聽 聽::ReleaseDC()
聽 聽 聽 endif
聽 聽endif
聽 聽if ! Empty( cBmpFile2 )
聽 聽 聽 if File( cBmpFile2 )
聽 聽 聽 聽 聽::cBmpFile2 = cBmpFile2
聽 聽 聽 聽 聽aBmpPal 聽 聽 = PalBmpRead( ::GetDC(), cBmpFile2 )
聽 聽 聽 聽 聽::hBitmap2 聽= aBmpPal[ 1 ]
聽 聽 聽 聽 聽::hPalette2 = aBmpPal[ 2 ]
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap2, BTN_DOWN )
聽 聽 聽 聽 聽::ReleaseDC()
聽 聽 聽 endif
聽 聽endif
聽 聽if ! Empty( cBmpFile3 )
聽 聽 聽 if File( cBmpFile3 )
聽 聽 聽 聽 聽::cBmpFile3 = cBmpFile3
聽 聽 聽 聽 聽aBmpPal 聽 聽 = PalBmpRead( ::GetDC(), cBmpFile3 )
聽 聽 聽 聽 聽::hBitmap3 聽= aBmpPal[ 1 ]
聽 聽 聽 聽 聽::hPalette3 = aBmpPal[ 2 ]
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap3, BTN_DISABLE )
聽 聽 聽 聽 聽::ReleaseDC()
聽 聽 聽 endif
聽 聽endif
聽 聽if ! Empty( cBmpFile4 )
聽 聽 聽 if File( cBmpFile4 )
聽 聽 聽 聽 聽::cBmpFile4 = cBmpFile4
聽 聽 聽 聽 聽aBmpPal 聽 聽 = PalBmpRead( ::GetDC(), cBmpFile4 )
聽 聽 聽 聽 聽::hBitmap4 聽= aBmpPal[ 1 ]
聽 聽 聽 聽 聽::hPalette4 = aBmpPal[ 2 ]
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap4, BTN_OVERMOUSE )
聽 聽 聽 聽 聽::ReleaseDC()
聽 聽 聽 endif
聽 聽endif
聽 聽if ! Empty( ::hBitmap1 )
聽 聽 聽 PalBmpNew( ::hWnd, ::hBitmap1, ::hPalette1 )
聽 聽endif
聽 聽if ! Empty( ::hBitmap2 )
聽 聽 聽 PalBmpNew( ::hWnd, ::hBitmap2, ::hPalette2 )
聽 聽endif
聽 聽if ! Empty( ::hBitmap3 )
聽 聽 聽 PalBmpNew( ::hWnd, ::hBitmap3, ::hPalette3 )
聽 聽endif
聽 聽if ! Empty( ::hBitmap4 )
聽 聽 聽 PalBmpNew( ::hWnd, ::hBitmap4, ::hPalette4 )
聽 聽endif
聽 聽if ::l2007
聽 聽 聽 /*
聽 聽 聽 if Empty( ::hBitmap2 ) .and. ! Empty( ::hBitmap1 )
聽 聽 聽 聽 聽::hBitmap2 := ResizeImg( ::hBitmap1, nBmpWidth( ::hBitmap1 ) - 2, nBmpHeight( ::hBitmap1 ) - 2 聽)
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap2, BTN_DOWN )
聽 聽 聽 endif
聽 聽 聽 if Empty( ::hBitmap3 ) .and. ! Empty( ::hBitmap1 )
聽 聽 聽 聽 聽::hBitmap3 := Blur( ::hBitmap1, 1 )
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap3, BTN_DISABLE )
聽 聽 聽 endif
聽 聽 聽 if Empty( ::hBitmap4 ) .and. ! Empty( ::hBitmap1 )
聽 聽 聽 聽 聽::hBitmap4 := ResizeImg( ::hBitmap1, nBmpWidth( ::hBitmap1 ) + 6, nBmpHeight( ::hBitmap1 ) + 6 聽)
聽 聽 聽 聽 聽::HasAlpha( ::hBitmap4, BTN_OVERMOUSE )
聽 聽 聽 endif
聽 聽 聽 */
聽 聽endif
return nilVersi贸n Actual
METHOD LoadBitmaps( cResName1, cResName2, cBmpFile1, cBmpFile2,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 cResName3, cBmpFile3, cResName4, cBmpFile4 ) CLASS TBtnBmp
聽 聽::SetImages( IfNil( cResName1, cBmpFile1 ), IfNil( cResName2, cBmpFile2 ), ;
聽 聽 聽 聽 聽 聽 聽 聽 IfNil( cResName3, cBmpFile3 ), IfNil( cResName4, cBmpFile4 ), .f. 聽)
/*
聽 聽local aBmpPal
聽 聽local cSrc
聽 聽if ! Empty( cSrc := IfNil( cResName1, cBmpFile1 ) )
聽 聽 聽 aBmpPal 聽 聽 聽 聽= ::ReadPalBmpEx( cSrc,,::lGDIP )
聽 聽 聽 ::hBitmap1 聽 聽 = aBmpPal[ 1 ]
聽 聽 聽 ::hPalette1 聽 聽= aBmpPal[ 2 ]
聽 聽 聽 ::aAlpha[ 1 ] 聽= aBmpPal[ 5 ]
聽 聽 聽 ::cBmpFile1 聽 聽= If( aBmpPal[ 7 ], nil, aBmpPal[ 6 ] )
聽 聽 聽 ::cResName1 聽 聽= If( aBmpPal[ 7 ], aBmpPal[ 6 ], nil )
聽 聽endif
聽 聽if ! Empty( cSrc := IfNil( cResName2, cBmpFile2 ) )
聽 聽 聽 aBmpPal 聽 聽 聽 聽= ::ReadPalBmpEx( cSrc,,::lGDIP )
聽 聽 聽 ::hBitmap2 聽 聽 = aBmpPal[ 1 ]
聽 聽 聽 ::hPalette2 聽 聽= aBmpPal[ 2 ]
聽 聽 聽 ::aAlpha[ 2 ] 聽= aBmpPal[ 5 ]
聽 聽 聽 ::cBmpFile2 聽 聽= If( aBmpPal[ 7 ], nil, aBmpPal[ 6 ] )
聽 聽 聽 ::cResName2 聽 聽= If( aBmpPal[ 7 ], aBmpPal[ 6 ], nil )
聽 聽endif
聽 聽if ! Empty( cSrc := IfNil( cResName3, cBmpFile3 ) )
聽 聽 聽 aBmpPal 聽 聽 聽 聽= ::ReadPalBmpEx( cSrc,,::lGDIP )
聽 聽 聽 ::hBitmap3 聽 聽 = aBmpPal[ 1 ]
聽 聽 聽 ::hPalette3 聽 聽= aBmpPal[ 2 ]
聽 聽 聽 ::aAlpha[ 3 ] 聽= aBmpPal[ 5 ]
聽 聽 聽 ::cBmpFile3 聽 聽= If( aBmpPal[ 7 ], nil, aBmpPal[ 6 ] )
聽 聽 聽 ::cResName3 聽 聽= If( aBmpPal[ 7 ], aBmpPal[ 6 ], nil )
聽 聽endif
聽 聽if ! Empty( cSrc := IfNil( cResName4, cBmpFile4 ) )
聽 聽 聽 aBmpPal 聽 聽 聽 聽= ::ReadPalBmpEx( cSrc,,::lGDIP )
聽 聽 聽 ::hBitmap4 聽 聽 = aBmpPal[ 1 ]
聽 聽 聽 ::hPalette4 聽 聽= aBmpPal[ 2 ]
聽 聽 聽 ::aAlpha[ 4 ] 聽= aBmpPal[ 5 ]
聽 聽 聽 ::cBmpFile4 聽 聽= If( aBmpPal[ 7 ], nil, aBmpPal[ 6 ] )
聽 聽 聽 ::cResName4 聽 聽= If( aBmpPal[ 7 ], aBmpPal[ 6 ], nil )
聽 聽endif
*/
return nilEl error es aqui
::SetImages( IfNil( cResName1, cBmpFile1 ), IfNil( cResName2, cBmpFile2 ), ;
IfNil( cResName3, cBmpFile3 ), IfNil( cResName4, cBmpFile4 ), .f. )
no da todo el tiempo da trabajando 1 hora o 2 horas
Harbour 3.2.0
Visual Studio 2015 community
MariaDb/MySql
Ing. MSc. Luis Duque
http://www.accasoft.net