bAction on Help Button at Dialog Title Bar!?

[Antonio Linares]

Júlio,

Could you please explain what specific action you want to do when the "?" is clicked ? Whats your idea ?

Is just to know what parameters you need to be supplied to the codeblock.

[JC]

Antonio,

I need to execute a generic function that will go evaluate all components of my dialog.

It would be interesting if it could be passed to a dialog when in defining process... Like a property of dialog... and using the lHelpIcon property, when it is true... But, is also necessary that the normal process of button HelpIcon is pressed, with bHelpIcon defined, stay disabled.

Code: Select all  Expand view

DEFINE DIALOG oDlg ...

       oDlg:lHelpIcon := .T.
       oDlg:bHelpIcon := {|oDlg| myFunction( oDlg ) }

       ...

ACTIVATE DIALOG oDlg CENTER

So, I will access all components of dialog with this way.. or some else thing

Antonio, what do you think that?

[JC]

Antonio,

Sorry for my impatience... please, take a look!

[Antonio Linares]

Julio,

Try this:

Add a new DATA bHelpIcon to Class TDialog and then change this method:

Code: Select all  Expand view

METHOD SysCommand( nWParam, nLParam ) CLASS TDialog

   if nWParam == SC_CLOSE .and. ::lModal
      if GetCapture() != 0
         ReleaseCapture()
      endif   
      return .f.
   endif

   if nWParam == SC_HELP
      if ValType( ::bHelpIcon ) == "B"
         Eval( ::bHelpIcon, Self )
      endif
      ::lHelpIcon = .t.
      return .f.
   endif

return Super:SysCommand( nWParam, nLParam )


[JC]

Antonio,

Was exactly this what I done! Thank for your confirmation!