LPARAMETER oContainer * Checks for General fields LOCAL i,oControlParent IF PCOUNT() = 0 m.oControlParent = THIS.PARENT ELSE m.oControlParent = m.oContainer ENDIF FOR i = 1 TO m.oControlParent.ControlCount DO CASE CASE ATC(m.oControlParent.Controls[m.i].BaseClass, line,shape,label,header,column,commandgroup,optiongroup" ) > 0 LOOP CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"Column,Spinner,EditBox,TextBox")>0 m.oControlParent.Controls[m.i].ReadOnly = .NOT.THIS.EditMode <b>CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"ComboBox,ListBox,OptionGroup,CheckBox") > 0 IF this.EditMode m.oControlParent.Controls[m.i].EditMode = .T. m.oControlParent.Controls[m.i].resetToDefault( 'BackColor' ) m.oControlParent.Controls[m.i].resetToDefault( 'ForeColor' ) ELSE m.oControlParent.Controls[m.i].EditMode = .F. m.oControlParent.Controls[m.i].BackColor = ; m.oControlParent.Controls[m.i].DisabledBackColor m.oControlParent.Controls[m.i].ForeColor = ; m.oControlParent.Controls[m.i].DisabledForeColor ENDIF</b> CASE ATC("Container",m.oControlParent.Controls[m.i].BaseClass) > 0 THIS.SetAllProp(m.oControlParent.Controls[m.i]) ENDCASE ENDFOR>nancy,