FiveTech Software tech support forums

... lColor := .F. nDlgHeight:= nDlgHeight+ncorrec IF lColor GradienTfill(oDlg:hDC,nDlgHeight-( nHeight-2 ),0,nDlgHeight-20,oDlg:nWidth, aColor ,.t.) WndBoxIn( oDlg:hDc,nDlgHeight-( nHeight-1 ),0,nDlgHeight-( nHeight ),oDlg:nWidth ) ELSE WndBoxIn( oDlg:hDc,nDlgHeight -( nHeight-1 ),4,nDlgHeight-( ...

... lColor := .F. nDlgHeight:= nDlgHeight+ncorrec IF lColor GradienTfill(oDlg:hDC,nDlgHeight-( nHeight-2 ),0,nDlgHeight-20,oDlg:nWidth, aColor ,.t.) WndBoxIn( oDlg:hDc,nDlgHeight-( nHeight-1 ),0,nDlgHeight-( nHeight ),oDlg:nWidth ) ELSE WndBoxIn( oDlg:hDc,nDlgHeight -( nHeight-1 ),4,nDlgHeight-( ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... otherwise ::cKeyChar += Chr( nKey ) ... elseif ( ::lFastEdit ... SysRefresh() oCol:Edit() ... method edit() class TXBrwColumn ... if ::lEditBorder WndBoxIn( ::oBrw:GetDC(), nRow-1, nCol-1, nRow + nHeight + 1, nCol + nWidth + 1) ::oBrw:ReleaseDC() endif ckey:=::obrw:ckeychar for nI := 1 To Len( ...

Lailton,

In Class TMsgItem Method Paint(), change or remove this:

WndBoxIn( hDC, 2, nLeft - 4, ::oMsgBar:nHeight - 2, nLeft - 3 )

... next endif // 3D if ::lShaded WndInset( ::hWnd, ::hDC ) // SHADED, SHADOW endif if ::lRaised WndRaised( ::hWnd, ::hDC ) // RAISED endif if ::lBox WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft ) WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 ) endif ::ReleaseDC() ...

... ::nClrDisabled ),; ::nClrPane, ::oFont, .T., .T. ) // nLeft - 1 + ( ::nWidth - GetTextWidth( hDC, AllTrim( ::cMsg ), ::oFont:hFont ) ) / 2,; WndBoxIn( hDC, 2, nLeft - 4, ::oMsgBar:nHeight - 2, nLeft - 3 ) else Regards, Carlos Gallego

I have modify the method paint to change the msgbar I rem WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 ) and I insert WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1) Now when I define a msgitem ( txt) it show the txt ...

... nLeft + nBmpWidth, ::oMsgBar:nHeight-6, nLeft + ( ::nWidth - 7 ) },; If( ::lActive, ::nClrText, ::nClrDisabled ),; ::nClrPane, ::oFont:hFont ) * WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 ) SetBkMode( hDC, 1 ) WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1) ...

... questione di estetica infatti avevo modificato nel metodo paint solo la riga : WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1) anzichè WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 ) il mio problema è adesso che i text li scrive sul fondo bianco ma ho visto ...

... next endif // 3D if ::lShaded WndInset( ::hWnd, ::hDC ) // SHADED, SHADOW endif if ::lRaised WndRaised( ::hWnd, ::hDC ) // RAISED endif if ::lBox WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft ) WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 ) endif ::ReleaseDC() ...

Dear Antonio, No, but this morning i have correct the error ..... I modify your msgitem and insert WndBoxRaised instead of WndBoxin function..perhaps the command NOINSET not run ok Now run ok !!!!!!!!!!!!!!!!!!!!!!! Can I insert a bitmap on : oMsgbar:dateon() ? Can I fill with blue ...

... != NIL nHeight -= ::oBottom:nHeight ENDIF IF ::oLeft != NIL nLeft += ::oLeft:nWidth ENDIF IF ::oRight != NIL nWidth -= ::oRight:nWidth ENDIF WndBoxIn(::hDC, nTop, nLeft, nHeight, nWidth) ENDIF * IF ::bPainted # NIL // ESTO ESTA AÑADIDO Eval( ::bPainted, ::hDC ) ENDIF RETURN NIL * METHOD LButtonDown( ...

Revisa el método Paint de la clase TMsgItem. Quita las tres lineas que pitan el cuadrito y pon esta otra: //WndBoxIn( hDC, 0, nLeft - 9, ::oMsgBar:nHeight, nLeft - 8 ) //WndBoxRaised( hDC, 0, nLeft - 8, ::oMsgBar:nHeight, nLeft + ::nWidth - 5 ) //WndBoxIn( hDC, 0, nLeft - 9, ...

... next endif // 3D if ::lShaded WndInset( ::hWnd, ::hDC ) // SHADED, SHADOW endif if ::lRaised WndRaised( ::hWnd, ::hDC ) // RAISED endif if ::lBox WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft ) WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 ) endif ::ReleaseDC() ...