Tengo una aplicación, donde la ventana principal tiene un fondo. Me funciona correctamente y lo tengo definido de la manera mas clásica y sencilla:
@ 1, 0 BITMAP oBmp FILE "fuengi.bmp" OF oWnd ;
SIZE 800,495 ADJUST
Necesito ahora cambiar el fondo de esta ventana, dependiendo del usuario que lo use.- Lo he intentado de varias maneras con UPDATE y REFRESH, pero no consigo echarlo andar.
¿Alguna idea?
Un saludo
Manuel
Cmbio fondo ventana principal
- Manuel Valdenebro
- Posts: 706
- Joined: Thu Oct 06, 2005 9:57 pm
- Location: Málaga-España
- Antonio Linares
- Site Admin
- Posts: 42450
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 20 times
- Been thanked: 57 times
- Contact:
- Manuel Valdenebro
- Posts: 706
- Joined: Thu Oct 06, 2005 9:57 pm
- Location: Málaga-España
Antonio,
Te explico mas detalladamente:
STATIC oWnd
static cTitle
static cBitmap
FUNCTION MAIN
......
cBitmap := "fuengi.bmp"
.....
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT PAINTWIN(oWnd)
///
/// una funcion para poner el BMP segun resolucion pantalla
///
STATIC FUNC PAINTWIN(oWnd)
LOCAL hDC := oWnd:hDC
local hWnd := oWnd:hWnd
local T:=GetClientRect(hWnd)
memvar oBmp
@ 01,00 BITMAP oBmp FILE cDir + cBitmap OF oWnd SIZE ;
T[4],T3] ;ADJUST
RETURN nil
///
/// cuando cambio de propietario realizo lo siguiente
// aqui es donde deberia cambiar el bitmap segun propie->LOGO
/// pero no sale el nuevo bitmap
//
oBmp:LoadBmp (propie->LOGO)
oBmp:REFRESH()
oWnd:cTitle := propie->NOMBRE
oWnd:Refresh()
Un saludo y gracias
Manuel
Te explico mas detalladamente:
STATIC oWnd
static cTitle
static cBitmap
FUNCTION MAIN
......
cBitmap := "fuengi.bmp"
.....
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT PAINTWIN(oWnd)
///
/// una funcion para poner el BMP segun resolucion pantalla
///
STATIC FUNC PAINTWIN(oWnd)
LOCAL hDC := oWnd:hDC
local hWnd := oWnd:hWnd
local T:=GetClientRect(hWnd)
memvar oBmp
@ 01,00 BITMAP oBmp FILE cDir + cBitmap OF oWnd SIZE ;
T[4],T3] ;ADJUST
RETURN nil
///
/// cuando cambio de propietario realizo lo siguiente
// aqui es donde deberia cambiar el bitmap segun propie->LOGO
/// pero no sale el nuevo bitmap
//
oBmp:LoadBmp (propie->LOGO)
oBmp:REFRESH()
oWnd:cTitle := propie->NOMBRE
oWnd:Refresh()
Un saludo y gracias
Manuel