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.
1 24 "WindowsXP.Manifest"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.
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).
Gracias Manuel,
Pero lo único que quiero hacer, es poder ponerle un color de fondo a los folders
o un bitmap de fondo.
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 )
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.
........
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
.......Javier,
Revisa y prueba FWH\samples\TestFold.prg
a ver si te sirve asi
DEFINE BRUSH oBrush1 RESOURCE "FONDO"
// "FONDO" es el Bmp con verde degradado que está dentro del archivo de recursosDEFINE 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"
jfafive wrote:nota: Este aspecto lo he conseguido con el ejemplo TestTabs.prgHola Javier:
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.
#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 NilHola 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.
