HELLO

Think u for all your opinion and kindness. :)

I have make certain classes for my app.

But i consider that they should be form/scx rather

then class in a classlib. It's better to modifing

,caz the feedback is speeded up.

So i gonna convert them back to form in a easy way.


I had wrote a form to accomplish the job last night.

Here are some code segment. I will send it to download zone

after some debugging.


cmdDoConvert.click

IF EMPTY(this.Parent.cboForm.Value) OR  !USED('vcx')
	RETURN .f.
ENDIF 

LOCAL nBegPos,nEndPos,lErr,cPathAndStem

cPathAndStem= JUSTPATH(this.Parent.txtscx.Value) + JUSTSTEM(this.Parent.txtscx.Value)

SELECT vcx
LOCATE FOR TRIM(baseclass)=='form' AND TRIM(objname)==this.Parent.cboForm.Value
IF NOT FOUND()
	MESSAGEBOX('error while locate the class',48,'')
	RETURN .f.
ENDIF 

SKIP -1 
nBegPos=RECNO()
SKIP 

LOCATE FOR TRIM(platform)=='COMMENT' REST 
IF NOT FOUND()
	MESSAGEBOX('error while search the end postion of class',48,'')
	RETURN .f.
ENDIF 

nEndPos=RECNO()
*----------------------

TRY 
	SELECT *;
		FROM vcx;
		WHERE RECNO()>=nBegPos AND RECNO()<=nEndPos;
		INTO TABLE (cPathAndStem)
CATCH 
	lErr=.t.
ENDTRY 
IF lErr
	MESSAGEBOX('error while saving form ',48,'')
	RETURN .f.
ENDIF 
*-----------------------------
USE IN vcx 

CURSORSETPROP("Buffering" ,1)
REPLACE uniqueid WITH 'Screen',;
		reserved1 WITH 'VERSION =   3.00'
USE 

cPathAndStem= JUSTPATH(this.Parent.txtscx.Value) + JUSTSTEM(this.Parent.txtscx.Value)

TRY 
	ERASE (cPathAndStem+'.scx')
	ERASE (cPathAndStem+'.sct')
CATCH 
	lErr=.t.
ENDTRY 
IF lErr
	MESSAGEBOX('error while overwriting existed form ',48,'')
	RETURN .f.
ENDIF 
		
RENAME (cPathAndStem+'.dbf') TO (cPathAndStem+'.scx')
RENAME (cPathAndStem+'.fpt') TO (cPathAndStem+'.sct')

IF MESSAGEBOX('convert finished. do u want to open it?',4+32 ,'')=7 &&NO
	RETURN .T.
ENDIF 
*---

MODIFY FORM (cPathAndStem) NOWAIT