Report Preview page Panel FWH 1412

[Silvio.Falconi]

Another idea :

DATA oMenuListPanel

from 688 line of METHOD BuildMenu()

SEPARATOR

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

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



why not run ?

[nageswaragunupudi]

Try this

Code: Select all  Expand view

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
 

[nageswaragunupudi]

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: Select all  Expand view

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

Substitute this part with:

Code: Select all  Expand view

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: Select all  Expand view

     ::oLvw:Hide()

   else
 

Substitute with:

Code: Select all  Expand view

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