bChange : Difference TFolder() vs. TFolderEx()

[Jimmy]

hi,

attach Sample start with TFolderEx() (see high-light on TAB)

Code: Select all | Expand

#include "FiveWin.ch"

function Main(cPara)
local oDlg, oFld, oGet, cTest := "Hello world", cAnother := "Another GET"
local oCbx,nPos,cDia := "AAA"

   DEFINE DIALOG oDlg SIZE 400, 400

      @ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
            ITEMS { "AAA","BBB","CCC" }

IF !EMPTY(cPara)
   @ 40, 5 FOLDER oFld PIXEL ;
      PROMPT "&One", "&Two", "&Three" ;
      SIZE 190, 120
ELSE
   @ 40, 5 FOLDEREX oFld PIXEL ;
      PROMPT "&One", "&Two", "&Three" ;
      SIZE 190, 120
ENDIF

   oFld:bChange := {|| UpDateInfo( oCbx, oFld:nOption ) }

   @ 1, 1 GET oGet VAR cTest OF oFld:aDialogs[ 1 ]

   @ 2, 1 GET cAnother OF oFld:aDialogs[ 1 ]

   @ 9.2, 14 BUTTON "Ok" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oGet:SetFocus(), .F. )

return nil

STATIC PROCEDURE UpDateInfo( oCombo, nPos )
   oCombo:Select( nPos )
   oCombo:update()

   fwlog PROCNAME( 2 ), PROCLINE( 2 ), nPos
RETURN

when change TAB it does NOT change ComboBox

Code: Select all | Expand

   oFld:bChange := {|| UpDateInfo( oCbx, oFld:nOption ) }

now start App again with "any" Parameter for TFolder()
you will see that Combobox change when change TAB

[Antonio Linares]

Dear Jimmy,

Class TFolderEx uses bAction instead of bChange

[Jimmy]

hi Antonio,

Class TFolderEx uses bAction instead of bChange

aha, ok understand
thx