FiveTech Support Forums

Dear Friends,

I modify the Design.prg this week.... the sample test of fwh not run ok



I insert other controls, I change Button position and dimensions (on visual) ,

I change all controls position and dimensions (on visual)

I insert Folder control and folderex , on Folder control now you can insert say,get,button, listbox controls inside

I insert also a Controls Creation/Tab Order

Controls add
say
3 type of get ( normal,spinner,Memo)
Button
BtnBmp
CheckBox
ListBox
ComboBox
GroupBox
Folder
FolderEx
Treeview
Radio
Datepick
XBrowse ( not working because the design clausole not work)

I sent to Antonio the source code

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 window class

line 1304

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 ?

Silvio.Falconi wrote: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 window class

line 1304

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 ?

Hello, do you have to share your design.prg changes ?

Compuin
I don't remember where I put this source, I probably deleted it, I'm sorry I can't help you
then looking back I didn't make any changes, so find the source on fwh sample

then I wrote "I sent to Antonio the source code"
do you ask to Antonio ?