FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para CA-Clipper Cmbio fondo ventana principal
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Cmbio fondo ventana principal
Posted: Thu Mar 16, 2006 08:56 PM

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

Un saludo



Manuel
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Cmbio fondo ventana principal
Posted: Thu Mar 16, 2006 10:01 PM

Manuel,

Has probado a hacer oBmp:LoadBMP( cBmpFile ) ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Cmbio fondo ventana principal
Posted: Fri Mar 17, 2006 07:37 PM

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

Un saludo



Manuel

Continue the discussion