HMGforum.com

Hola a todos.
Porque cuando intento poner una imagen de fondo en la ventana me desaparecen los controles TAB y GRID.
Cuando la imagen esta visible pasando el puntero del mouse por encima de la posición donde deberían estar
los controles mencionados estos recién comienzan a visualizarse pero siempre en forma incompleta.
Porque sucede esto, es un error?
Saludos
Claudio Soto

srvet_claudio wrote:Hola a todos.
Porque cuando intento poner una imagen de fondo en la ventana me desaparecen los controles TAB y GRID.
Cuando la imagen esta visible pasando el puntero del mouse por encima de la posición donde deberían estar
los controles mencionados estos recién comienzan a visualizarse pero siempre en forma incompleta.
Porque sucede esto, es un error?
Saludos
Claudio Soto

Code: Select all

#include "minigui.ch" 

Function Main 


    DEFINE WINDOW ventana_1 ; 
        AT 0,0 ; 
        WIDTH 800 ; 
        HEIGHT 600 ; 
        TITLE 'Programa de prueba TAB-IMAGE' ; 
        MAIN 

* @ 0,0 IMAGE Image_1 PICTURE 'foto.jpg' WIDTH 800 HEIGHT 600 STRETCH

        DEFINE TAB Tab_1 ;
			AT 30,10 ;
			WIDTH 400 ;
			HEIGHT 300 ;	
			VALUE 1 FONT 'ARIAL' SIZE 10
		
			PAGE '&Alimentos' 			      
			     @ 55,90 LABEL Label_1 VALUE 'esto es pagina 1' WIDTH 100 HEIGHT 27			     
			END PAGE

		    DEFINE PAGE '&Nutrientes'
				@ 55,90 LABEL Label_2 VALUE 'esto es pagina2' WIDTH 100 HEIGHT 27
           END PAGE
        END TAB 
        
         @ 10,450 GRID Grid_1 WIDTH 300 HEIGHT 330 ;
            HEADERS {'Column 1','Column 2','Column 3'} ;
            WIDTHS {140,140,140};
            VIRTUAL ;
            ITEMCOUNT 30 ;
            ON QUERYDATA QueryTest() 

        
        @  400, 100 BUTTON boton_1 CAPTION "On/Off image" ACTION  on_off_image () 
        
@ 0,0 IMAGE Image_1 PICTURE 'foto.jpg' WIDTH 800 HEIGHT 600 STRETCH 

        ventana_1.image_1.visible := .F.


    END WINDOW 
    CENTER WINDOW ventana_1

    ACTIVATE WINDOW ventana_1
        
Return

Procedure QueryTest()
      This.QueryData := Str ( This.QueryRowIndex ) + ',' + Str ( This.QueryColIndex )
Return


procedure ON_OFF_IMAGE
    ventana_1.image_1.visible := IF (ventana_1.image_1.visible = .T.,.F.,.T.)
    ventana_1.tab_1.show
    ventana_1.grid_1.show
return

La superposición de controles no es soportada en HMG.

Control overlapping is not supported in HMG.

Gracias por la información Roberto,
Saludos,
Claudio