CLOS ALL CLEA ALL CLEA SET EXCL ON SET TALK ON SET SAFE OFF ADIR(aForms,'*.scx') FOR i = 1 TO ALEN(aForms, 1) FIXCLASS2( aForms[i, 1] ) ENDFOR *------------------------------------------------------ PROCEDURE FIXCLASS2 PARAMETERS cFormName USE ( cFormName ) IN 0 * this line changes the base class for all controls to my base classes by adding a prefix of "lm_" REPLACE ALL CLASS WITH "lm_" + ALLTRIM(CLASS), ; CLASSLOC WITH "C:\LM\PROJECTS\CLASSES\LMCLASS.VCX" ; FOR UPPER(TRIM(CLASS))+',' $ ; "CHECKBOX,COMBOBOX,COMMANDBUTTON,COMMANDGROUP,EDITBOX,FORM,GRID,IMAGE,LABEL,LINE,LISTBOX,OPTIONBUTTON,OPTIONGROUP,PAGEFRAME,SHAPE,SPINNER,TEXTBOX,CONTAINER," ; AND UPPER(CLASS)<>"LM_" *!* * this line changes the base class for all controls back to the VFP base classes by removine the "lm_" prefix *!* REPLACE ALL CLASS WITH STRTRAN( CLASS, "lm_","" ), CLASSLOC WITH "" ; *!* FOR UPPER(TRIM(CLASS))+',' $ ; *!* "CHECKBOX,COMBOBOX,COMMANDBUTTON,COMMANDGROUP,EDITBOX,FORM,GRID,IMAGE,LABEL,LINE,LISTBOX,OPTIONBUTTON,OPTIONGROUP,PAGEFRAME,SHAPE,SPINNER,TEXTBOX,CONTAINER," ; *!* AND UPPER(CLASS)="lm_" USEHTH