Cmbio fondo ventana principal

Post Reply
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Cmbio fondo ventana principal

Post by Manuel Valdenebro »

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
User avatar
Antonio Linares
Site Admin
Posts: 42449
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 20 times
Been thanked: 57 times
Contact:

Post by Antonio Linares »

Manuel,

Has probado a hacer oBmp:LoadBMP( cBmpFile ) ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Post by Manuel Valdenebro »

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
Post Reply