*------------------------------------------------------------------------------------------------------------------*
Prueba el siguiente código Modelo y adáptalo a tu aplicación:
*------------------------------------------------------------------------------------------------------------------*
m.browx=.f. && variable control para no repetir
*------------------------------------------------------------------------------------------------------------------*
BROWSE name ObjectBrowse FIELDS ;
dbf_ppal.TIPOCURSO :H="Nivel" :P="@It" :22 :R , ;
dbf_ppal.textogrado :H="Año/Grado" :P="@I" :08 :R , ;
dbf_ppal.seccio :H="Sección" :P="@I" :V=VBROWS01(LASTKEY(),WONTOP()) :W=LOC_DLOG03(01) :08 :R :F, ;
freezedbf_ppal.seccio ;
noedit nodelete nomenu ;
IN window WINBRWN02 WHEN WHENGRILD_1();
title m.c_brtitle ;
FONT "Courier New" , 8 STYLE "N" COLOR SCHEME 5
*------------------------------------------------------------------------------------------------------------------*
*------------------------------------------------------------------------------------------------------------------*
m.browx=.f. && variable control para no repetir
*------------------------------------------------------------------------------------------------------------------*
return
*------------------------------------------------------------------------------------------------------------------*
*------------------------------------------------------------------------------------------------------------------*
*-***---------------------------------------------------------**-*
*-***---------------------------------------------------------**-*
PROCEDURE WHENGRILD_1 && *--* acción when en ObjectBrowse *--*
**PARAMETERS m.xParVne_ver**
IF m.browx=.T. && variable control para no repetir
RETURN
ENDIF
*------------------------------------------------------------------------------------------------------------------*
IF m.browx=.f.
*----------------------------------------------------------------------------------------------------------------------*
ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(NUMRECURSO,2)=1,RGB(206,255,247),RGB(245,247,252)))", "Column") && Alternate white and green records
ObjectBrowse.HighlightBackColor = RGB(201,216,239) && RGB(239,239,209) && RGB(230,181,216) && <=[ROSADO/CLARO] RGB(255,237,164) && RGB(255,245,205)
ObjectBrowse.SelectedItemBackColor = RGB(185,255,185) && RGB(182,202,234)
ObjectBrowse.SelectedItemForeColor = RGB(145,072,000) && RGB(109,100,095) && RGB(255,05,200)
ObjectBrowse.HighlightForeColor = RGB(010,001,090) && <=[AZUL/INTENSO] && RGB(055,055,034) && RGB(064,100,164)
ObjectBrowse.GridLineColor=rgb(176,198,223) && rgb(255,000,0) && *--* linea Roja
ObjectBrowse.HighlightStyle = 2
ObjectBrowse.FontBold=.t.
ObjectBrowse.Highlight=.t.
*----------------------------------------------------------------------------------------------------------------------*
*----------------------------------------------------------------------------------------------------------------------*
*ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(numrecurso,2)=1,RGB(255,255,234),RGB(255,245,203)))", "Column") && Alternate white and green records
*ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(numrecurso,2)=1,RGB(250,255,254),RGB(245,247,252)))", "Column") && Alternate white and green records
*----------------------------------------------------------------------------------------------------------------------*
*ObjectBrowse.HighlightBackColor = RGB(250,250,240) && RGB(255,255,0)
*ObjectBrowse.HighlightForeColor = RGB(64,0,64)
*ObjectBrowse.HighlightStyle = 2
*ObjectBrowse.FontBold=.t.
*ObjectBrowse.Highlight=.t.
*ObjectBrowse.SelectedItemBackColor= RGB(200,200,200)
*ObjectBrowse.SelectedItemForeColor= RGB(255,05,200)
*m.browx=.t.
*ENDIF
*-------------------------------------------------------------------------------------------------*
*-01-->dbf_ppal.TIPOCURSO <-----*
*-02-->dbf_ppal.grado <-----*
*-03-->dbf_ppal.seccio <-----*
*-04-->dbf_ppal.mencio <-----*
*-05-->dbf_ppal.NREG_FINAL <-----*
*-06-->dbf_ppal.TIPOEVALUA <-----*
*-------------------------------------------------------------------------------------------------*
*ObjectBrowse.Column4.Alignment= 2
*ObjectBrowse.Column4.ToolTipText="Seleccionar Curso"
*-------------------------------------------------------------------------------------------------*
*-------------------------------------------------------------------------------------------------*
*->ObjectBrowse.HighlightBackColor =(IIF(MOD(RECNO(),2)=1,RGB(217,255,253),RGB(192,220,192))) && RGB(217,255,253) && RGB(250,250,240) && RGB(255,255,0)
*-------------------------------------------------------------------------------------------------*
*-------------------------------------------------------------------------------------------------*
*->ObjectBrowse.SelectedItemBackColor= RGB(215,215,215) && RGB(200,200,200)/
*->ObjectBrowse.SelectedItemForeColor= RGB(119,00,095) && RGB(255,05,200)
*-------------------------------------------------------------------------------------------------*
*ObjectBrowse.SetAll("DynamicBackColor", "(IIF(MOD(NUMRECURSO,2)=1,RGB(255,255,234),RGB(255,245,203)))", "Column") && Alternate white and green records
ObjectBrowse.Column2.DynamicBackColor="(IIF(MOD(numrecurso,2)=1,RGB(255,255,234),RGB(255,245,223)))"
ObjectBrowse.Column3.DynamicBackColor="(IIF(MOD(numrecurso,2)=1,RGB(255,255,234),RGB(255,245,223)))"
*-------------------------------------------------------------------------------------------------*
*--(01)--------dbf_ppal.TIPOCURSO :H="Nivel" ---------------------------------------------------*
*-------------------------------------------------------------------------------------------------*
*ObjectBrowse.Column1.Header1.BackColor= RGB(255,255,0)
ObjectBrowse.Column1.DynamicFOREColor="( IIF( ALLTRIM(cursos.TIPOCURSO) $ 'Educación Básica', RGB(017,055,253), RGB(080,073,039) ) )"
ObjectBrowse.Column1.Header1.BackColor= RGB(255,255,240)
ObjectBrowse.Column1.FontName="ARIAL"
ObjectBrowse.Column1.FontSize= 9
ObjectBrowse.Column1.FontBold=.F.
*-------------------------------------------------------------------------------------------------*
*--(02)--------dbf_ppal.grado :H="º" ---------------------------------------------------*
*-------------------------------------------------------------------------------------------------*
ObjectBrowse.Column2.Alignment= 2
ObjectBrowse.Column2.Header1.BackColor= RGB(255,255,0)
ObjectBrowse.Column2.BackColor= RGB(217,255,255) && RGB(255,255,0) && amarillo
ObjectBrowse.Column2.ForeColor= RGB(047,048,018) && RGB(005,255,0) && verde
ObjectBrowse.Column2.FontSize=9
ObjectBrowse.Column2.FontName="Arial"
ObjectBrowse.Column2.DynamicFOREColor="( IIF( ALLTRIM(CURSOS.TIPOEVALUA) $ 'Curso para Notas', RGB(183,86,4), RGB(047,048,018) ) )"
*-------------------------------------------------------------------------------------------------*
return
*------------------------------------------------------------------------------------------------------------------*