FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour The neatest way to remove email button from TPreview
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
The neatest way to remove email button from TPreview
Posted: Mon Apr 29, 2019 05:02 AM

Hi,
While testing FWH19.03+Bcc7.3+Harbour, I found out if I click the email button at print preview it will cause my exe to silently terminate.

Is there a neat way for me to remove this button without having to customized rpreview.prg for all of my reports?

TIA

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: The neatest way to remove email button from TPreview
Posted: Mon Apr 29, 2019 10:01 AM
We can not remove the button without altering the program.
But it is possible to assign a dummy action or an alternative action to this button which may serve your purpose.

At the outset of your main function
Code (fw): Select all Collapse
   Tpreview():bEMail := { || MsgInfo( "not implemented" ) }


or
Code (fw): Select all Collapse
   Tpreview():bEMail := { || nil ) }


This should solve your problem.
Regards



G. N. Rao.

Hyderabad, India
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
Re: The neatest way to remove email button from TPreview
Posted: Mon Apr 29, 2019 10:10 AM

Thanks Rao.

I guess I'll have to go with customizing rpreview.prg route as customers are bound to complain if something is there but they can't use it.

Hope inf future rpreview will be enhanced so that programmer can pick what button is to be shown.
Maybe by passing TPreview():aBtnsShow := {.t., .t., .f. ......} or something similar

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: The neatest way to remove email button from TPreview
Posted: Mon Apr 29, 2019 10:23 AM

1) None of us have seen a program crash by pressing email button. We are hearing this for the first time in all these years.
2) You have a far better option. You can define your own buttonbar instead of the default buttonbar.

TPreview():bButtonBar := { |oPreview, oWnd| YourButtonBar( oPreview, oWnd ) }
Highest flexibility to customize.

Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: The neatest way to remove email button from TPreview
Posted: Mon Apr 29, 2019 04:14 PM
New CLASSDATA bSetup is provided in class Tpreview in FWH 1904.

Code (fw): Select all Collapse
   RPrevUserBtns( nil, 2007 )
   TPreview():bSetup := <|oPreview, oWnd|
         WITH OBJECT oWnd:oBar
            :aControls[ 10 ]:End()
            ADel( :aControls, 10, .t. )
            :BtnAdjust()
         END
         return nil
         >


This removes the Email button from the bar.

Regards



G. N. Rao.

Hyderabad, India
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
Re: The neatest way to remove email button from TPreview
Posted: Tue Apr 30, 2019 02:53 AM
nageswaragunupudi wrote:1) None of us have seen a program crash by pressing email button. We are hearing this for the first time in all these years.

Yeah. Could be something in my development environment that's causing it. Unable to pinpoint the cause so far


nageswaragunupudi wrote:New CLASSDATA bSetup is provided in class Tpreview in FWH 1904.
Code (fw): Select all Collapse
   RPrevUserBtns( nil, 2007 )
   TPreview():bSetup := <|oPreview, oWnd|
         WITH OBJECT oWnd:oBar
            :aControls[ 10 ]:End()
            ADel( :aControls, 10, .t. )
            :BtnAdjust()
         END
         return nil
         >

Cool! Way-way neater than what I had in mind. Thanks a bunch Rao

Where do I place the code? At every report or just need to call them once from the main prg?
FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: The neatest way to remove email button from TPreview
Posted: Tue Apr 30, 2019 03:38 AM
Where do I place the code? At every report or just need to call them once from the main prg?


Call it once in the main program.
You can also make any other changes you consider appropriate.

Note: This is from FWH1904 to be released soon.
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion