Skip to content

Latest commit

 

History

History
65 lines (57 loc) · 2.47 KB

README.md

File metadata and controls

65 lines (57 loc) · 2.47 KB

CreateMemberdataOfPrgBasedClasscode

Description:

This program creates the memberdata (Methods and Properties) of your referenced program.PRG:ClassName.
Pass the Fullpath of your .PRG and the contained classname you want to receive the memberdata.
As displayname the program use the same capitalization like written in your code.

Return value

_MEMBERDATA =														 ;
  + [<VFPData>] + CHR(13)											 ;
  + [<memberdata name="..." type="..." display="..."/>] + CHR(13)	 ;
  + [</VFPData>]

Sample - How does it works:

For testing purposes you can create a program like this

* Create this to C:\Dev\myTestProgram.prg
DEFINE CLASS myTestClassName as Custom 
	
	lShowProgress = .F.
	DIMENSION lShowProgress_COMATTRIB[5]
	lShowProgress_COMATTRIB[1] = 0x40	&& Hidden
	lShowProgress_COMATTRIB[2] = "Description for TLB"
	lShowProgress_COMATTRIB[3] = "lShowProgress"
	lShowProgress_COMATTRIB[4] = "Boolean"
	lShowProgress_COMATTRIB[5] = 0
	
	PROTECTED nProtectedProperty
	nProtectedProperty = 1
	HIDDEN cHiddenProperty
	cHiddenProperty = "You can't see me"
	lRegulareProperty = .T.
	
	DIMENSION aArrayAsProperty[1,3]
	
	PROCEDURE IniT()
	PROCEDURE Destroy
	HIDDEN PROCEDURE mHiddenMethod(tcPara1)
	PROTECTED FUNCTION mProtectedMethod
	FUNCTION mRegularMethod
ENDDEFINE

Now just create the memberdata for CLASS myTestClassName

 _cliptext = CreateVfpMemberdataOfPrgBasedClass("C:\Dev\myTestProgram.prg", "myTestClassName")

Receive result

	_MEMBERDATA = ;
		+ [<VFPData>] + CHR(13) ;	
		+ [<memberdata name="lshowprogress" type="property" display="lShowProgress"/>] + CHR(13) ;	
		+ [<memberdata name="nprotectedproperty" type="property" display="nProtectedProperty"/>] + CHR(13) ;	
		+ [<memberdata name="chiddenproperty" type="property" display="cHiddenProperty"/>] + CHR(13) ;	
		+ [<memberdata name="lregulareproperty" type="property" display="lRegulareProperty"/>] + CHR(13) ;	
		+ [<memberdata name="aarrayasproperty" type="property" display="aArrayAsProperty"/>] + CHR(13) ;	
		+ [<memberdata name="init" type="method" display="IniT"/>] + CHR(13) ;	
		+ [<memberdata name="destroy" type="method" display="Destroy"/>] + CHR(13) ;	
		+ [<memberdata name="mhiddenmethod" type="method" display="mHiddenMethod"/>] + CHR(13) ;	
		+ [<memberdata name="mprotectedmethod" type="method" display="mProtectedMethod"/>] + CHR(13) ;	
		+ [<memberdata name="mregularmethod" type="method" display="mRegularMethod"/>] + CHR(13) ;
		+ [</VFPData>]