FoxPro/Visual FoxPro - Desaparecen componentes de form al usar BROWSE

BROWSE REST NODELETE NOAPPEND TITLE 'Mano de Obra/Alb.      F1 Añadir F2 Borrar '+;

			'F3 Insertar abajo  F4 Insertar arriba   F5 Texto' ;

			FIELDS  cod_mo :p = '@!' :v = cogemo(), ;

			rep1 :H = 'Concepto', ;

			eprecio1 :H = 'Precio' :p ='9,999,999.99' :v = cogeese() , ;

			tmo1 :H = 'T.M.O.', TOTAL=eprecio1*tmo1 :p = '9,999,999.99' :R :W=.F., ;

			seccion :H = 'Sec.' :p = '@!' :v = agna2() :F,;

			nalba :R :W=.F. ;

			FOR nfactura=xx .AND. re1=SPACE(50) .AND. linea<9000 ;

			WINDOW peio COLOR SCHEME 10

*------------------------------------------------------------------------------------------------------------------*

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

*------------------------------------------------------------------------------------------------------------------*