there is a problem
when I create the prg and the dialog have a folder then it not create any controls are into the folder
I think we must modify the cGenPrg method of [b:14jr7v03]window class[/b:14jr7v03]
[b:14jr7v03]line 1304 [/b:14jr7v03]
if ! Empty( ::aControls )
cPrg += CRLF
AEval( ::aControls, { | oCtrl | cPrg += oCtrl:cGenPRG( lDlgUnits ) } )
endif
I think we must insert something of this :
for n= 1 to Len( ::aControls)
if (::aControls[n]:ClassName() ) $ "TFOLDER;TFOLDEREX"
For k= 1 to Len( ::aControls[n]:aDialogs)
AEval( ::aControls[n]:aDialogs[k], { | oCtrl | cPrg += oCtrl:cGenPRG( lDlgUnits ) } )
next
endif
next
what do you think about ?
↧