FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Cambios en tReport y Preview
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Cambios en tReport y Preview
Posted: Fri Jul 26, 2013 12:51 PM
Antonio,

en este enlace https://app.box.com/s/p50zt6k91ztzkvbqndl0 puedes bajar unas modificaciones que hice hace unos a帽os a la clase tReport, y a la clase Preview.

El ejemplo te permite generar c贸digo de los valores de las datas, puede que te sirva de idea para las mejoras que estas haciendo a la clase, tambi茅n tiene una prueba para la numeraci贸n de p谩gina 1/n ... n/n

Comentaron que el preview tiene problemas de perdida de memoria, lo siento lo que pasa es que como desarrollo solo para casa, no tuve feedbak, no se si podr茅 ver ese tema, pero si alguien lo puede arreglar estar铆a bien.

saludos

Marcelo
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Fri Jul 26, 2013 12:58 PM

Marcelo,

muchas gracias, lo revisaremos e incorporaremos las mejoras a FWH :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: Cambios en tReport y Preview
Posted: Fri Jul 26, 2013 08:15 PM
Este es un ejemplo:



y este es el c贸digo generado
Code (fw): Select all Collapse
 聽oReport:lSeparator := 聽.F.
聽 oReport:lJoin 聽 聽 聽:= 聽.T.


聽 oReport:nTotalLine 聽 聽:= 聽 聽 聽 聽 聽0
聽 oReport:nTitleUpLine 聽:= 聽 聽 聽 聽 聽0
聽 oReport:nTitleDnLine 聽:= 聽 聽 聽 聽 聽0
聽 oReport:nGroupLine 聽 聽:= 聽 聽 聽 聽 聽1
聽 oReport:nTitleBox 聽 聽 := 4
聽 oReport:lTitleBoxJoin := .T.
聽 oReport:nTotalBox 聽 聽 := 0
聽 oReport:lTotalBoxJoin := .F.
聽 oReport:nGrpHdBox 聽 聽 := 0
聽 oReport:nGrpFtBox 聽 聽 := 3
聽 oReport:lGrpFtBoxJoin := .F.
聽 oReport:nHeaderBox 聽 聽:= 2
聽 oReport:nFooterBox 聽 聽:= 3
聽 oReport:lShdwTtEmpty 聽:= .F.
聽 oReport:nClrTitle 聽 聽 := 聽 12632256
聽 oReport:nClrTotal 聽 聽 := 聽 12632256
聽 oReport:nClrGrp 聽 聽 聽 := 聽 12632256
聽 oReport:nClrHeader 聽 聽:= 聽 12632256
聽 oReport:nClrFooter 聽 聽:= 聽 12632256
聽 oReport:nCurve 聽 聽 聽 聽:= 聽 聽 聽 聽 30
聽 oReport:nBodyBox 聽 聽 聽:= 1
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Sat Jul 27, 2013 06:14 PM
Marcelo,

Me ha gustado mucho tu implementaci贸n, muy bien dise帽ada, gracias :-)

La he implementado en FWH, he quitado el splitter porque no lo considero necesario (en caso de que no quepa la hoja del metafile?) y ya se ve asi:

regards, saludos

Antonio Linares
www.fivetechsoft.com
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: Cambios en tReport y Preview
Posted: Sat Jul 27, 2013 06:27 PM

Hola,

驴Y la p茅rdida de recursos?. 驴Se ha verificado?.

Muy buen trabajo.

Una duda, la funci贸n de exportar en PDF nativamente de Fivewin, 驴necesita Word?.

Actualmente usamos image2pdf.dll

Un saludito

Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: Cambios en tReport y Preview
Posted: Sat Jul 27, 2013 06:47 PM
Antonio,

me alegra que te guste.

tambi茅n esta una opci贸n que no se si viste, si oprimes el bot贸n derecho de mouse sobre el metafile te aparece un recuadro con una vista magnificada del reporte (puedes recorrer con el bot贸n oprimido y se mantendr谩 el recuadro).



Por otra parte tambi茅n aumente entre los botones de navegaci贸n el n煤mero de p谩gina, el cual es un get, y all铆 directamente puedes poner el n煤mero de p谩gina

Se cambio pero no se si esta bien, en lugar de factor del zoom por un porcentaje

Podr铆a ser tambi茅n interesante cambiar el orden de los botones de la barra y poner la navegaci贸n a la derecha, y el bot贸n de salir, siempre al extremo mas a la derecha, algo as铆

Code (fw): Select all Collapse
聽 聽 ::oWnd:bResized := {|| ::oBtnExit:Move( -1, ::oWnd:nWidth - 102, ::oBtnExit:nWidth, ::oBtnExit:nHeight, .T.) 聽}


Son solo ideas que puedes o no tomar en cuenta, pero como siempre gracias por tu atenci贸n

saludos

Marcelo
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Sat Jul 27, 2013 07:08 PM

Marcelo, Elvira,

De momento solo he implementado la vista de p谩ginas en peque帽o, y ese c贸digo es el 煤nico que he revisado. Efectivamente existian un par de detalles que consum铆an recursos y los he corregido al implementarlo en FWH:

  1. En vez de llamar a TBitmap():New( ... ) llamar a TBitmap():Define() (cuando no se crea un control bitmap).
  2. En la funci贸n Create_minipage() al final falta ReleaseDC( hDC1 )

La exportaci贸n a PDF no necesita tener Word instalado :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Sat Jul 27, 2013 07:09 PM

Marcelo,

No me hab铆a fijado en esa capacidad de hacer zoom de una zona y me parece muy interesante tambien, muchas gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: Cambios en tReport y Preview
Posted: Sun Jul 28, 2013 09:04 AM
Antonio,

Para rematar los grandes cambios que has incorporado a rpreview.prg, quiz谩s podr铆as implementar el look en la barra de botones como el de Visual Studio 2013, ya que el azul es de 2007!.

Dejo una imagen:



Muy agradecida.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Cambios en tReport y Preview
Posted: Sun Jul 28, 2013 09:58 AM
Antonio Linares wrote:Marcelo, Elvira,

De momento solo he implementado la vista de p谩ginas en peque帽o, y ese c贸digo es el 煤nico que he revisado.


Antonio, podrias implementar la opci贸n de poner la vista de miniaturas a la derecha o a la izquierda de la pantalla?
Saludos
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Cambios en tReport y Preview
Posted: Sun Jul 28, 2013 11:24 AM
Antonio
Al crear el preview en MDI, y salir a otro proceso y volver al preview, la ventana aparece en modo "NORMAL" y no "MAXIMIZADA" como estaba
No se si es mi version, o est谩 solucionado con la modificacion que se hizo en la version 13.04 sobre las MDI
http://forums.fivetechsupport.com/viewtopic.php?f=16&t=26208&start=0&hilit=FTDN

Me lo puedes confirmar?

De momento lo he solucionado asi:
Code (fw): Select all Collapse
聽 聽if !::oDevice:lPrvModal .and. ::oWndMain != nil .and. ;
聽 聽 聽 Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"

聽 聽 聽 DEFINE WINDOW ::oWnd ; 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 聽TITLE cTitle ;
聽 聽 聽 聽 聽COLOR CLR_BLACK,CLR_LIGHTGRAY 聽 聽 聽; // 聽 聽 聽 聽 ICON 聽oIcon 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽VSCROLL HSCROLL MDICHILD

聽 聽 聽 ::oWnd:bGotFocus 聽 聽 := { || Self:oWnd:Maximize() } 聽 聽 聽//A帽adido

聽 聽else

聽 聽 聽...


Gracias
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Mon Jul 29, 2013 07:45 PM

Cristobal,

En la versi贸n que vamos a publicar 13.07 no aparece ese efecto, es decir, se comporta correctamente. Pero no sabr铆a decirte con exactitud cuando se corrigi贸 lo que comentas.

Y es que en la versi贸n 13.07 hasta se ha modificado el procedimiento por defecto en languaje C que usan las MDI. Lo coment茅 recientemente aqui en los foros.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Tue Jul 30, 2013 06:20 AM

Implementada la opci贸n de mostrar la vista de p谩ginas en miniatura a la izquierda 贸 derecha en FWH 13.07

solo hay que hacer click derecho en la vista de p谩ginas, para que cambie de lugar :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambios en tReport y Preview
Posted: Tue Jul 30, 2013 06:22 AM

Elvira,

El Print Preview usa el estilo 2010 en FWH 13.07 si detecta que esta siendo usado en la barra de botones principal de la aplicaci贸n, 贸 en la RibbonBar :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions