Hi Hernan,

   PROCEDURE Combo1.GotFocus
      DODEFAULT()

         WITH This.Parent
         This.BackColor=IIF(EMPTY(.DynamicBackColor),.BackColor,EVAL(.DynamicBackColor))
         This.ForeColor=IIF(EMPTY(.DynamicForeColor),.ForeColor,EVAL(.DynamicForeColor))

         *This.SelectedBackColor=This.BackColor
         *This.SelectedForeColor=This.ForeColor

         This.FontName=IIF(EMPTY(.DynamicFontName),.FontName,EVAL(.DynamicFontName))
         This.FontSize=IIF(EMPTY(.DynamicFontSize),.FontSize,EVAL(.DynamicFontSize))
         This.FontBold=IIF(EMPTY(.DynamicFontBold),.FontBold,EVAL(.DynamicFontBold))
         This.FontItalic=IIF(EMPTY(.DynamicFontItalic),.FontItalic,EVAL(.DynamicFontItalic))
         This.FontOutline=IIF(EMPTY(.DynamicFontOutline),.FontOutline,EVAL(.DynamicFontOutline))
         This.FontShadow=IIF(EMPTY(.DynamicFontShadow),.FontShadow,EVAL(.DynamicFontShadow))
         This.FontStrikethru=IIF(EMPTY(.DynamicFontStrikethru),.FontStrikethru,EVAL(.DynamicFontStrikethru))
         This.FontUnderline=IIF(EMPTY(.DynamicFontUnderline),.FontUnderline,EVAL(.DynamicFontUnderline))

         *This.InputMask=IIF(EMPTY(.DynamicInputMask),.InputMask,EVAL(.DynamicInputMask))
         This.Alignment=IIF(EMPTY(.DynamicAlignment),.Alignment,EVAL(.DynamicAlignment))
         ENDWITH

   ENDPROC

MartinaJ

>I change the font color in a grid based in MyField value.
>
>thisform.grdMyGrid.SetAll("DynamicForeColor",;
> "IIF(MyTable.MyField = .T., RGB(128, 255, 255), RGB(0, 0, 0))",;
> "Column")
>
>It works fine, but now I have put a combo in the column (column3.combo1) , and deleted the text1 in column3.text1.
>And now the color changes in the rest of the fields except the one that has the new combo.
>Any idea why this is not working properly?
>Thanks