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 Expand view
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...