Открываешь файл *.scx и репласишь поля class и classloc

use ?

repl class with 'rgrid';
classloc with "..\libs\controls.vcx";
for upper(class)='GRID'

repl class with 'rtextbox';
classloc with "..\libs\controls.vcx";
for upper(class)='TEXTBOX'

repl class with 'rcheckbox';
classloc with "..\libs\controls.vcx";
for upper(class)='CHECKBOX'

repl class with 'rcombobox';
classloc with "..\libs\controls.vcx";
for upper(class)='COMBOBOX'


repl class with 'rcommandbutton';
classloc with "..\libs\controls.vcx";
for upper(class)='COMMANDBUTTON'

repl class with 'reditbox';
classloc with "..\libs\controls.vcx";
for upper(class)='EDITBOX'

repl class with 'rform';
classloc with "..\libs\controls.vcx";
for upper(class)='FORM'

repl class with 'rlabel';
classloc with "..\libs\controls.vcx";
for upper(class)='LABEL'

repl class with 'rshape';
classloc with "..\libs\controls.vcx";
for lower(class)='shape'

repl class with 'roptiongroup';
classloc with "..\libs\controls.vcx";
for lower(class)='optiongroup'


repl class with 'rspinner';
classloc with "..\libs\controls.vcx";
for lower(class)='spinner'


Posted via ActualForum NNTP Server 1.4

Можешь тот код вставить внутрь этого:


Local lcCurdir, LcReportDir
LcReportDir=GETDIR('', 'Формы располагаются')

if empty(LcReportDir)
Return .f.
EndIF

lcCurdir=CurDir()

LOCAL lnCount
LOCAL ARRAY laFrx[1]
lnCount=ADIR(laFrx, LcReportDir+'*.scx')


LOCAL lnI, lnCountReplace, lnCountNotReplace
lnCountReplace=0
lnCountNotReplace=0

for lnI=1 to lnCount
select 0
use (LcReportDir+laFrx[lnI, 1]) again


&& Код вставлять
сюда!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



use
EndFor

MessageBox('Всего форм в директории : '+Transform(lnCount)+chr(13)+'Заменено
классов в : '+Transform(lnCountReplace)+chr(13)+'Не заменено :
'+transform(lnCountNotReplace),0,'Просмотр завершен')


Posted via ActualForum NNTP Server 1.4