La nueva apariencia de EasyReport

[cnavarro]

Y algo parecido a esto? (No hacer caso a los nombres de las pestañas)
y colocar ahi esos cuadros de diálogos que estás haciendo?

[mastintin]

Y algo parecido a esto? (No hacer caso a los nombres de las pestañas)
y colocar ahi esos cuadros de diálogos que estás haciendo?

Tres cosas :
1.- las otras pestañas que llevarían ?....
2.- con el panel no consigo que el tree se autoajuste al alto de la ventana .
3.- Yo quizás lo de las pestañas lo pondría de otra forma ... varias pestañas pero cada una contiene su tree y su report , de manera que pudieras tener varios "trabajos " ( reportes ) abiertos al mismo tiempo y poder copiar y pegar entre proyectos cambiando de pestaña

[cnavarro]

Tres cosas :
1.- las otras pestañas que llevarían ?....
2.- con el panel no consigo que el tree se autoajuste al alto de la ventana .
3.- Yo quizás lo de las pestañas lo pondría de otra forma ... varias pestañas pero cada una contiene su tree y su report , de manera que pudieras tener varios "trabajos " ( reportes ) abiertos al mismo tiempo y poder copiar y pegar entre proyectos cambiando de pestaña

1.- Lista de objetos y areas (oTree actual) - Preferences - Grid Settings - Propiedades Report - Bases de datos - Expresiones
Es decir, todo lo que sea propio del report activo
2.- Voy a hacer alguna prueba más y te cuento (has tenido en cuenta el bug que he reportado en la seccion correspondiente sobre el TPanel?)
3.- Inicialmente yo pensé como tú, pero me di cuenta de los siguiente:
La parte izquierda es estrecha, y no deberíamos limitar el número de reports editados salvo la propia limitación que nos ofrece el programa (100, de momento, aunque pienso que debería ser configurable, para mi creo que son excesivos), por lo que para poner cada pestaña en ese espacio provocaria que las pestañas no fuesen suficientemente claras, por lo que yo creo que las pestañas, para ser multieditor, deben estar en el lado derecho ( y que cuando pulsemos sobre el report que queremos editar, actualice el folder izquierdo, que siempre tendrá las pestañas que veamos convenientes -punto 1- ).
Cuál es el problema con el que me encuentro?, que las ventanas MDICHILD definidas no las puedo incluir en un dialogo de un Folder de forma sencilla por lo que estoy haciendo pruebas a ver qué solución puedo encontrar siguiendo ese camino (intento sustituir las MDICHILDS por TPanel o PanelMtro).
Qué opinas?

[mastintin]

Ok. Entendido . Estoy de acuerdo contiguo .
El Bug del tpanel reportado no lo he visto , pero me trajo de cabeza el tema del panel así que de momento lo quite .
Yo de momento estoy intentando estabilizar un poco la versión que tenemos , quitando bugs .Parece que ya quedan menos . Esta semana pasaré fuera unos días , así que no subiré código . si consigues hacer que se ajuste el tree al Tpanel o mejor a un folder nos lo cuentas y lo implementamos .
Saludos.

[cnavarro]

Ok. Entendido . Estoy de acuerdo contiguo .
El Bug del tpanel reportado no lo he visto , pero me trajo de cabeza el tema del panel así que de momento lo quite .
Yo de momento estoy intentando estabilizar un poco la versión que tenemos , quitando bugs .Parece que ya quedan menos . Esta semana pasaré fuera unos días , así que no subiré código . si consigues hacer que se ajuste el tree al Tpanel o mejor a un folder nos lo cuentas y lo implementamos .
Saludos.

Eso no es un problema, te refieres a esto?

[cnavarro]

La variable oFld deberia ser estatica (o una DATA)

Code: Select all  Expand view

   IF oER:lShowPanel

      @ 0, 2 FOLDER oFld OF oEr:oMainWnd  PROMPTS "Items", "General", "Preferencias" ;
             SIZE Int( GetSysMetrics( 0 ) / 4 ) - 2, GetSysMetrics( 1 ) - 20 PIXEL
      oFld:SetColor(  , oEr:nClrPaneTree )            
      oEr:oMainWnd:oLeft  :=   oFld

      //            
      //oER:oTree := TTreeView():New( 0, 2, oEr:oMainWnd , 0, , .T., .F., 230 , oEr:oMainWnd:nHeight - 155 ,"",, )
      oER:oTree := TTreeView():New( 0, 2, oFld:aDialogs[1] , 0, , .T., .F., oFld:nWidth - 8 , GetSysMetrics( 1 ) - 165 ,"",, )
      //oEr:oMainWnd:oLeft  :=   oER:oTree
      oEr:oTree:SetColor( ,  oEr:nClrPaneTree )
      oEr:oTree:l3DLook := .F.
      oER:oTree:Hide()

   ENDIF
 

[mastintin]

Ya tengo código que lo hace estupendamente .... lo subo ....

[cnavarro]

Cambio a FolderEx

[mastintin]

Cambio a FolderEx

Un cambio que le da un look impresionante . Bien
Me surge una pregunta ... los folderex desde que version de fwh están disponibles ? , lo digo por la compatibilidad con versiones viejas de fwh .
Seria bueno marcar un limite de version a partir del cual no mantenemos compatibilidad o en todo caso poder marcar diferenciación de look según version de fwh
Me explico ...
Si la version de fwh es mas moderna de fwh1204 ( por poner un numero ) usamos barra laterar y folderex , si es anterior usamos la version trradicional del dialogo ....

[cnavarro]

Creo que está disponible desde la version 10.08
Manuel, ya lo habia pensado, para tener en cuenta a las personas que no lo tienen
Iba a plantearle a Antonio esa misma cuestion y la forma mejor de enfocarlo, si decidíamos usarlos

[cnavarro]

Voy a subir lo siguiente (teniendo en cuenta la disponibilidad de FolderEx desde la 10.08)

Code: Select all  Expand view

   if Val( Substr( FWVERSION, 5, 2 ) ) < 10
      oER:lShowPanel := .F.
   else
      if Val( Substr( FWVERSION, 5, 2 ) ) = 10
         if Val( Right( FWVERSION, 2 ) ) < 8
            oER:lShowPanel := .F.
         endif
      endif
   endif

 

[cnavarro]

Al final lo he dejado asi:

Code: Select all  Expand view

.../...
   if !ValidVersionFwh( 10, 8 )
      oER:lShowPanel := .F.
   endif

.../...
 

Code: Select all  Expand view

//----------------------------------------------------------------------------//

Function ValidVersionFwh( nVersion1, nVersion2 )
Local lVersion   := .T.

   if GetFwVersion()[ 1 ] < nVersion1
      lVersion := .F.
   else
      if GetFwVersion()[ 1 ] = nVersion1
         if GetFwVersion()[ 2 ] < nVersion2
            lVersion := .F.
         endif
      endif
   endif

Return lVersion

//----------------------------------------------------------------------------//

Function GetFwVersion()
Local aVersion := Array( 2 )
      aVersion[ 1 ] := Val( Substr( FWVERSION, 5, 2 ) )
      aVersion[ 2 ] := Val( Right( FWVERSION, 2 ) )
Return aVersion

//----------------------------------------------------------------------------//

 

[cnavarro]

Habrá que ir buscando algún icono, para bautizarlo cuando llegue el momento
Una primera prueba



El "Fiv" lo he cogido de aqui:
viewtopic.php?f=6&t=29223&start=15#p164896

Espero no le moleste

[cnavarro]

Lo dejo asi?, o lo quito?

[mastintin]

Lo dejo asi?, o lo quito?

Por mi vale Cristobal .
He subido código mejorando lo de los lenguajes y he empezado a meter contenido en los folder en concreto he empezado con colores pero no lo he terminado . He intentado usar un for next para resumir código pero me hace una cosa muy extraña .. a pesar que el array es de 30 posiciones me cuenta hasta 31 y claro casca porque el array es de 30 ... un defecto de implementación seguro pero que no pillo ... si lo terminas tu a ver si a ti no te rompe ....
antes de meter mas dialogas a los folder creo que tendríamos que ir dandoles contenido y dejarlos funcionando . Por cierto existe un problema con los says en las pestañas de los folders ( fijate en la pestaña de colores , los 2 says , no refrescan correcto el fondo y queda el fondo de la pestaña ítems ) observa donde pone Color ...


Saludos