buscando por el foro no he encontrado la forma de poder mostrar un brush en los dialogos incluidos en la clase tpage.
Lo que encontre mas parecido es este post de Raymundo
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=11746&p=58244&hilit=pages+brush#p58244
No se si se en las nuevas versiones ya esta resulto, pero no doy con ello.
Despues de muchos intentos he conseguido aplicar un brush asi:
1.- Defino la clase tpage sin dialogos.
2.- Defino cada uno de los dialogs diciendo que estan contenidos en oDlg y no en oPag.
3.- Los añado a la clase tpage.
Espero que sirva a alguien.
Lo que encontre mas parecido es este post de Raymundo
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=11746&p=58244&hilit=pages+brush#p58244
No se si se en las nuevas versiones ya esta resulto, pero no doy con ello.
Despues de muchos intentos he conseguido aplicar un brush asi:
oPags := TPages():Redefine( 102, oDlg, {} )
DEFINE DIALOG oDlg2 OF oDlg RESOURCE "GheHistFolder1" TRANSPARENT Brush oBrush
oPags:AddPage( oDlg2 )
DEFINE DIALOG oDlg2 OF oDlg RESOURCE "GheHistFolder2" TRANSPARENT Brush oBrush
oPags:AddPage( oDlg2 )
DEFINE DIALOG oDlg2 OF oDlg RESOURCE "GheHistFolder4" TRANSPARENT Brush oBrush
oPags:AddPage( oDlg2 )1.- Defino la clase tpage sin dialogos.
oPags := TPages():Redefine( 102, oDlg, {} )2.- Defino cada uno de los dialogs diciendo que estan contenidos en oDlg y no en oPag.
DEFINE DIALOG ... of oDlg ...3.- Los añado a la clase tpage.
oPags:AddPage( oDlg2 )Espero que sirva a alguien.
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos