?
SGS,
Puedes proporcionar un ejemplo, en PRG, que reproduzca el error ? gracias
Sr. Antonio:
fwh/samples/test2007.prg
Basta redimensionar a window principal de modo que a mensagem estoure o tamanho da set message...
Sr. Antonio,
Alguma novidade sobre este bug? ou poderia me dizer em que PRG (source) devo procurar o problema!
Obrigado
Deberíamos decidir que items deben verse en esa situación: los de más a la derecha o solo el de la izquierda ?
We should decide what items to show on such situation: the rightmost ones or just the leftmost one ?
Sr. Antonio,
clausula->2007 Deveria funcionar igual a barra default (sem 2007).
set message of ownd to "Bom trabalho..." clock date keyboard font ofontem noinset 2007 <----BUG
set message of ownd to "Bom trabalho..." clock date keyboard font ofontem noinset <----OK
Sr. Antonio,
Alguma novidade?
AEval( ::aItem, { | o | if( o:hBitmap1 != nil, DeleteObject( o:hBitmap1 ), ),;
if( o:hBitmap2 != nil, DeleteObject( o:hBitmap2 ), ) } ) AEval( ::aItem, { | o | if( o:hBitmap1 != nil, DeleteObject( o:hBitmap1 ), ),;
if( o:hBitmap2 != nil, DeleteObject( o:hBitmap2 ), ),;
if( o:hBack != nil, DeleteObject( o:hBack ), ) } )::Say( ::nHeight / 4 - 2,;
If( ::lCentered, ( ::nWidth / 2 ) - ( GetTextWidth( ::hDC,;
If( Empty( ::cMsg ), ::cMsgDef, ::cMsg ),;
::nClrText,,, .T., .T. )::Say( ::nHeight / 4 - 2,;
If( ::lCentered, ( ( ( If( Len( ::aItem ) > 0, ::aItem[ 1 ]:nLeft(), ::nWidth ) ) ) / 2 ) - ( GetTextWidth( ::hDC,;
If( Empty( ::cMsg ), ::cMsgDef, ::cMsg ),;
::oWnd:oFont:hFont ) / 2 ), 4 ),;
If( Empty( ::cMsg ), ::cMsgDef, ::cMsg ),;
::nClrText,,, .T., .T. )DATA hBackMETHOD Paint() CLASS TMsgItem
local nCount, nClrBack
local nLeft := ::nLeft()
local hBmp, nBmpWidth := 0
local hDC := ::oMsgBar:GetDC()
local hDCMem, hOld
if ::oMsgBar:l2007
::oMsgBar:PaintBar( nLeft, ::nWidth )
hDCMem = CreateCompatibleDC( hDC )
If ::hBack == NIL
::hBack = CreateCompatibleBitmap( hDC, ::nWidth + 4, ::oMsgBar:nHeight )
hOld = SelectObject( hDCMem, ::hBack )
BitBlt( hDCMem, 0, 0, ::nWidth + 4, ::oMsgBar:nHeight, hDC, ::nLeft() - 4, 0, 0xCC0020 )
SelectObject( hDCMem, hOld )
endif
hOld = SelectObject( hDCMem, ::hBack )
BitBlt( hDC, ::nLeft() - 4, 0, ::nWidth + 4, ::oMsgBar:nHeight, hDCMem, 0, 0, 0xCC0020 )
DeleteDC( hDCMem )
endif
if ::hBitmap1 != nil
hBmp = If( ::lActive, ::hBitmap1, ;
If( ::hBitmap2 != nil, ::hBitmap2, ::hBitmap1 ) )
nBmpWidth = nBmpWidth( hBmp )
DrawMasked( hDC, hBmp, 2, nLeft + 1 )
endif
if ::oMsgBar:l2007
::oMsgBar:Say( ::oMsgBar:nHeight / 4 - 2,;
nLeft - 1 + ( ::nWidth / 2 ) - ( GetTextWidth( hDC, AllTrim( ::cMsg ), ::oFont:hFont ) / 2 ),;
AllTrim( ::cMsg ), If( ::lActive, ::nClrText, ::nClrDisabled ),;
::nClrPane, ::oFont, .T., .T. )
WndBoxIn( hDC, 2, nLeft - 4, ::oMsgBar:nHeight - 2, nLeft - 3 )
else
DrawMsgItem( hDC, ::cMsg,;
{ 5, nLeft + nBmpWidth, ::oMsgBar:nHeight - 6,;
nLeft + ( ::nWidth - 4 ) },;
If( ::lActive, ::nClrText, ::nClrDisabled ),;
::nClrPane, ::oFont:hFont )
WndBoxIn( hDC, 0, nLeft - 4, ::oMsgBar:nHeight - 1, nLeft - 3 ) // Statusbar Parts look
if ::oMsgBar:lInset
WndBoxIn( hDC, 3, nLeft + 1, ::oMsgBar:nHeight - 5, nLeft + ::nWidth - 4 ) // Original Depressed Look
endif
endif
::oMsgBar:ReleaseDC()
return nilDaniel,
Espetacular !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Meus Parabéns !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
