FiveTech Software tech support forums

... colores para lineas normales :bClrSel := {|| { nRGB( 0, 0, 0), aGradRowSel } } // para barra de linea selecc cuando el control no tiene el foco :bClrSelFocus := { || { CLR_BLACK, aGradBarSel } } // para barra de linea selecc cuando el control tiene el foco :lRecordSelector := .f. :aCols[1]:cSortOrder ...

... := 1 :nFooterLines := 1 :nDataLines := 1 :lFooter := .T. :lFastEdit := .T. :nFreeze := 1 :cAlias := cAliTab :nStretchCol := 1 :nMarqueeStyle := 4 :bClrSelFocus := { || { CLR_GREEN, aSelGrad } } :bClrRowFocus := { || { CLR_GREEN, aRowGrad } } IF fFunDCl <> NIL :bLDblClick := { || IF(fFunDCl=="FIN",oDlgSel:End() ...

... := 1 :nFooterLines := 1 :nDataLines := 1 :lFooter := .T. :lFastEdit := .T. :nFreeze := 1 :cAlias := cAliTab :nStretchCol := 1 :nMarqueeStyle := 4 :bClrSelFocus := { || { CLR_GREEN, aSelGrad } } :bClrRowFocus := { || { CLR_GREEN, aRowGrad } } IF fFunDCl <> NIL :bLDblClick := { || IF(fFunDCl=="FIN",oDlgSel:End() ...

... "Test" FROM 0,0 TO 24,80 @ 0,0 XBROWSE oBrw OF ownd ALIAS cAlias ; SIZE 200,100 ; FOOTERS FASTEDIT LINES CELL oBrw:bClrRowFocus := oBrw:bClrSelFocus oBrw:CreateFromCode() oWnd:oClient := oBrw @9 ,1 button "To Excel" ACTION oBrw:ToExcel() of ownd ACTIVATE dialog oWnd ON INIT ...

... "Test" FROM 0,0 TO 24,80 @ 0,0 XBROWSE oBrw OF ownd ALIAS cAlias ; SIZE 200,100 ; FOOTERS FASTEDIT LINES CELL oBrw:bClrRowFocus := oBrw:bClrSelFocus oBrw:CreateFromCode() oWnd:oClient := oBrw @9 ,1 button "To Excel" ACTION oBrw:ToExcel() of ownd ACTIVATE dialog oWnd ON INIT ...

... oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW oLbx:nColDividerStyle := LINESTYLE_RAISED oLbx:nRowDividerStyle := LINESTYLE_RAISED oLbx:bClrSelFocus := {|| { CLR_WHITE, RGB(24, 116, 205) } } oLbx:lColDividerComplete := .t. oLbx:nHeaderLines := 1 oLbx:lRecordSelector := .t. oLbx:lAllowRowSizing ...

... oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW oLbx:nColDividerStyle := LINESTYLE_RAISED oLbx:nRowDividerStyle := LINESTYLE_RAISED oLbx:bClrSelFocus := {|| { CLR_WHITE, RGB(24, 116, 205) } } oLbx:lColDividerComplete := .t. oLbx:nHeaderLines := 1 oLbx:lRecordSelector := .t. oLbx:lAllowRowSizing ...

bClrStd for all lines and cells, when in focus and out of focus.

bClrSelFocus : for Selected Cell when the browse is in focus
bClrSel for Selected Cell when browse is not in focus

Hola.
¿Puede alguien indicarme cómo establecer el color para la línea del browse que tiene el foco? He probado con oBrw:bClrSelFocus pero no funciona.
Gracias por adelantado.

oBrw:bClrColSelFocus:={ || { CLR_BLACK, CLR_WHITE} }

oCol:bClrSelFocus := <....>

Amigos
Con cual instrucción se da color a la columna donde se encuentra el puntero
Con
oBrw:bClrSelFocus:={ || { CLR_BLACK, CLR_GRAY} }
Color a la línea

Algo
oBrw:bClrColSelFocus:={ || { CLR_BLACK, CLR_WHITE} }

Gracias

Saludos,

Adhemar

... ) oCol := n:AddCol() oCol:cHeader := "aplicacion" oCol:bStrData := { ||cat->apl_con} oCol:nWidth := 80 oCol:bClrSel := n:bClrSel oCol:bClrSelFocus := n:bClrSelFocus oCol := n:AddCol() oCol:cHeader := "nombre" oCol:bStrData := { ||cat->nom_apl} oCol:nWidth := 400 oCol:bClrSel ...

... ) oCol := n:AddCol() oCol:cHeader := "aplicacion" oCol:bStrData := { ||cat->apl_con} oCol:nWidth := 80 oCol:bClrSel := n:bClrSel oCol:bClrSelFocus := n:bClrSelFocus oCol := n:AddCol() oCol:cHeader := "nombre" oCol:bStrData := { ||cat->nom_apl} oCol:nWidth := 400 oCol:bClrSel ...

... ) oCol := n:AddCol() oCol:cHeader := "aplicacion" oCol:bStrData := { ||cat->apl_con} oCol:nWidth := 80 oCol:bClrSel := n:bClrSel oCol:bClrSelFocus := n:bClrSelFocus oCol := n:AddCol() oCol:cHeader := "nombre" oCol:bStrData := { ||cat->nom_apl} oCol:nWidth := 400 oCol:bClrSel ...

Hello, is it possible, to change the color of a focused memofield in xBrowse ? seems not to work with MEMOFIELDS . :bClrSelFocus = { || { 0, 16512957 } } :bClrSel = { || { 16777215, 255 } } http://www.pflegeplus.com/picctures/MFocus1.jpg // 2oCol  := oBrw1:oCol( ...