Dynamically adjusting a get field width in a folder

[hua]

For gets on a regular dialog box, I use the following to change their width:

Code: Select all  Expand view

activate dialog oDlg on init ChgGetsWid(oDlg)

How to specify on init for a folder's page?

TIA

[James Bott]

Have you tried oFolder:bInit?

James

[StefanHaupt]

Hua, James,

the bInit is not executed for the dialogs.

You have to change the method Default(), where the the dialogs are activated and add your own bInit to the standard init.

[James Bott]

Stefan,

>the bInit is not executed for the dialogs.

I'm not sure what you mean. Can't you just do something like:

activate dialog oDlg on init oFolder:bInit

Are you saying that oDlg:bInit never gets eval'd?

James

[StefanHaupt]

James,

in the folder class for every page a dialog is created (see Method New() or Redefine() ). These dialogs are activated in the method Default().

Code: Select all  Expand view

for nLen = 1 to Len( ::aDialogs )
      oDlg = ::aDialogs[ nLen ]
.....
ACTIVATE DIALOG oDlg NOWAIT ;
                  ON INIT oDlg:Move( nHeight - 1, 1 ) ;
                  VALID .f.                // to avoid exiting pressing Esc !!!
......

As you see there is no self-defined bInit (e.g. oFld:bInit) executed.

A possible solution could be (not tested !)

Code: Select all  Expand view

ACTIVATE DIALOG oDlg NOWAIT ;
                  ON INIT (oDlg:Move( nHeight - 1, 1 ), IIF(::bInit!=nil,Eval(bInit),) ) ;
                  VALID .f.                // to avoid exiting pressing Esc !!!

[Antonio Linares]

As Stefan explains, the ON INIT of the folder dialogs is being used, so it replaces a previous existing bInit:

oFolder:aDialogs[ n ]:bInit = { || ... code ... }

so the Stefan solution is right. I suggest it this way:

Code: Select all  Expand view

ACTIVATE DIALOG oDlg NOWAIT ;
        ON INIT ( oDlg:Move( nHeight - 1, 1 ),;
        If( oDlg:bInit != nil, Eval( oDlg:bInit, oDlg ),) ) ;
        VALID .F.


[StefanHaupt]

Yes, you are right

So every page of the folder can have it´s own bInit.

[hua]

James, Stefan, Antonio,
Thanks for the input . Will give it a try later on