Brush en dialog con page

[jose_murugosa]

Una preguntilla....

Tengo una dialog dentro de una función que se define así:

Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE "DLG_PAGE" TITLE cTitulo
      REDEFINE SAY oSay[1] PROMPT cId    ID 200 OF oDlg
    REDEFINE SAY oSay[2] PROMPT cTexto ID 201 OF oDlg
    REDEFINE PAGES oPage ID 102 OF oDlg DIALOGS cDlg_Hija


La función siempre me ha funcionado perfecto, pero cuando intento hacer que la dialog aparezca transparente si le paso un brush a la función y que tome ese brush en la dialog y en la page, haciendo esto:

Code: Select all  Expand view

    IF oBrush != NIL 
       oDlg:lTransparent := .t.
       oPage:aDialogs[1]:lTransparent := .t.
       oDlg:oBrush := oBrush
       oPage:aDialogs[1]:oBrush := oBrush
       oPage:aDialogs[1]:Refresh()
    ENDIF


Me pone transparente la dialog pero no la dialog en el page, como puedo solucionarlo para que pueda verse todo con el mismo brush?

se ve así



Gracias desde ya por la ayuda que puedan darme

[Raymundo Islas M.]

Hola Jose

Prueba asi :

oPage:aDialogs[1]:SetBruhs( oBrush )
oPage:aDialogs[1]:lTransparent := .t.

Saludos

[jose_murugosa]

Hola Jose

Prueba asi :

oPage:aDialogs[1]:SetBruhs( oBrush )
oPage:aDialogs[1]:lTransparent := .t.

Saludos

Gracias Ray por tu respuesta, lo probé así:

Code: Select all  Expand view

IF oBrush != NIL

       oDlg:lTransparent := .t.
       oPage:lTransparent := .t.
       oPage:aDialogs[1]:lTransparent := .t.

       oDlg:SetBrush(oBrush)
       oPage:SetBrush(oBrush)
       oPage:aDialogs[1]:SetBrush( oBrush )

       oDlg:Refresh()
       oPage:Refresh()
       oPage:aDialogs[1]:Refresh()
    ENDIF


Pero con el mismo resultado

recibo cualquier sugerencia del foro, porfis

[karinha]

Code: Select all  Expand view

    LOCAL oBrush

    DEFINE BRUSH oBrush FILE "MIBITMAP.BMP"

    DEFINE DIALOG oDlg RESOURCE "DLG_PAGE" TITLE cTitulo ;
           BRUSH oBrush TRANSPARENT


[Raymundo Islas M.]

Jose, tienes razon.

Algo esta pasando, el codigo que te mande funciona correctamente en la version anterior que usaba ( 2.7 ), estoy probando el nuevo update ( 7.10) y mis pantallas perdieron la transparencia en los pages.


Mira :


Antes



Despues



A ver que pudiera decir Antonio al respecto.


Saludos

[jose_murugosa]

Con la 7.01 es lo mismo que es la que yo tengo.

Antonio,

Alguna solución?

[Antonio Linares]

Raymundo,

Puedes por favor comparar el código fuente de TPages en la 2.7 y en la 7.10 ? gracias

[Raymundo Islas M.]

Master Antonio :

Existe una Linea con diferencias en el Metodo Redefine :


En la version 2.7 esta asi :

DEFAULT nOption := 1, oFont := ::GetFont()


y en la 7.10 :

DEFAULT nOption := 1, oWnd := GetWndDefault(), oFont := ::GetFont()


Espero te sirva.

Saludos

[Antonio Linares]

Raymundo,

Gracias. Es lo que suponía: no hay cambios en TPages.

Puedes probar a quitar el cero que añadimos en window.prg en el método EndPaint() y probar tu aplicación ? gracias,

Code: Select all  Expand view

   METHOD EndPaint() INLINE ::nPaintCount--,;
                     EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil // , 0


[Raymundo Islas M.]

Antonio

Sigue igual, pero ahora perdi el look 2007 en el menu, la barra de mensajes sigue bien.

Ahora, me estoy dando cuenta de algo :

Para dar la apariencia XP estoy usando un archivo con el mismo nombre del ejecutable p.e. MiApp.EXE.Manifest si esta "activo" es cuando veo un desastre en las pantallas,si lo renombro ya no se ven los problemas (brush de fondo y transparencias ), pero pierdo lo agradable de la apariencia.

Saludos

[jose_murugosa]

Antonio

Sigue igual, pero ahora perdi el look 2007 en el menu, la barra de mensajes sigue bien.

Ahora, me estoy dando cuenta de algo :

Para dar la apariencia XP estoy usando un archivo con el mismo nombre del ejecutable p.e. MiApp.EXE.Manifest si esta "activo" es cuando veo un desastre en las pantallas,si lo renombro ya no se ven los problemas (brush de fondo y transparencias ), pero pierdo lo agradable de la apariencia.

Saludos

Antonio,

Utilizo la versión 7.01, que creo fué la primera con transparencia y allí en la clase twindow no está el cero referido, y presenta la falla.

Incluso hay un topico mío por enero 2007 referido a ese problema con las pages en el foro, que no fué respondido.

Pienso que los tiros deben venir por otro lado...