Simulate Rpreview for tablet

[Silvio.Falconi]

How I can make a preview on a tablet ?
the normal rpreview is not touch and the user cannoet use menu and small button
Any solution ?

[cnavarro]

Menu options do not get higher?

[Silvio.Falconi]

I'm thinking to make a window for tablet
only with buttonbar with big buttons
we can create

TTabPreview From TPreview

but i not know how make it or insert a control on tPreview where it control if the device is a tablet
and use these commands

Code: Select all  Expand view

 ::oWndMain:bRClicked          := { || ::oWndMain:Refresh() }
 ::oWndMain:bOnSettingChange   := { |o,w,lp| WaitRefresh( ::oWndMain,w,lp ) }
::oWndMain:bOnDisplayChange   := { || DlgResize( ::oWndMain, oThis:aBtnMain ) }

STATIC function DlgResize( oDlg, aBtn )

   local i, j, n, r, c, w, h

   WITH OBJECT oDlg
      :nWidth     := Int( ScreenWidth()  * 0.85 )
      :nHeight    := Int( ScreenHeight() * 0.85 )

      w           := ( :nWidth  - 60 ) / 4
      h           := ( :nHeight - 80 ) / 3

   END

   r     := 20
   n     := 1
   for i := 1 to 3
      c     := 20
      for j := 1 to 4
         WITH OBJECT aBtn[ n ]
            :nTop    := r
            :nLeft   := c
            :nWidth  := w - 10
            :nHeight := h - 10
         END
         n++
         c     += w
      next j
      r  += h
   next i

   oDlg:Center()
   oDlg:Refresh()

   return nil

 //-----------------------------------------------------------------------------------------//
static function WaitRefresh( ownd, w, l )

   static n := 0

   if oTimer == nil
      DEFINE TIMER oTimer OF oWnd INTERVAL 400 ;
         ACTION ( n++, oWnd:Refresh(), If( n > 4, (oTimer:End(), oTimer := nil, n := 0), nil ) )
      ACTIVATE TIMER oTimer
   endif

return nil
 //-----------------------------------------------------------------------------------------//

i use it for my tablet application with success on wnd main and all main dialogs and run ok