Page 1 of 1
Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 2:31 am
by carlos vargas
Antonio, ademas del problema del icono de la ventana de preview
esto hay que modificar en el metodo zoom:
Code: Select all
---
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
...
if ! lRebar
::oZoom:FreeBitmaps()
::oZoom:hBitmap1 := FWBitmap( "Zoom2" )
::oZoom:cMsg = FWString( "Page zoom" )
::oZoom:cTooltip := FWString( "Zoom" )
::oZoom:Refresh() //NEW
else
...
Code: Select all
...
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
...
if ! lRebar
::oTwoPages:FreeBitmaps()
::oTwoPages:hBitmap1 = FWBitmap( "twopages2" )
::oTwoPages:cMsg = FWString( "Preview on two pages" )
::oTwoPages:cTooltip = FWString( "Two pages" )
::oTwoPages:Refresh() //NEW
else
...
Re: Antonio - otro pequeño fix para tpreview
Posted: Tue Nov 11, 2014 2:41 am
by carlos vargas
Code: Select all
...
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"
Re: Antonio - otro pequeño fix para tpreview
Posted: Tue Nov 11, 2014 2:51 am
by carlos vargas
Code: Select all
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
Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 3:04 am
by carlos vargas
Code: Select all
---
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
---
Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 5:02 am
by Antonio Linares
Carlos,
Serias tan amable de enviarme por email tu rpreview.prg ?
muchas gracias
Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 2:32 pm
by 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
Re: Antonio - varios pequeños fixes para tpreview
Posted: Tue Nov 11, 2014 9:41 pm
by 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:
http://forums.fivetechsupport.com/viewt ... 99&start=0
Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 8:06 pm
by 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
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
.......
Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 8:08 pm
by Antonio Linares
Manuel,
muy buena idea!
Asi cada uno podría usar los bitmaps que quiera.
Que opinais de la solución de Manuel ?
Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 8:51 pm
by devtuxtla
Hola Antonio.
A mi parece excelente idea... cada quien puede personalizar sus previews
Saludos
Re: Antonio - varios pequeños fixes para tpreview
Posted: Wed Nov 12, 2014 9:02 pm
by 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.
Re: Antonio - varios pequeños fixes para tpreview
Posted: Thu Nov 13, 2014 11:57 am
by Antonio Linares
Carlos,
Podrias modificar tu código para que admitiese tambien bitmaps definidos por los usuarios ?
gracias!