FiveTech Software tech support forums

... BLACK,CLR_WHITE }
endif
endif
Return aColors

and then this for xbrowse
WITH OBJECT oBrw
:MakeTotals()
:lFooter := .T.
:l2007 := .f.
:lRecordSelector := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:bClrStd := { || MyColors( oBrw ) } //{ || { CLR_GREEN, CLR_WHITE } }
:bClrSelFocus ...

... OF oSelf:oDlgSpt PIXEL ;
LINES STYLE FLAT NOBORDER ;
DATASOURCE ::aRspNm AUTOCOLS

ReArrangeCols( oBrw, ::aCols1 )

WITH OBJECT oBrw
:lRecordSelector := .T.
:lHScroll := .T.
:lVScroll := .T.
:l2007 := .F.
:lFitGridHeight := .T.
:nHeaderHeight := 21
:nRowHeight := 21
:nMarqueeStyle ...

... 2
:oFooterFonts := eFont
:nFreeze := 3
:nStretchCol := 3

:lAllowColHiding := .F.
:lAllowColSwapping := .F.
:lDisplayZeros := .F.
:lRecordSelector := .F.
:lHScroll := .F.
:l2007 := .F.
:lFooter := .T.
:lDrawBorder := .T.
:lAllowColReGroup := .T.
:lColDividerComplete := .T ...

... 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 ...

... SETUP ( ;
oBrw:lHScroll := .f.,;
oBrw:lVScroll := .f.,;
oBrw:lToolbar := .f.,; // not ok
oBrw:lFullGridClr := .t.,;
oBrw:lIncrFilter := .t.,;
oBrw:lSeekWild := .t.,;
oBrw:lTabLikeExcel := .t.,;
oBrw:lColDividerComplete := .t.,;
oBrw:lRecordSelector := .f.,;
oBrw:lDrawBorder := .t.;
)

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

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

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

... 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 ...

... 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 ...

... 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 := .t ...

... 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 ...

WITH OBJECT oBrw
:lDisplayZeros := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLROWRC
:lMultiSelect := .t.
:nStretchCol := 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 ...