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
