FiveTech Support Forums

Saludos para el Foro

Alguien me puede indicar como coloco una imagen en una ventana MDI

Cordialmente

Jairo Barbosa

Hola amigo.
Prueba lo siguiente:




Nota: La imagen está dentro de una DLL de recursos, dentro de un RC es lo mismo.

Espero te sirva.
Saludos, desde Argentina, Esteban.

jrestojeda wrote:Hola amigo.
Prueba lo siguiente:

Code: Select all Collapse

DEFINE BRUSH oBrush1 RESOURCE "IMAGEN" // Defines la imagen

Code: Select all Collapse

DEFINE WINDOW oWnd1 MDICHILD OF oWnd BRUSH oBrush1 ICON "A_ICONO1";
   TITLE "ABM de clientes";
   VSCROLL HSCROLL

Nota: La imagen está dentro de una DLL de recursos, dentro de un RC es lo mismo.

Espero te sirva.
Saludos, desde Argentina, Esteban.

*--------------------------------------------------------------------------
Bueno Amigo Gracias por tu respuesta,
me gustaria preguntarte si con ese metodo la imagen se acomoda en el monotor a las distintas resoluciones?
Tenia un arreglo con pero al hacerla la ventana mdi desaparecio la imagen.

Gracias de antemano por tu ayuda

Jairo Barbosa

No amigo, la imagen no se adapta a distintas resoluciones.
Yo eso lo soluciono con diferentes Brush.



oBrush1 y oBrush2 son dos imágenes distintas con los tamaños ya preestablecidos.
En el IF Solo está para dos resoluciones pero puedes poner las que quieras, no se si es la mejor forma, pero es la forma en la que yo resuelvo este tema.

Espero te sirva.
Saludos.

jaba wrote:Saludos para el Foro

Alguien me puede indicar como coloco una imagen en una ventana MDI

Cordialmente

Jairo Barbosa

Yo lo hago de la manera siguiente. Espero te sirva.

Function Main()
local oBmp

DEFINE BITMAP oBmp file ".\MiBmp.bmp"
...
...
oWnd:bPainted := { | hDC | PongaBmp( hDC , oBmp , oWnd ) }

ACTIVATE WINDOW oWnd MAXIMIZED

oBmp:End()
SET RESOURCES TO
Return nil

//-----------------------------------------//FWH
STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd ) //BmpTiled(
local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
local nRow := 0, nCol := 0, n
local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight()

if oBmp:hBitmap == 0
return nil
endif

while nRow < nHeight
nCol = 0
while nCol < nWidth
PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
nCol += nBmpWidth
end
nRow += nBmpHeight
end
return nil


Saludos
Francisco J. Alegria P.

FranciscoA wrote:

jaba wrote:Saludos para el Foro

Alguien me puede indicar como coloco una imagen en una ventana MDI

Cordialmente

Jairo Barbosa

Yo lo hago de la manera siguiente. Espero te sirva.

Function Main()
local oBmp

DEFINE BITMAP oBmp file ".\MiBmp.bmp"
...
...
oWnd:bPainted := { | hDC | PongaBmp( hDC , oBmp , oWnd ) }

ACTIVATE WINDOW oWnd MAXIMIZED

oBmp:End()
SET RESOURCES TO
Return nil

//-----------------------------------------//FWH
STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd ) //BmpTiled(
local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
local nRow := 0, nCol := 0, n
local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight()

if oBmp:hBitmap == 0
return nil
endif

while nRow < nHeight
nCol = 0
while nCol < nWidth
PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
nCol += nBmpWidth
end
nRow += nBmpHeight
end
return nil


Saludos
Francisco J. Alegria P.

Jrestojeda , Francisco

Gracias lo estoy probando

Cordialmente

Jairo Barbosa