jll-fwh wrote:1.- Cuando se define un Gradiente en un xBrowse mediante una tabla con DBF, si el campo no contiene informacion no genera el Gradient en esa celda.
if ! Empty( cData ) .and. ! ( ::cDataType $ "PF" )
else
aRect := { nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) }
if ::bPaintText != nil
Eval( ::bPaintText, Self, hDC, "", aRect, aColors, lHighLite )
endif
jll-fwh wrote:2.- Tanto en un xBrowse con DBF como definido con ARRAYs el gradient no lo aplica hasta el final de la declaracion del xBrowse, sino hasta la longuitud de las columnas
oBrw:nStretchCol = STRETCHCOL_LAST
jll-fwh wrote:1.- Tambien me gustaria hacer, asignar un gradient dentro de una celda para asignarle ademas otro color para la edicion de los campos dentro de un xBrowse, para que el efecto sea mucho mas bonito, ya que sino me queda con este aspecto.
oBrw:aCols[ 3 ]:bClrEdit := { || { CLR_BLACK, CLR_RED } }
AEval( oBrw:aCols, { |o| o:bClrEdit := { || { CLR_BLACK, CLR_RED } } } )
jll-fwh wrote:2.- Supongo que sera porque estoy ya obcecado y no vea nada, pero como podria cambiar el BMP que aparece en un xBrowse cuando lo defines como edicion de la celda tipo EDIT_GET_BUTTOM.
pedrog wrote:Hola Daniel,
¿sabes si el tema que comento sobre el comportamiento del xbrowse es por la versión ?, o no tiene solución ?.
Saludos!
pedrog wrote:Daniel,
gracias de antemano, lo raro es que si que de una forma lo hace bien y de la otra no, supongo que será algún bug de la versión que yo tengo.
Saludos!
if nCol < nWidth
if lHighLite
if ::hWnd == GetFocus()
oCol := ::ColAtPos ( nLast )
if oCol:bPaintText != NIL
Eval( oCol:bPaintText, oCol, hDC, "", { nRow + 2, nCol, nTemp - 2, nWidth - 5 } )
else
hBrush := CreateSolidBrush( Eval( If( ::bClrRowFocus == nil, ::bClrSelFocus, ::bClrRowFocus ) )[ 2 ] )
endif
else
if oCol:bPaintText != NIL
Eval( oCol:bPaintText, oCol, hDC, "", { nRow + 2, nCol, nTemp - 2, nWidth - 5 } )
else
hBrush := CreateSolidBrush( Eval( ::bClrSel )[ 2 ] )
endif
endif
else
hBrush := CreateSolidBrush( Eval( ::bClrStd )[ 2 ] )
endif
if ( lHighLite .or. ! ( ::lTransparent == .t. ) ) .and. hBrush != NIL
FillRect( hDC, {nRow, nCol, nTemp, nWidth }, hBrush )
endif
if hBrush = NIL
DeleteObject( hBrush )
endif
endif
if ! Empty( cData )
else
aRect := { nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) }
if ::bPaintText != nil
Eval( ::bPaintText, Self, hDC, "", aRect, aColors, lHighLite )
endif
jll-fwh wrote:2.- PAra solucionar el segundo problema me comentabas que añadiera esta liena al xBrowse:
oBrw:nStretchCol = STRETCHCOL_LAST
Funciona pero el Grid tiene un comportamiento no correcto, se queda embuclado refrescando el objeto y por ejemplo no visualiza el menu popup que tiene asignado el GRid. Asi que he tenido que quitarlo porque en mi version de FWH no funciona bien.
jll-fwh wrote:3.- Y sobre como modificar el BMP de una celda, pues debo de estar gafado, pero no tengo el fuente xbrbtn.prg en \Samples., a no ser que venga en versiones posteriores. ASi que no puedo ver como se hace.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 72 guests