How to Change the Color of Edit Boxes on a Wizard Form

MORE INFORMATION

1. Use the employee table, and build a wizard form using the last_name field and the notes memo field.
2. Add the following code to the Click event of the edit/revert button:

    TXTBTNS.CMDEDIT::CLICK   && scope resolution operator
                               && to make sure Wizstyle.vcx code is executed
      If !THISFORM.notes1.READONLY
        THISFORM.notes1.FORECOLOR= THISFORM.last_name1.FORECOLOR
        THISFORM.notes1.backcolor= THISFORM.last_name1.BACKCOLOR
      ELSE
        THISFORM.notes1.FORECOLOR= THISFORM.last_name1.DISABLEDFORECOLOR
        THISFORM.notes1.BACKCOLOR= THISFORM.last_name1.DISABLEDBACKCOLOR
      ENDIF
   						

   In this code, the edit box is called notes1 and the text box is called last_name1.
3. Place the same code in the add/save button. Replace cmdEdit with cmdAdd. This code will allow the edit box colors to stay in sync with the text box colors. Alternate colors may be used by specifying RGB colors in the code instead of forecolor, backcolor, disabledforecolor, or disabledbackcolor.
4. If you changed the disabled colors of the text boxes in the Property sheet, add the following two lines of code to the Init event of the form:

      THISFORM.notes1.FORECOLOR= THISFORM.last_name1.DISABLEDFORECOLOR
      THISFORM.notes1.BACKCOLOR= THISFORM.last_name1.DISABLEDBACKCOLOR