How to Display Current Control Properties at Run Time

MORE INFORMATION

For the following code sample to function as intended, the following conditions must be true:

• The WindowState must be normal (0).
• The form and control must be active and visible.
• No other instances of the form can be running.

Insert the following code sample into a method (such as Click or InteractiveChange) that can be called interactively to determine the current state of the control's properties.

When you run the code, the currently active form is minimized and the property list window activated. Once the desired status is determined, close the property list window to return the form to its normal state.

Code Sample

* Property list display code
LOCAL lnCnt
lnCnt=AMEMBERS(paTmp,THIS)    && Store properties in private array Tmp
SET SAFETY OFF
SET TEXTMERGE TO objsho
SET SAFETY ON
SET TEXTMERGE ON NOSHOW
THISFORM.WINDOWSTATE=1
FOR nI = 1 TO lnCnt
    \\<<paTmp[nI] + ' = '>>
    \\<<EVALUATE( 'THIS.' + paTmp[nI] )>>
    \ 
ENDFOR
SET TEXTMERGE OFF
SET TEXTMERGE TO
DEFINE WINDOW shobj AT 0,0 SIZE WROW()-12,WCOL()/2.5 ;
   TITLE 'Property List' SYSTEM GROW FLOAT CLOSE ;
   FONT _screen.FontName, _screen.FontSize ;
   STYLE IIF(_screen.FontBold,'B','N')
MODIFY FILE objsho NOMODIFY WINDOW shobj
RELEASE WINDOW shobj
THISFORM.WINDOWSTATE=0
* End of code