FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Modificaci贸n a Clase RPreview
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Modificaci贸n a Clase RPreview
Posted: Tue Aug 25, 2009 07:26 PM
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 muchos casos engorroso para el usuario, y en la mayor铆a de los casos, (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:


Reporte original con factor 2:



La modificaci贸n que le hice a la clase es la siguiente: (Solo partes modificadas)
Code (fw): Select all Collapse
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 (fw): Select all Collapse
METHOD SetFactor( nValue ) CLASS TPreview

聽 聽//::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 %


Reporte original Factor 110 %


Espero sea de utilidad esta modificaci贸n.
Saludos.
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
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 09:00 AM

Muy bueno...

me parece que son mas proporcionales los cambio de factores a factores...

te felicitos

david

ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 01:39 PM

Muy Buena Modificaci贸n, Ya la implement茅 (A mi manera)

Gracias!!

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 01:39 PM
Can the code be simplified like this ?
Code (fw): Select all Collapse
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
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 01:42 PM
Solo le falta
Esto: en buildmenu()

Code (fw): Select all Collapse
               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
QAZWSX2K
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 02:31 PM

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
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 03:11 PM
METHOD SetFactor( nValue ) CLASS TPreview
local n, lInit := .f.

< other code >
n :- 1 + ( nValue - 1 ) * 0.1
::SetZoomFactor( n, 2 * n )
< other code >
return nil
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 03:56 PM

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
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Modificaci贸n a Clase RPreview
Posted: Wed Aug 26, 2009 04:35 PM

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
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Re: Modificaci贸n a Clase RPreview
Posted: Thu Aug 27, 2009 01:09 PM

Good Idea! :wink:

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Modificaci贸n a Clase RPreview
Posted: Sun Aug 30, 2009 04:36 AM

Hi,

This seems to be a very good update to Preview class
Regards
Anser

FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Modificaci贸n a Clase RPreview
Posted: Sun Aug 30, 2009 01:52 PM

Hola Esteban. Gracias por el aporte. Ya lo he implementado.
Saludos.

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Modificaci贸n a Clase RPreview
Posted: Mon Aug 31, 2009 11:33 PM
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

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions