topic-29948

Board index FiveWin for Harbour/xHarbour Report Preview page Panel FWH 1412

Page: 1 2 (18 posts)

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Report Preview page Panel FWH 1412
Posted: Mon Jan 12, 2015 08:28 AM

Another idea :

DATA oMenuListPanel

from 688 line of METHOD BuildMenu()

SEPARATOR

      MENUITEM ::oMenuListPanel PROMPT FWString( &quot;&amp;Show listpanel&quot; ) ;
                   ACTION (IIF(::lListViewHide=.F.,.T.,.F.)) ;
                   MESSAGE FWString( &quot;Show List panel&quot; )

      ::oMenuListPanel:bWhen   = {|| ::lListViewHide= .f. }

why not run ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Report Preview page Panel FWH 1412
Posted: Mon Jan 12, 2015 02:32 PM

Try this

Code (fw): Select all Collapse

function ReportExtend( oPreview, oBar )

   DEFINE BUTTON OF oBar ;
      RESOURCE 'SAVE' ;  // from our resource or bitmap file
      TOOLTIP 'Show the Panel' ;
      ACTION ( oPreview:oLvw:nWidth := If( oPreview:oLvw:nWidth == 0, 145, 0 ) )

return nil

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Report Preview page Panel FWH 1412
Posted: Mon Jan 12, 2015 04:27 PM

IMPORTANT: Please note:

I have been testing rpreview with the global setting TPreview():lListViewHide := .T.

When this data is set to .T., run-time errors occur during toggling Zoom/Unzoom and SinglePage/TwoPages.
We are fixing the problem for the next release.

Till then, I advise you to implement these fixes in the rpreview.prg.

Please search for ":blDblClick". You will find this in two places. You will notice that the last line of the codeblock in these two cases like this:

Code (fw): Select all Collapse

If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() )

Substitute this part with:

Code (fw): Select all Collapse

If ( ::lListViewHide, nil, If( ::lZoom, ::oLvw:Hide(), ::oLvw:Show() ) )

Please make sure that you made this substitution at two places.

Now go to METHOD TwoPages( lMenu ).
In this method locate these two lines:

Code (fw): Select all Collapse

      ::oLvw:Hide()

   else

Substitute with:

Code (fw): Select all Collapse

      if ! ::lListViewHide
         ::oLvw:Hide()
      endif
   else

Regards

G. N. Rao.

Hyderabad, India

Page: 1 2 (18 posts)

FiveTech Support Forums

Continue the discussion