Rpreview MDI

[Rick Lipkin]

To All

I have just upgraded to FWH 807 from fwh2.7 and one of the things I notice is that when I show a report to the screen with rpreview and it is being called from a MDI or child .. the MDI menu pops into view.. not the behavoir I was used to. I would just a soon not have the main MDI menu show thru the rpreview .. is there a new setting to NOT allow the MDI menu's to show from the previewer ??

Rick Lipkin
SC Dept of Health, USA

[Antonio Linares]

Rick,

In source\classes\rpreview.prg simply remove MDICHILD clause, and the preview will not appear as a MDICHILD window.

[Rick Lipkin]

Antonio

Wish there was a parameter you could pass from code that would disable the MDI clause ... I really prefer non mdi for the preview.

Or .. be able to blank out the MDI main window menu's ??

Rick


if ::oWndMain != nil .and. Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL // MDICHILD
else
DEFINE WINDOW ::oWnd FROM 0, 0 TO 24, 80 ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL MENU ::BuildMenu()
endif

[Antonio Linares]

Rick,

I guess we need to decide a clause name to use to avoid the creation of a preview in a MDICHILD window. Other users have reported that they don't want the preview to become a MDICHILD window inside the main MDIFRAME.

So lets just decide what clause name to use

[Rick Lipkin]

Antonio

I hope these words are not reserved .. but easily understandable would be
Modal and NonModal ??

Rick Lipkin

[Otto]

Hello Antonio,

I had a look into FWH200812 but I didn’t found a clause name to avoid the creation of a preview in a MDICHILD window.
Will this be available in 200901?
Thanks in advance
Otto


DEFINE FONT ::oFont NAME GetSysFont() SIZE 0, -12

if ::oWndMain != nil .and. Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL MDICHILD
else
DEFINE WINDOW ::oWnd FROM 0, 0 TO 24, 80 ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL MENU ::BuildMenu()
endif

[Rick Lipkin]

Otto

The code is in rpreview.prg .. \source\classes .. here is the snipit :

Code: Select all  Expand view

//----------------------------------------------------------------------------//

METHOD BuildWindow() CLASS TPreview

   local oIcon, cTitle := "FiveWin Printing Preview", oCursor
   local hOldRes := GetResources(), oThis := Self
   
   DEFAULT ::oWndMain := WndMain()
   
   #ifdef __CLIPPER__
      ::cResFile := "Preview.dll"
   #else
      if ! IsWin64()
         ::cResFile := "Prev32.dll"
      else
         ::cResFile = "Prev64.dll"
      endif     
   #endif
   
   if SetResources( ::cResFile ) < 32
      MsgStop( ::cResFile + " not found, imposible to continue",;
               "FiveWin Printing Error" )
      return nil
   endif
   
   if ::oDevice != nil
      cTitle = ::oDevice:cDocument
   endif   

   if ::oWndMain != nil
      oIcon = ::oWndMain:oIcon
   else
      DEFINE ICON oIcon RESOURCE "Print"   
   endif

   DEFINE FONT ::oFont NAME GetSysFont() SIZE 0, -12

   if ::oWndMain != nil .and. Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"
      DEFINE WINDOW ::oWnd ;
         TITLE cTitle ;
         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;
         ICON  oIcon                        ;
         VSCROLL HSCROLL //   MDICHILD    <-- rem this out
   else     
      DEFINE WINDOW ::oWnd FROM 0, 0 TO 24, 80  ;
         TITLE cTitle ;
         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;
         ICON  oIcon                        ;
         VSCROLL HSCROLL MENU ::BuildMenu()
   endif

[Otto]

Thank you Rick.
I knew that. But I thought “Modal and NonModal” should become a feature of rPreview that you can instantiate rprieview with parameter “MODAL” or "NONMODAL”.
Regards,
Otto

[Rick Lipkin]

Otto

I agree .. there needs to be a parameter to pass to turn off the MDI clause.

Rick

[Silvio]

there is an error search on forum an old my post I correct it !!!