Como puedo hacer mas vistosos los Folders

[jfafive]

Hola!

Esoy usando folders y lo unico que encuentro para hacerlos maas vistosos es poder ponerle un bitmap.
He visto en los foros que se puede poner un estilo de OFFICE 2007 con el fondo degradado en color.

¿alguien sabe como puedo implementar esa estética a mis folders?

Graaaacias.

Javier.

[Antonio Linares]

Javier,

Tienes activado el soporte de temas en su aplicación ?

En tu fichero RC de recursos tienes que incluir:

Code: Select all  Expand view

  1 24 "WindowsXP.Manifest"
 

El fichero WindowsXP.Manifest está en FWH\samples\WinXP\

[jfafive]

Antonio,

He incluido el código en mi fichero .RC y he copiado el archivo WindowsXP.Manifest a mi
directorio de trabajo.

Pero al compilar la aplicación, no veo ningún cambio.
¿hay que indicar algo en el .PRG?
¿que significa si tengo activado el soporte...?

Javier.

[Manuel Aranda]

Para modificar los temas de windows tienes que acceder a las propiedades de la pantalla (Pica con el botón derecho del ratón en el escritorio en propiedades).

[jfafive]

Gracias Manuel,
Pero lo único que quiero hacer, es poder ponerle un color de fondo a los folders
o un bitmap de fondo.

[jfafive]

Amigos,

Gracias por vuestra ayuda.
Al finel, creo que ya he encontrado el modo de solucuionarlo.
Para ello voy a poner bitmaps en los folders y a indicarles un color de fondo.

Me valgo de este código.

Code: Select all  Expand view

DEFINE IMAGELIST oImageList SIZE 16, 16

// Defino el bitmap de el folder (en este caso solo hay una pestaña)
oImageList:AddMasked( TBitmap():Define( "bitmap",,  oDlg ), nRGB( 192, 192, 192 ) )

// Le indico el color de fondo del bitmap
oImageList:SetBkColor(10213110)

// Asigno la imagen con su color de fondo al folder.
oFld:SetImageList( oImageList )
 

Saludos,
Javier.

[jfafive]

Buaaaajj!

Lo he probado y no me sirve.
Para complementar el PROPMT con un bitmap al lado, va bien.
Pero las pestñas, siguen teniendo ese aspecto gris tan triste.

He visto en los foros un ejemplo en el que le ponen un color de fondo degradado e incluso
le cambian el tipo de borde a las pestañas.

Si alguien me pudiese mostrar un ejemplo de como se hace, se lo agradecería.

Un saludo,
Javier.

[jfafive]

He encontrado el ejemplo TESTTABS.PRG que tiene el aspecto que me gustaría.
Pero encuentro unas importantes limitaciones.
No se le puede poner la clausula DIALOGS que usa el FOLDER, lo cual ya es un impedimento.

Aún así, voy a ver si puedo controlarlo para llamar a los dialogos usando su clausula ACTION.
Pero me encuenro con el problema de que al pulsar sobre el TAB, simplemente no reacciona.
La aplicación no se cuelga. Es solo que el TAB no reacciona.

No sé si voy bien encaminado con la estrategia del TAB, pero este es el código que estoy usando:

Code: Select all  Expand view

  ........

REDEFINE TABS oTab ID ID_TAB ;
  PROMPTS OemToAnsi( "Aragón" ),;
          "Cordoba",;
          "Consultas",;
          OemToAnsi( "Modificación" ),;
          "Listas",;
          OemToAnsi( "Impresión" ) OF oDlg ;
  BITMAPS "bitmaps\prueba.bmp",;
          "bitmaps\prueba.bmp",;
          "bitmaps\prueba.bmp",;
          "bitmaps\prueba.bmp",;
          "bitmaps\prueba.bmp",;
          "bitmaps\prueba.bmp" ;
  ACTION MsgInfo( "hola" )

  oDlg:oLeft := oTab
 
  .......
 

[Antonio Linares]

Javier,

Revisa y prueba FWH\samples\TestFold.prg

a ver si te sirve asi

[jrestojeda]

Hola...
Algo asi es más o menos lo que te interesa hacer??



De ser eso lo que necesitas... lo estoy haciendo asi:

Code: Select all  Expand view

DEFINE BRUSH oBrush1 RESOURCE "FONDO"
// "FONDO" es el Bmp con verde degradado que está dentro del archivo de recursos
 

Code: Select all  Expand view

DEFINE DIALOG oDlg1 RESOURCE "FOLDERS" OF oWnd1;
   TITLE "Ingreso de comprobantes de compra" ICON "A_ICONO1";
   TRANSPARENT BRUSH oBrush1

   REDEFINE FOLDER oFld ID 1000 OF oDlg1;
      PROMPT "&1 Comprobante de compra","&2 Productos del comprobante";
      DIALOGS "FL_COMPRAS1","FL_COMPRAS2"
 

Espero te sirva.
Saludos.

[jfafive]

Amigos,

Lo que necesito es parecido a lo que hace TestFold.prg.
Peeero con una estética mas moderna.
En este link, podeis ver el tipo de aspecto que busco para mis folders.




nota: Este aspecto lo he conseguido con el ejemplo TestTabs.prg
Pero como os expliqué mas arriba, al control TAB, le falta DIALOGS.
En resumen, que lo que busco es un REDEFINE FOLDER ......
Con la estética que veis en la imagen.

Si sabeis de algo que se pueda hacer así,
os lo agradecería eteernamente. Pues me corre prisa finalizar el proyecto.

[mmercado]

nota: Este aspecto lo he conseguido con el ejemplo TestTabs.prg
Pero como os expliqué mas arriba, al control TAB, le falta DIALOGS.
En resumen, que lo que busco es un REDEFINE FOLDER ......
Con la estética que veis en la imagen.

Si sabeis de algo que se pueda hacer así,
os lo agradecería eteernamente. Pues me corre prisa finalizar el proyecto.

Hola Javier:

Nunca he usado Tabs pero se me ocurre que podría hacerlo de la siguiente manera (solo es una idea):

Code: Select all  Expand view

#include "FiveWin.ch"

Static oWnd

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

function Main()

   Local oTabs, oDlg[ 4 ]

   DEFINE WINDOW oWnd TITLE "Testing FiveWin Tabs" ;
      COLOR CLR_WHITE, CLR_BLUE

   @ 0, 0 TABS oTabs OF oWnd ;
          PROMPTS "&Personas Físicas", "&Sociedades", "&Consultas", "&Modificacion" ;
          BITMAPS "..\bitmaps\16x16\people.bmp", "..\bitmaps\16x16\open2.bmp", ;
                  "..\bitmaps\16x16\print.bmp", "..\bitmaps\16x16\zoom2.bmp" ;
      ACTION fAction( oDlg, oTabs:nOption )

   DEFINE DIALOG oDlg[ 1 ] FROM 0, 0 TO 400, 400 PIXEL OF oWnd;
          COLOR CLR_BLACK, CLR_YELLOW ;
          STYLE nOR( WS_VISIBLE, WS_CHILD )

   @ 40,100 BUTTON "Button" OF oDlg[ 1 ] SIZE 30, 10 PIXEL

   DEFINE DIALOG oDlg[ 2 ] FROM 0, 0 TO 400, 400 PIXEL OF oWnd ;
          COLOR CLR_BLACK, CLR_HGRAY ;
          STYLE nOR( WS_VISIBLE, WS_CHILD )

   @ 40, 10 BUTTON "Button" OF oDlg[ 2 ] SIZE 30, 10 PIXEL

   DEFINE DIALOG oDlg[ 3 ] FROM 0, 0 TO 400, 400 PIXEL OF oWnd ;
          COLOR CLR_BLACK, CLR_HGREEN ;
          STYLE nOR( WS_VISIBLE, WS_CHILD )

   @ 60, 50 BUTTON "Button" OF oDlg[ 3 ] SIZE 30, 10 PIXEL


   DEFINE DIALOG oDlg[ 4 ] FROM 0, 0 TO 400, 400 PIXEL OF oWnd ;
          COLOR CLR_BLACK, CLR_WHITE ;
          STYLE nOR( WS_VISIBLE, WS_CHILD )

   @ 50, 90 BUTTON "Button" OF oDlg[ 4 ] SIZE 30, 10 PIXEL

   oWnd:oLeft = oTabs
   ACTIVATE DIALOG oDlg[ 1 ] NOWAIT
   ACTIVATE DIALOG oDlg[ 2 ] NOWAIT
   ACTIVATE DIALOG oDlg[ 3 ] NOWAIT
   ACTIVATE DIALOG oDlg[ 4 ] NOWAIT

   ACTIVATE WINDOW oWnd MAXIMIZED ON RESIZE fAction( oDlg, oTabs:nOption, .T. )

return nil


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


Function fAction( oDlg, nOption, lResize )


   Local nEle

   Default lResize := .F.

   For nEle := 1 To 4

      oDlg[ nEle ]:Hide()

      If lResize
         oDlg[ nEle ]:SetSize( oWnd:nWidth, oWnd:nHeight )
      EndIf
   Next

   oDlg[ nOption ]:Show()

Return Nil

Espero te sirva.

Un abrazo.

Manuel Mercado

[jfafive]

Hola Manuel,

Pues creo que me puede servir tu ejemplo.
Nunca habia usado esa estrategia pues estaba acostumbrado a usar el REDEFINE FOLDER desde recurso.

La verdad es que se gana mucho en lo visual con el uso del TAB.
Lo he adaptado a mi aplicación usandolo para llamar a dialogos desde recurso y en principio va muy bien.

Muchas gracias por la ayuda!



Un abrazo,
Javier.