Desplegar imagen en toda la ventana?
Posted: Thu Mar 30, 2017 3:04 am
Saludos
En mi ventana principal pongo una imagen de logo como fondo, según la resolución de algunos monitores, esta no me ocupa el ancho y largo de la ventana.
(código abajo)
Como podre ajustar la imagen independiente de la resolución de mi pantalla para que se despliegue a lo largo y ancho de mi ventana principal sin huecos en blanco?
gracias.
En mi ventana principal pongo una imagen de logo como fondo, según la resolución de algunos monitores, esta no me ocupa el ancho y largo de la ventana.
(código abajo)
Como podre ajustar la imagen independiente de la resolución de mi pantalla para que se despliegue a lo largo y ancho de mi ventana principal sin huecos en blanco?
gracias.
- Code: Select all Expand view
// --- Inicial logo de empresa
function IniLogo(oWnd,cBmp)
local nTop:=0,nLeft:=0,nHeight:=0,nWidth:=0,aclirect:=GetClientRect(oWnd:hWnd)
local oBmpLogo
// cBmp puede ser BMP o JPG
if cBmp==NIL
cBmp:='02COPY'
endif
if at('.',cBmp)<1
cBmp:=_ARCH_BMP+cBmp+'.BMP'
else
cBmp:=_ARCH_BMP+cBmp
endif
@ 0,0 IMAGE oBmpLogo FILENAME cBmp ADJUST OF oWnd NOBORDER PIXEL
nWidth :=int(aclirect[4])
nHeight:=int(nWidth*oBmpLogo:nHeight/oBmpLogo:nWidth)
oBmpLogo:nTop :=nTop
oBmpLogo:nLeft :=nLeft
oBmpLogo:nHeight:=nHeight
oBmpLogo:nWidth :=nWidth
oBmpLogo:Refresh()
return NIL