FiveTech Software tech support forums

... := oFont :nFooterHeight := 20 :nFooterLines := 2 :nStretchCol := 3 :lAllowColHiding := .F. :lAllowColSwapping := .F. :lDisplayZeros := .F. :lRecordSelector := .F. :lHScroll := .F. :l2007 := .F. :lFooter := .T. :lDrawBorder := .T. :lAllowColReGroup := .T. :lColDividerComplete := .T. :lIncrFilter ...

... ok oBrw:lFullGridClr := .t.,; oBrw:lIncrFilter := .t.,; oBrw:lSeekWild := .t.,; oBrw:lTabLikeExcel := .t.,; oBrw:lColDividerComplete := .t.,; oBrw:lRecordSelector := .f.,; oBrw:lDrawBorder := .t.; )

... CLR_HRED :lHscroll := .f. :lVscroll := .f. :l2007 := .f. :l2015 := .f. :lAllowRowSizing := .f. :lAllowColSwapping := .f. :lAllowColHiding := .f. :lRecordSelector := .f. :nRowDividerStyle := LINESTYLE_LIGHTGRAY :nColDividerStyle := LINESTYLE_LIGHTGRAY :SetGroupHeader( "Numeri Estratti ", ...

... := .f. :l2007 := .F. :l2015 := .f. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector := .F. :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_NOLINES :nColDividerStyle ...

... := .f. :l2007 := .F. :l2015 := .f. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector := .F. :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_NOLINES :nColDividerStyle ...

... := oFont :nFooterHeight := 20 :nFooterLines := 2 :nStretchCol := 6 :lAllowColHiding := .F. :lAllowColSwapping := .F. :lDisplayZeros := .F. :lRecordSelector := .F. :lHScroll := .F. :l2007 := .F. :lFooter := .T. :lDrawBorder := .t. :lAllowColReGroup := .T. :lColDividerComplete := .T. :nRowDividerStyle ...

... := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:nHeaderLines := 1 // Altura encabezamiento oBrw:nDataLines := 1 // Altura líneas oBrw:lRecordSelector := .t. //poner o no, COL de la flechita de la izq oBrw:bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, RGB(160,225,255), CLR_WHITE ...

... de la edición de un registro, el puntero vuelve el principio, pero el fondo de la fila se queda en el registro editado. Es decir, tengo: oBrw:lRecordSelector := .T. oBrw:oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROWMS Al salir de la edición del registro, y por una orden de: If lsalir sele sat SAT->(DBGOTOP()) ...

... 70 NOBORDER FASTEDIT FOOTERS // oBrw:lHScroll:= .F. // oBrwm:lVScroll:= .T. oBrw:l2007 := .T. oBrw:lTransparent := .f. oBrw:lDesign := .f. oBrw:lRecordSelector := .T. oBrw:lVScroll := .t. oBrw:lHScroll := .f. oBrw:lColChangeNotify := .t. oBrw:lAllowColReGroup := .t. oBrw:lColDividerComplete ...

... := MARQSTYLE_HIGHLROW :nColDividerStyle := LINESTYLE_NOLINES :nRowDividerStyle := LINESTYLE_NOLINES :lColDividerComplete := .F. :lUpdate := .T. :lRecordSelector := .F. :lHeader := .F. :lHScroll := .F. :nHeaderHeight := 30 :nRowHeight := 85 :bClrHeader := { || { CLR_BLACK, CLR_WHITE } } :bClrGrad ...

... := STRETCHCOL_WIDEST :bClrStd := {|| { RGB(0,0,0),colores( aItems[ oBrw:nat, 4 ] ) } } :lColDividerComplete := .T. :lAllowColHiding := .F. :lRecordSelector := .F. END WITH

... := 0 DEFAULT cTitle := "Select" XBROWSER aPrompts TITLE cTitle SELECT ( nSelect := oBrw:nArrayAt ) ; SETUP ( oBrw:lHeader := .f., oBrw:lRecordSelector := .f., oBrw:lHScroll := .f., ; oBrw:oWnd:bInit := { |oDlg| oDlg:aControls[ 1 ]:Hide() } ) Return nSelect /* ***********************************************************************************

fantastic, congratulations !!!

Please try

Code: Select all  Expand view

oBrw:hBtnShadowPen := CreatePen( PS_SOLID, 1, CLR_BLACK )

how to paint the lines in black ?