topic-29586

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 02:31 AM

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

---
      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 (fw): Select all Collapse

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

Code (fw): Select all Collapse

...
      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 (fw): Select all Collapse

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Antonio - otro pequeño fix para tpreview
Posted: Tue Nov 11, 2014 02:41 AM

Code (fw): Select all Collapse

...
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"

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Antonio - otro pequeño fix para tpreview
Posted: Tue Nov 11, 2014 02:51 AM

Code (fw): Select all Collapse

      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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 03:04 AM

Code (fw): Select all Collapse

---
         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
---

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 05:02 AM

Carlos,

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

muchas gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 02:32 PM

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 09:41 PM

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=6t=29599start=0

&&

regards, saludos

Antonio Linares
www.fivetechsoft.com

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 08:06 PM

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 (fw): Select all Collapse

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 08:08 PM

Manuel,

muy buena idea! :-)

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

Que opinais de la solución de Manuel ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

devtuxtla

Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 08:51 PM

Hola Antonio.

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

Saludos

Visite Chiapas, el paraiso de México.

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 09:02 PM

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.

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Antonio - varios pequeños fixes para tpreview
Posted: Thu Nov 13, 2014 11:57 AM

Carlos,

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

gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion