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
