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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour bAction on Help Button at Dialog Title Bar!?
Page: 1 2 (20 posts)
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.
So, I will access all components of dialog with this way.. or some else thing
Antonio, what do you think that?
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.
DEFINE DIALOG oDlg ...
oDlg:lHelpIcon := .T.
oDlg:bHelpIcon := {|oDlg| myFunction( oDlg ) }
...
ACTIVATE DIALOG oDlg CENTERSo, I will access all components of dialog with this way.. or some else thing
Antonio, what do you think that?
Peace and lighting!
Júlio César M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Júlio César M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Antonio,
Sorry for my impatience... please, take a look!
Peace and lighting!
Júlio César M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Júlio César M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Julio,
Try this:
Add a new DATA bHelpIcon to Class TDialog and then change this method:
Try this:
Add a new DATA bHelpIcon to Class TDialog and then change this method:
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 )Antonio,
Was exactly this what I done! Thank for your confirmation!
Peace and lighting!
Júlio César M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Júlio César M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Page: 1 2 (20 posts)