Modificación a Clase RPreview

Post Reply
User avatar
jrestojeda
Posts: 543
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Modificación a Clase RPreview

Post by jrestojeda »

Hola a todos...
Acabo de hacer una pequeña modificación a la clase TPreview...
Lo que modifiqué fue el tema de los factores... la clase tiene la posibilidad de cambiar los factores de vista entre los valores de 1 a 10.
Funciona correctamente, pero lo que yo modifiqué es la relación en la que se modifican las vistas, había demasiada diferencia entre cada uno de los factores, siendo en _ engorroso para el usuario, y en la mayoría de _, (por lo menos en mi caso), los factores 5 a 9 pocas veces eran utilizados, ya que el tamaño del reporte era realmente inmeso.

Reporte original con Factor 1:
Image

Reporte original con factor 2:
Image


La modificación que le hice a la clase es la siguiente: (Solo partes modificadas)

Code: Select all

METHOD BuildWindow() CLASS TPreview

   @ 3, 325 COMBOBOX ::oFactor VAR ::nZFactor ;
      ITEMS {"100 %","110 %","120 %","130 %","140 %","150 %","160 %","170 %","180 %","190 %","200 %"} ;
      OF ::oBar FONT ::oFont PIXEL SIZE 65,200 ;
      ON CHANGE oThis:SetFactor( oThis:nZFactor )
 

Code: Select all

METHOD SetFactor( nValue ) CLASS TPreview

   //::oMeta1:SetZoomFactor( ::nZFactor, ::nZFactor * 2 )  Esta es la línea que estaba antes
   // Yo aguegué así, escribí los 11 Factores ya que no son tantos...

   DO CASE
      CASE ::nZFactor = 1
         ::oMeta1:SetZoomFactor( ::nZFactor, ::nZFactor * 2 )
      CASE ::nZFactor = 2
         ::oMeta1:SetZoomFactor( 2 * 0.55  , 2 * 1.10 )
      CASE ::nZFactor = 3
         ::oMeta1:SetZoomFactor( 2 * 0.60  , 2 * 1.20 )
      CASE ::nZFactor = 4
         ::oMeta1:SetZoomFactor( 2 * 0.65  , 2 * 1.30 )
      CASE ::nZFactor = 5
         ::oMeta1:SetZoomFactor( 2 * 0.70  , 2 * 1.40 )
      CASE ::nZFactor = 6
         ::oMeta1:SetZoomFactor( 2 * 0.75  , 2 * 1.50 )
      CASE ::nZFactor = 7
         ::oMeta1:SetZoomFactor( 2 * 0.80  , 2 * 1.60 )
      CASE ::nZFactor = 8
         ::oMeta1:SetZoomFactor( 2 * 0.85  , 2 * 1.70 )
      CASE ::nZFactor = 9
         ::oMeta1:SetZoomFactor( 2 * 0.90  , 2 * 1.80 )
      CASE ::nZFactor = 10
         ::oMeta1:SetZoomFactor( 2 * 0.95  , 2 * 1.90 )
      CASE ::nZFactor = 11
         ::oMeta1:SetZoomFactor( 2 * 1.00  , 2 * 2.00 )
   ENDCASE
 
Con esta pequeña modificación a la clase, logro tener mejor relación al cambiar el factor, y también aprovecho más todos los Items del combo, (Incluso yo le agregué dos Items más)

Reporte original Factor 100 %
Image

Reporte original Factor 110 %
Image

Espero sea de utilidad esta modificación.
Saludos.
Last edited by jrestojeda on Tue Sep 01, 2009 2:09 am, edited 1 time in total.
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Re: Modificación a Clase RPreview

Post by dobfivewin »

Muy bueno...

me parece que son mas proporcionales _ de factores a factores...

te felicitos


david
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: Modificación a Clase RPreview

Post by ADBLANCO »

Muy Buena Modificación, Ya la implementé (A mi manera)

Gracias!!
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Modificación a Clase RPreview

Post by nageswaragunupudi »

Can the code be simplified like this ?

Code: Select all

METHOD SetFactor( nValue ) CLASS TPreview
   local n, lInit := .f.
   
   < other code >
   n :- 1 + ( nValue - 1 ) * 0.1  
   ::oMeta1:SetZoomFactor( n, 2 * n  )
   < other code >
return nil
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: Modificación a Clase RPreview

Post by ADBLANCO »

Solo le falta
Esto: en buildmenu()

Code: Select all

               MENUITEM  "&Factor"  MESSAGE TXT_ZOOM_FACTOR
               MENU
               FOR nFor := 1 TO len(aFactor)
                    MENUITEM aFactor[nFor]                         ;
                     PROMPT STR(VAL('1'+ltrim(str(nFor))+'0')-10)+' %';
                         MESSAGE "Factor " + LTrim( Str( nFor ) )  ;
                         ACTION ( oFactor:Set( oMenuItem:nHelpId ),;
                                  Eval( oFactor:bChange ) )
               NEXT
 
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
QAZWSX2K
Posts: 359
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Re: Modificación a Clase RPreview

Post by QAZWSX2K »

Saludos, ni sabia que habia otro PREVIEW aparte de los DLL que estan en el directorio fivewin, si me pueden decir donde bajarla o mandarla a mi email, gracias
alex_patino74@hotmail.com

gracias

alejandro Patiño
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Re: Modificación a Clase RPreview

Post by Willi Quintana »

METHOD SetFactor( nValue ) CLASS TPreview
local n, lInit := .f.

< other code >
n :- 1 + ( nValue - 1 ) * 0.1
::oMeta1:SetZoomFactor( n, 2 * n )
< other code >
return nil
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: Modificación a Clase RPreview

Post by ADBLANCO »

Alejandro:
La Puedes encontrar en la carpeta de Fuentes del FiveWin, 'RPREVIEW.PRG'


:roll:
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
jrestojeda
Posts: 543
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Re: Modificación a Clase RPreview

Post by jrestojeda »

Angel...
Muchas gracias por el detalle del menú, realmente se me pasó por completo!
Ya la modifiqué en el menú también!
Ahora quedó bien!
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: Modificación a Clase RPreview

Post by ADBLANCO »

Good Idea! :wink:
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
anserkk
Posts: 1280
Joined: Fri Jun 13, 2008 11:04 am
Location: Kochi, India

Re: Modificación a Clase RPreview

Post by anserkk »

Hi,

This seems to be a very good update to Preview class
Regards
Anser
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Modificación a Clase RPreview

Post by FranciscoA »

Hola Esteban. Gracias por el aporte. Ya lo he implementado.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
jrestojeda
Posts: 543
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Re: Modificación a Clase RPreview

Post by jrestojeda »

FranciscoA wrote:Hola Esteban. Gracias por el aporte. Ya lo he implementado.
Saludos.
Me alegro que te sirva esta modificación.
Saludos.
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Post Reply