topic-27840

Board index FiveWin para Harbour/xHarbour Problemas con on paint

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Problemas con on paint
Posted: Thu Dec 19, 2013 10:04 PM

Hola a todos, estoy haciendo unas pruebas con ventanas no MDI. Tengo una ventana principal y llamo a otra a la que quiero dibujar un rectángulo, el problema es que este se dibuja detrás de la ventana que se abre. Aquí el código en cuestión.

Code (fw): Select all Collapse

#include 'fivewin.ch'
Static oWndChild
Static oWndMain

Function Main()

    DefineEntorno()
    Start()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function Start()

    Local oGet
    Local oBtn := Array( 2, 0 )
    Local oGrupo
    Local cVar := Space( 30 )
    
    Define Window oWndMain Style nOr( WS_POPUP ) Color 0, CLR_HGRAY //nRgb( 240, 240, 255 )
    
        @ 10,  10 Group oGrupo To 600, 600 Pixel transparent
        @ 80, 500 Btnbmp oBtn[ 1 ] Size 25, 25 Action OtraVentana() NoBorder Of oWndMain 
        @ 80, 160 Get oGet Var cVar Of oWndMain Size 300, 20 Pixel
    
    Activate Window oWndMain Maximized On Init OtraVentana()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function DefineEntorno()

    Set Epoch To 1950
    Set Date  To British
    Set Delete   On
    Set Multiple Off
    Set Autopen  On
    Set Softseek On
    Set Century  On
    Set Confirm  On
    Set Decimals To 2
    Set Fixed Off
    Set Exact on
    Set Optimize On
    Request HB_LANG_ES
    Hb_LangSelect("ES")
    Hb_SetCodePage( "ES" )
    SetHandleCount( 250 )
    Request DBFCDX
    RddSetDefault( "DBFCDX" )
    Return 0
    
/*----------------------------------------------------------------------------*/    
Function OtraVentana()


    Define Window oWndChild From 10, 10 To 40, 50 Style nOr( WS_POPUP ) Color 0, CLR_WHITE
    
        oWndChild : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oWndChild : End(), ) }        
    
    Activate Window oWndChild On Paint PintaBarra()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function PintaBarra()

    Local hPen
    Local hOldPen
    Local hDc := GetDc( oWndChild : hWnd )

    hPen    := CreatePen( PS_SOLID, 1, CLR_BLUE )
    hOldPen := SelectObject( hDc, hPen )
    ? Rectangle( hDc, 100, 100, 150, 300, hPen )
    ? DeleteObject( hOldPen )
    ReleaseDc( hDc )
    Return 0

Que estoy haciendo mal ??? Muchas gracias de antemano

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con on paint
Posted: Thu Dec 19, 2013 11:48 PM

horacio wrote:Hola a todos, estoy haciendo unas pruebas con ventanas no MDI. Tengo una ventana principal y llamo a otra a la que quiero dibujar un rectángulo, el problema es que este se dibuja detrás de la ventana que se abre. Aquí el código en cuestión.

Code (fw): Select all Collapse

#include 'fivewin.ch'
Static oWndChild
Static oWndMain

Function Main()

    DefineEntorno()
    Start()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function Start()

    Local oGet
    Local oBtn := Array( 2, 0 )
    Local oGrupo
    Local cVar := Space( 30 )
    
    Define Window oWndMain Style nOr( WS_POPUP ) Color 0, CLR_HGRAY //nRgb( 240, 240, 255 )
    
        @ 10,  10 Group oGrupo To 600, 600 Pixel transparent
        @ 80, 500 Btnbmp oBtn[ 1 ] Size 25, 25 Action OtraVentana() NoBorder Of oWndMain 
        @ 80, 160 Get oGet Var cVar Of oWndMain Size 300, 20 Pixel
    
    Activate Window oWndMain Maximized On Init OtraVentana()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function DefineEntorno()

    Set Epoch To 1950
    Set Date  To British
    Set Delete   On
    Set Multiple Off
    Set Autopen  On
    Set Softseek On
    Set Century  On
    Set Confirm  On
    Set Decimals To 2
    Set Fixed Off
    Set Exact on
    Set Optimize On
    Request HB_LANG_ES
    Hb_LangSelect("ES")
    Hb_SetCodePage( "ES" )
    SetHandleCount( 250 )
    Request DBFCDX
    RddSetDefault( "DBFCDX" )
    Return 0
    
/*----------------------------------------------------------------------------*/    
Function OtraVentana()


    Define Window oWndChild From 10, 10 To 40, 50 Style nOr( WS_POPUP ) Color 0, CLR_WHITE
    
        oWndChild : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oWndChild : End(), ) }        
    
    Activate Window oWndChild On Paint PintaBarra()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function PintaBarra()

    Local hPen
    Local hOldPen
    Local hDc := GetDc( oWndChild : hWnd )

    hPen    := CreatePen( PS_SOLID, 1, CLR_BLUE )
    hOldPen := SelectObject( hDc, hPen )
    ? Rectangle( hDc, 100, 100, 150, 300, hPen )
    ? DeleteObject( hOldPen )
    ReleaseDc( hDc )
    Return 0

Que estoy haciendo mal ??? Muchas gracias de antemano

Saludos

Sin probarlo pero seguramente tenga algo que ver: (fíjate en el OF de la definicion de la ventana)

Code (fw): Select all Collapse

Function OtraVentana()


    Define Window oWndChild From 10, 10 To 40, 50 Style nOr( WS_POPUP ) Color 0, CLR_WHITE OF oWndMain
    
        oWndChild : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oWndChild : End(), ) }        
    
    Activate Window oWndChild On Paint PintaBarra()
    Return 0

Code (fw): Select all Collapse

Function OtraVentana()


    Define Window oWndChild From 10, 10 To 40, 50 Style nOr( WS_POPUP ) Color 0, CLR_WHITE
    
        oWndChild : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oWndChild : End(), ) }        
    
    Activate Window oWndChild On Init ( SetParent( oWndChild:hWnd, oWndMain:hWnd) ) On Paint PintaBarra()
    Return 0

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con on paint
Posted: Fri Dec 20, 2013 04:30 PM

Gracias Cristóbal por tu respuesta. No funciona con ninguna de las dos propuestas. He añadido una buttonbar en la segunda ventana y sucede exactamente lo mismo. Aparentemente el estilo "WS_POPUP" no muestra correctamente los controles, tampoco puedo pintar la ventana con el comando On Paint. Pareciese que no respeta el handle de la ventana ya que las coordenadas del rectángulo se pintan fuera de los limites de la ventana a la que se supone pertenece, además de pintarse por detrás de la misma. Lo he probado en FWH 7.12 Y FWH 12.04 y tienen el mismo comportamiento. Es una pena porque quería hacer un cambio radical en el aspecto de mis aplicaciones pero con estos problemas dudo que siga adelante.

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con on paint
Posted: Fri Dec 20, 2013 05:55 PM

Horacio
Puedes indicar que aspecto pretendias darle a tus aplicaciones o una imagen que lo aclare?

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con on paint
Posted: Fri Dec 20, 2013 08:02 PM

Estoy por portar una aplicación a Sql y de paso darle un front end diferente a los que vengo utilizando y me parecía viable utilizar este tipo de estilo ( WS_POPUP ) para darle una funcionalidad de ventanas independientes. Pero evidentemente este no es el camino. Gracias Cristobal por tu atención.

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con on paint
Posted: Fri Dec 20, 2013 09:10 PM

Horacio
Creo que el problema viene de crear la "barra" en el On Paint en lugar de en el On Init, en este caso si funciona correctamente, si es que he entendido lo que necesitas

Code (fw): Select all Collapse

#include 'fivewin.ch'
Static oWndChild
Static oWndMain

Function Main()

    DefineEntorno()
    Start()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function Start()

    Local oGet
    Local oBtn := Array( 2, 0 )
    Local oGrupo
    Local cVar := Space( 30 )
    
    Define Window oWndMain Style nOr( WS_POPUP ) Color 0, CLR_HGRAY //nRgb( 240, 240, 255 )
    
        @ 10,  10 Group oGrupo To 600, 600 Pixel transparent OF oWndMain
        @ 80, 500 Btnbmp oBtn[ 1 ] Size 25, 25 Action OtraVentana() NoBorder Of oWndMain 
        @ 80, 160 Get oGet Var cVar Of oWndMain Size 300, 20 Pixel
    
    Activate Window oWndMain Maximized On Init OtraVentana()
    Return 0
    
/*----------------------------------------------------------------------------*/
Function DefineEntorno()

    Set Epoch To 1950
    Set Date  To British
    Set Delete   On
    Set Multiple Off
    Set Autopen  On
    Set Softseek On
    Set Century  On
    Set Confirm  On
    Set Decimals To 2
    Set Fixed Off
    Set Exact on
    Set Optimize On
    //Request HB_LANG_ES
    //Hb_LangSelect("ES")
    //Hb_SetCodePage( "ES" )
    SetHandleCount( 250 )
    //Request DBFCDX
    //RddSetDefault( "DBFCDX" )
    Return 0
    
/*----------------------------------------------------------------------------*/    
Function OtraVentana()

                                                  
    Define Window oWndChild From 10, 10 To 40, 50 Style nOr( WS_POPUP ) Color 0, CLR_WHITE //OF oWndMain
    
        oWndChild : bKeyDown := { | nKey | If( nKey == VK_ESCAPE, oWndChild : End(), ) }        
        

    Activate Window oWndChild On Init PintaBarra() 
    Return 0
    
/*----------------------------------------------------------------------------*/
Function PintaBarra()

    Local hPen
    Local hOldPen
    Local hDc := GetDc( oWndChild : hWnd )

    hPen    := CreatePen( PS_SOLID, 1, CLR_BLUE )
    hOldPen := SelectObject( hDc, hPen )
    Rectangle( hDc, 100, 100, 150, 300, hPen )
    DeleteObject( hOldPen )
    ReleaseDc( hDc )
    Return 0

FiveTech Support Forums

Continue the discussion