Page 1 of 1
Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Wed Mar 25, 2009 10:15 pm
by Miguel Salas
Alguien ha hecho esto: cambiar el fondo de la ventana principal en tiempo de ejecucion:
hice esto pero no me funcionó, ...
MENUITEM "Empresa" action (CapEmpresa(oWnd,.f.),;
oWnd:settext( alltrim( empresa->nombre ) +" "+ cTextoPeriodo),;
cLogo := "logo"+strzero(empresa->clave,4,0)+".jpg",;
oFondo := TImage():Define(,cLogo),;
oWnd:bPainted:={|hDC|PalBmpDraw(hDC,0,0,oFondo:hBitmap,,oWnd:nWidth,oWnd:nHeight,,.T.)},;
oWnd:refresh())
creo que no es con refresh,....¿?
Re: Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Tue Mar 31, 2009 4:27 pm
by Miguel Salas
de verdad será que no se puede? .... debe haber algun repintado o algo parecido...
Re: Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Tue Mar 31, 2009 5:51 pm
by cuatecatl82
Buenos dias Etimado Miguel...
Hace días lei tu post y tu solicitud, pero por falta de tiempo no pude contestar..
Sobre tu pregunta, de poder se puede.. yo lo hago en una ventana principal. pero el fondo es un brush de tipo imagen.
en mi caso tengo 100 imagenes en jpg dentro de una carpeta llamada FOTOS y el usuario cambia la imagen que más le agrade, esta imagen y la configuracion de cada usuario es guardada en un archivo config.ini,
Puedes mostrar un brush como imagen o como los estilos Clasicos de Fivewin, eso es cuestion de gustos de cada usuario y es guardada en el archivo de configuración, así cada usuario tiene una imagen diferente o un fondo diferente.
Ctrl + Suma -> (+) Cambia imagen hacia arriba
Ctrl + Resta -> (-) Cambia imagen hacia abajo
Crtl + Mulpiplicacion -> (*) Cambia imagen aleatoria del 1 al 100
Es un proceso algo enrredado, pero puedo darte una idea de como hacerlo...
Code: Select all
STATIC oWndMain,oBrush1,oBrush2
//----------------------------------------------//
FUNCTION Main()
LOCAL pBrocha := "NINGUNO" // Prueba con "TILED","BRICKS","BORLAND"
LOCAL pEscr := 1 // Solo puede ser 1 o 0
LOCAL NomFondo := BRUSH46.JPG // Aki el nombre del archivo a mostrar
DEFINE BRUSH oBrush1 STYLE (pBrocha)
DEFINE WINDOW oWndMain TITLE "Cambio de Fondo" BRUSH oBrush1
oWndMain:bKeyDown = { | nKey | CambiaFondo(nKey) } //Aki cambiamos las imagenes
IF pEscr == "1"
DEFINE BRUSH oBrush1 FILENAME ".\FOTOS\"+NomFondo
ELSEIF pEscr == "0"
DEFINE BRUSH oBrush1 FILENAME ""
ENDIF
IF pBrocha == "NINGUNO" .AND. pEscr == "0"
DEFINE BRUSH oBrush2 COLOR nRGB( 128,128,128 )
SET BRUSH OF oWndMain TO oBrush2
ENDIF
ACTIVATE WINDOW oWndMain MAXIMIZED
oBrush1:END()
oBrush2:END()
RETURN nil
//----------------------------------------------//
STATIC FUNCTION CambiaFondo(nKey)
DO CASE
CASE ( nKey == VK_ADD .AND. GetKeyState( VK_CONTROL ) ) // CTRL + +
CambiaBrush(">")
CASE ( nKey == VK_SUBTRACT .AND. GetKeyState( VK_CONTROL ) ) // CTRL + -
CambiaBrush("<")
CASE ( nKey == VK_MULTIPLY .AND. GetKeyState( VK_CONTROL ) ) // CTRL + *
CambiaBrush("*")
ENDCASE
Return nil
//----------------------------------------------//
FUNCTION CambiaBrush(cTipo)
LOCAL oBrush,oBru,NomFondo,cFondo,nBr,nBrush
SYSREFRESH()
IF cTipo == ">"
cFondo:= BRUSH46.JPG //Recupero el Nombre de la foto y busco la siguiente
nBr:= SUBSTR(cFondo,6,7)
nBru:= VAL(nBr)
nBrush:= INT(nBru)
nBrush:= IF( nBrush > 98, 0, ++nBrush ) //si el conteo llego al máximo de 100 fotos vuelve a reiniciar
oWndMain:oBrush:RELEASE()
oWndMain:Refresh()
ELSEIF cTipo == "<"
cFondo:= BRUSH46.ACW //Recupero el Nombre de la foto y busco la anterior
nBr:= SUBSTR(cFondo,6,7)
nBru:= VAL(nBr)
nBrush:= INT(nBru)
nBrush:= IF( nBrush < 1, 99, --nBrush ) //si el conteo llego al minimo de 1 foto vuelve a empezar
oWndMain:oBrush:RELEASE()
oWndMain:Refresh()
ELSEIF cTipo == "*"
nBru:= Random(100) //Como tengo 100 fotos tomo una aleatoriamente
nBrush:= INT(nBru)
oWndMain:oBrush:RELEASE()
oWndMain:Refresh()
ENDIF
DEFINE BRUSH oBrush FILENAME ".\FOTOS\BRUSH" + ALLTRIM(STR(nBrush)) + ".JPG" // Las fotos deben llamarse Brush mas un numero del 0 a 100 y deben de estar en una carpeta llamda "FOTOS"
// brush10.jpg, brush11.jpg, etc..
SET BRUSH OF oWndMain TO oBrush
SYSREFRESH()
oWndMain:REFRESH()
RETURN NIL
Debes tambien tener el archivo FREEIMAGE.DLL para poder ver las imagenes jpg.
Esto esta implantado en mi sistema y funciona al 100%, espero te haya dado una ayudita, si tienes dudas al respecto comunicate conmigo para poderlo resolver..
NOTA: El cambio de imagenes en tiempo real no lo he probado en entornos MDI, pero no creo que haya mucho conflicto entre una ventana y otra, sería cuestión de hacer unas cuantas modificaciones, pero nada dificil..
Espero te sirva a ti y a toda la comunidad que lo necesite...
Re: Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Thu Jul 07, 2011 4:08 pm
by cuatecatl82
Reviviendo el post a Solicitud de Jairo:
Aqui una solución más simplificada y con ejemplo funcional de como implementarlo en sus Aplicaciones...
http://forums.fivetechsupport.com/viewt ... =6&t=21878
Saludos..
Re: Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Fri Jul 08, 2011 1:37 am
by Willi Quintana
Holas,,, No funciona en una MDI,
Salu2
Re: Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Fri Jul 08, 2011 1:27 pm
by Marco Augusto
Re: Cambiar el fondo de la ventana principal en tiempo de ejecu
Posted: Sun Jul 10, 2011 7:46 pm
by FranciscoA
Hola Willi, esto me funciona en ambiente MDI.
Function Main()
local oBmp
oBmp = TImage():Define( , GetPvProfString("Config","ImagenWnd",".\FapSoft.jpg",cIniFile) )
....
DEFINE BUTTON oBoto9 RESOURCE "MONITOR" PROMPT "Imágenes" OF oBar TOOLTIP "Seleccionar Imagen de fondo" ACTION ( CambiaImagen(oBmp,oWnd) )
.....
oWnd:bPainted := { | hDC | PongaBmp( hDC , oBmp , oWnd ) }
ACTIVATE WINDOW oWnd MAXIMIZED
00000000000000000000000000
//-----------------------------------------//
STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd )
PalBmpDraw( hDC, 0, 0,oBmp:hBitmap,, oWnd:oWndClient:nWidth, oWnd:oWndClient:nHeight,, .t.)
return nil
//----------------------------------
Function CambiaImagen( oBmp, oWnd )
local cImage
if ! Empty( cImage := cGetFile( "Image File (*.bmp,jpg,png)|*.bmp;*.png;*.jpg|", ;
"Select Image file ",, ;
'..\IMAGENES' ) ) // 'c:\fwh\bitmaps\' ) )
cImage:="..\IMAGENES\"+cFileNoPath(cImage)
oBmp:LoadBmp( cImage )
oWnd:oWndClient:Refresh()
WritePProString("Config","ImagenWnd", cImage, cIniFile)
endif
Return nil
Espero te sirva.
Saludos.