> >USE getfile('scx') >* > >go top >DO WHILE NOT EOF() > IF INLIST(UPPER(CLASS),'LABEL','EMBOSSEDLABEL','TEXTBOX','EDITBOX') > > mfind = 'BackStyle' > mreplacewith = ' = 0' > =fixit(mfind,mreplacewith) > ENDIF > > SKIP > >ENDDO > >use > > >********************************* >FUNCTION fixit() >PARA mfind,mreplacewith >* >mpos = AT(mfind,properties) >IF mpos > 0 > mtmp = properties > mbegstring = SUBSTR(mtmp,1,(mpos-1)) > mmidstring = mfind+mreplacewith > > mtmp = SUBSTR(mtmp,mpos+1) > > mchr13 = AT(CHR(13),mtmp) > mendstring = SUBSTR(mtmp,mchr13) > m.properties = mbegstring+mmidstring+mendstring >ELSE > m.properties = properties+CHR(13)+CHR(10)+mfind+mreplacewith >ENDIF >REPL properties WITH m.properties >RETURN > >********************************* > >>