How to know the equate name of the control at run-time?

Navigation

0 Users online :: 0 Guests and 0 Registered

Controls

ID #1057

How to know the equate name of the control at run-time?

You may use undocumented procedure:
ClaFieldName(LONG),NAME('Cla$FieldName'),CSTRING,PROC

As mention above function is undocumented you may use legally user template (EXTENSION) that generates queue like:

		ControlNameQueue QUEUE
		Feq                UNSIGNED
		Name               STRING(100) ! or ASTRING
		                 END
		Run though all control and generate code for its fill:
		#FOR(%Control)
		  #IF(%Control)
		ControlNameQueue.Feq  = %Control
		ControlNameQueue.Name = '%Control'
		ADD(ControlNameQueue)
		  #ENDIF
		#ENDFOR
		SORT(ControlNameQueue, ControlNameQueue.Feq)
		After that equate name of control will be exctacted easy.