Report Preview page Panel FWH 1412

[Rick Lipkin]

Antonio

Just ran a multiple page report that is created in landscape mode and I just noticed the thumbnail side panel overlaps and distorts the report .. see screenshot

Only seems to happen with landscape and multiple pages.

Rick Lipkin

[Silvio.Falconi]

I allready ask this error ...
I thinked to insert on configuration 8 on menu) the possibility to show panel preview or not ( as adobe reader)

[Antonio Linares]

Rick,

Before creating your report, please execute this code:

TPreview():lListViewHide := .F.

[Silvio.Falconi]

Sorry I not Know this set logic.. but it can be insert on menu ...just an idea ...

[Otto]

Hello Antonio,
I think it should be set to TRUE.
TPreview():lListViewHide := .T.

Best regards,
Otto

[Antonio Linares]

Otto,

yes, right. Thanks

[Rick Lipkin]

Antonio

Your suggestion worked .. unfortunately, I have at least 8-10 programs with hundreds of cumulative reports that are in landscape mode and I will have to go in and modify each one to turn off the preview panel.

If I may suggest for backwards compatibility, that the preview panel be turned off and let the programmer decide if they want the panel as an option ?

Let me know what you decide .. I will wait to make the changes.

Thanks
Rick Lipkin

[nageswaragunupudi]

TPreview():lListViewHide is a CLASSDATA. This is a global setting

If you set it to .T. at the beginning of the function Main(), and thumbnails will not be shown in your entire project.

[Rick Lipkin]

Rao

Thank you for your suggestion ... This indeed turns off the thumbnails, but for those developers that wish to use them the panel does need to be fixed.

Rick Lipkin

[Antonio Linares]

Rick,

If the report is in landscape I am afraid there is not enough space for the thumbnails, so it seems as there is no other way to do it.

[Rick Lipkin]

Antonio

I understand .. No Problem

Rick Lipkin

[Horizon]

TPreview():lListViewHide is a CLASSDATA. This is a global setting

If you set it to .T. at the beginning of the function Main(), and thumbnails will not be shown in your entire project.

Hi Mr. Nages,

Can we use this syntax for all class that is define CLASSDATA?

Thanks,

[Antonio Linares]

Hakan,

yes

[Silvio.Falconi]

Antonio,
Nages,

Wich is the right syntax for the function RPrevUserBtns( bNewUserBtns, nBarStyle, aSize )
I wish insert a button for select the show of Samll PreviewPanel
Thanks

I made :

Code: Select all  Expand view

RPrevUserBtns( { |oPreview, oBar| ReportExtend( oPreview, oBar ) } )

function ReportExtend( oPreview, oBar )

   DEFINE BUTTON OF oBar ;
      RESOURCE 'SAVE' ;  // from our resource or bitmap file
      TOOLTIP 'Show the Panel' ;
      ACTION IIF(oPreview:lListViewHide = .F.,.t.,.f.)



return nil

It show the button but then not execute the command

[nageswaragunupudi]

Code: Select all  Expand view

RPrevUserBtns( { |oPrev,oBar| AddMyButtons( oPrev, oBar ) } )

....

function AddMyButtons( oPreview, oBar )

   DEFINE BUTTON OF oBar RESOURCE "MYRES" ACTION MyAction()
   DEFINE BUTTON OF oBar .....< more buttons >

return nil
 

These user buttons will be inserted before the standard buttons "SaveAs", "PDF", "Word", "Excel", "End"

If the AddMyButtons() function returns .F., then the standard buttons "SaveAs", "PDF", "Word", "Excel" will not be inserted by RPreview and the user can use his custom buttons and actions for these functions also in his AddMyButtons(...) function.

2nd parameter nStyle can be used to override the default by specifying 2007,2010 or 2013

3rd parameter aSize can be used to override the size of buttons. eg. { 48, 48 }