Antonio - varios pequeños fixes para tpreview

[carlos vargas]

Antonio, ademas del problema del icono de la ventana de preview
esto hay que modificar en el metodo zoom:

Code: Select all  Expand view  RUN

---
      if ! lRebar
         ::oZoom:FreeBitmaps()
         ::oZoom:hBitmap1 = FWBitmap( "Unzoom2" )    //aca verificar cual es el correcto onepage2 o unzoom2
         ::oZoom:cMsg := FWString( "Page unzoom" )
         ::oZoom:cTooltip := StrTran( FWString( "&Normal" ), "&", "" )
         ::oZoom:Refresh() //NEW
      else
...
 

Code: Select all  Expand view  RUN

...
      if ! lRebar
         ::oZoom:FreeBitmaps()
         ::oZoom:hBitmap1 := FWBitmap( "Zoom2" )
         ::oZoom:cMsg = FWString( "Page zoom" )
         ::oZoom:cTooltip := FWString( "Zoom" )
         ::oZoom:Refresh() //NEW
      else
...
 

Code: Select all  Expand view  RUN

...
      if ! lRebar
         ::oTwoPages:FreeBitmaps()
         ::oTwoPages:hBitmap1 = FWBitmap( "OnePage2" )
         ::oTwoPages:cMsg = FWString( "Preview on one page" )
         ::oTwoPages:cTooltip = StrTran( FWString( "One &page" ), '&', '' )
         ::oTwoPages:Refresh()  //NEW
      else
...
 

Code: Select all  Expand view  RUN

...
      if ! lRebar
         ::oTwoPages:FreeBitmaps()
         ::oTwoPages:hBitmap1 =  FWBitmap( "twopages2" )
         ::oTwoPages:cMsg = FWString( "Preview on two pages" )
         ::oTwoPages:cTooltip = FWString( "Two pages" )
         ::oTwoPages:Refresh()  //NEW
      else
...
 

[carlos vargas]

Code: Select all  Expand view  RUN

...
METHOD SetOrg1( nX, nY, nKeyFlags )  // agregar tercer parametro "nKeyFlags"
METHOD SetOrg2( nX, nY, nKeyFlags ) // agregar tercer parametro "nKeyFlags"
...
METHOD SetOrg1( nX, nY, nKeyFlags ) CLASS TPreview  // agregar tercer parametro "nKeyFlags"
METHOD SetOrg2( nX, nY, nKeyFlags ) CLASS TPreview  // agregar tercer parametro "nKeyFlags"
 

[carlos vargas]

Code: Select all  Expand view  RUN

      DEFINE BUTTON ::oTwoPages OF oBar ;
         MESSAGE FWString( "Preview on two pages" ) ;
         ACTION  ::TwoPages() ;
         TOOLTIP FWString( "Two pages" )

      ::oTwoPages:hBitmap1 = FWBitmap( "TwoPages2" )
      ::oTwoPages:bWhen := {|| Len( ::oDevice:aMeta ) > 1 } // NEW
 

[carlos vargas]

Code: Select all  Expand view  RUN

---
         MENUITEM ::oMenuTwoPages PROMPT FWString( "&Two pages" ) ACTION ::TwoPages( .T. ) ;
            MESSAGE FWString( "Preview on two pages" )

         ::oMenuTwoPages:hBitmap = FWBitmap( "TwoPages2" )
         ::oMenuTwoPages:bWhen   = {|| Len( ::oDevice:aMeta ) > 1 } //NEW
---
 

[Antonio Linares]

Carlos,

Serias tan amable de enviarme por email tu rpreview.prg ?

muchas gracias

[carlos vargas]

ok, antonio, te lo envió cuando este en el trabajo, también te envío los bitmaps que he usado por si acaso, me parece que le dan una mejor apariencia al preview, ademas son gratuitos de fat cow icons

[Antonio Linares]

Carlos,

Muchas gracias.

Ya he incluido tus cambios para el próximo build. Ahora si hay acuerdo con los bitmaps, podemos tambien reemplazarlos:

viewtopic.php?f=6&t=29599&start=0

[mastintin]

Yo tengo hecho un pequeño cambio al Rpreview para poder usar otro juego de bmps fácilmente :
Tengo una Data adicional que es un array de strings que son los nombres de los bmps en recursos ...

Code: Select all  Expand view  RUN

DATA aBmps  iNIT array(13)

........
aBmps [3] := "previous32"
aBmps[4] :=  "next32"
......

 DEFINE BUTTON oBtn OF oBar ;
         MESSAGE FWString( "Go to previous page" ) ;
         ACTION  ::PrevPage() ;
         TOOLTIP FWString( "Previous" )

 if !empty(aBmps [3] )
      oBtn:LoadBitmaps( aBmps [3]  )
else
      oBtn:hBitmap1 = FWBitmap( "previous2" )
endif


  DEFINE BUTTON oBtn OF oBar ;
         MESSAGE FWString( "Go to next page" ) ;
         ACTION  ::NextPage() ;
         TOOLTIP FWString( "Next" )

    if !empty(aBmps [4] )
            oBtn:LoadBitmaps( aBmps[4]  )
    else
           oBtn:hBitmap1 = FWBitmap( "Next2" )
   endif

  .......


 

[Antonio Linares]

Manuel,

muy buena idea!

Asi cada uno podría usar los bitmaps que quiera.

Que opinais de la solución de Manuel ?

[devtuxtla]

Hola Antonio.

A mi parece excelente idea... cada quien puede personalizar sus previews

Saludos

[Manuel Aranda]

Me parece ideal que se puedan personalizar los bitmaps a gusto de cada uno, pero por defecto me parecería bien que se incluyeran los bitmaps que propone Carlos.

[Antonio Linares]

Carlos,

Podrias modificar tu código para que admitiese tambien bitmaps definidos por los usuarios ?

gracias!