Marco Turco wrote:Hi Antonio,
just to inform you there is also a further problem to fix on the menu:
the menu items on the right disappear moving the mouse on the left.
Consider I'm working on a cloud environment. See video:
http://www.softwarexp.co.uk/beta/test/test.html
MENU oMenu ...... [ 2007/2010 / 2015 / 2013 ]
...
Marco Turco wrote:I'm using 15.09_2 with xharbour and BCC700
menu definition is with 2010 flag
MENU oPigcMenu 2010
function WndReadPalBmpEx( Self, uBmp, aReSize ) // btnbmp.prg
.....
// linea 2110 aproximadamente
elseif File( uBmp )
if cExt == "BMP"
if Empty( Self )
aBmp[ 1 ] := ReadBitmap( 0, uBmp )
else
if '|' + Upper( ::ClassName() ) + '|' $ "|TPRINTER|TMENUITEM|" // nuevo
u := PalBmpRead( ::hDC, uBmp ) // nuevo
aBmp[ 1 ] := u[ 1 ] // nuevo
aBmp[ 2 ] := u[ 2 ] // nuevo
else // nuevo
hDC := ::GetDC()
u := PalBmpRead( hDC, uBmp )
aBmp[ 1 ] := u[ 1 ]
aBmp[ 2 ] := u[ 2 ]
::ReleaseDC()
endif // nuevo
endif
elseif cExt $ "ICO,EXE,DLL"
......
aBmp[ 5 ] := HasAlpha( aBmp[ 1 ] )
// linea 2167 aproximadamente
if '|' + Upper( ::ClassName() ) + '|' $ "|TPRINTER|TMENUITEM|" // nueva linea ya que tmenuiten y tprinter no tienen ::hWnd
PalBmpNew( NIL, aBmp[ 1 ], aBmp[ 2 ] ) // nueva linea
else // nueva linea
if ! Empty( Self ) .and. ! Empty( ::hWnd )
PalBmpNew( ::hWnd, aBmp[ 1 ], aBmp[ 2 ] )
endif
Endif // nueva linea
endif
return aBmp // format: { hBitmap, hPalette, nBmpWidth, nBmpHeight, lAlpha, cName, lResource }
Return to WhatsNew / Novedades
Users browsing this forum: No registered users and 3 guests