Saludos para el Foro
Alguien me puede indicar como coloco una imagen en una ventana MDI
Cordialmente
Jairo Barbosa
DEFINE BRUSH oBrush1 RESOURCE "IMAGEN" // Defines la imagen
DEFINE WINDOW oWnd1 MDICHILD OF oWnd BRUSH oBrush1 ICON "A_ICONO1";
TITLE "ABM de clientes";
VSCROLL HSCROLL
jrestojeda wrote:Hola amigo.
Prueba lo siguiente:
- Code: Select all Expand view
DEFINE BRUSH oBrush1 RESOURCE "IMAGEN" // Defines la imagen
- Code: Select all Expand view
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.
ResH:=oWnd:nHorzRes()
ResV:=oWnd:nVertRes()
IF ResH=800 .AND. ResV=600
SET BRUSH OF oWnd TO oBrush1
ELSE
IF ResH=1024 .AND. ResV=768
SET BRUSH OF oWnd TO oBrush2
ENDIF
ENDIF
jaba wrote:Saludos para el Foro
Alguien me puede indicar como coloco una imagen en una ventana MDI
Cordialmente
Jairo Barbosa
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.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Antonio Linares and 56 guests