RE:Fondo de Ventanas... La Solucion
Yo tengo aplicaciones donde le puedo seleccionar el fondo de pantalla y tiene que ser un BMP. Te cuento como:
Primero: crea una nueva ventana, esta tiene que ser del tipo [Popup] fijate donde dice (Windows Type) dento de las propiedades de la ventana. A su vez dale un tamaño de casi toda la ventana (en 90% de alto nada mas). puedes ponerle un color Gris oscuro si quieres.
necesito que grabes esta ventana con el nombre [ w_gl_fondo ] para que la programacion que te envie a continuacion te funcione sin modificaciones.
Segundo: Pegale un Objeto [ Picture ] ponle el nombre de p_dibu si quieres.
Tercero: Pegale esta Sintaxis en el envento [ Open ] de la Ventana
this.x=1
this.y=1
IF FileExists(gs_fondo) THEN
p_dibu.PictureName = gs_fondo
ELSE
p_dibu.Visible=False
END IF
Aclaracion : [ gs_fondo ] es una variable Global de tipo String, ya te voy a explicar cuando la vas a cargar.
Cuarto: Debes pegar esta Sintaxis en algun Boton, dentro de alguna ventana de prueba que uses...
Integer li_value
String ls_docname, ls_name
li_value = GetFileOpenName("Seleccione Fondo de Pantalla", &
+ ls_docname, ls_name, "BMP", &
+ "Mapa de Bit's (*.BMP),*.BMP,")
IF li_value = 1 THEN
gs_fondo = ls_docname
if IsValid(w_gl_fondo) = False Then
OpenSheet(w_gl_fondo, w_ventana_principal, 0, original!)
end if
w_gl_fondo.p_dibu.PictureName = ls_docname
END IF
que es [ w_ventana_principal ] ????? es la ventana donde tengo el menú con todas mis opcio