Xailer & OZ Software

Alguien me puede ayudar diciendo como puedo poner una imagen
de fondo, en un formulario que no este en el rc
Gracias de antemano

Puedes decirle al fondo de la ventana que tome una imagen del disco de
esta manera:
Function MsgLogo( cImage, nSeconds )
Local oForm, oImagen, oTimer
DEFAULT nSeconds To 5
DEFINE FORM oForm OF GetActiveform() BORDERSTYLE bsSPLASH
oForm:oBkgnd := cImage
oForm:SetClientSize( oForm:oBkgnd:nWidth, oForm:oBkgnd:nHeight )
oForm:OnLButtonDown := { || oForm:Close() }
DEFINE TIMER oTimer OF oForm Interval nSeconds*1000 ACTION
oForm:Close()
Activate Timer oTimer
ACTIVATE FORM oForm MODAL CENTER
DeActivate Timer oTimer
Return Nil
O puedes poner una imagen del dico directamente sobre un form en un
punto concreto, en este caso en el centro de una MDI
With Object AppData:oImageC :=TImage():New(
Application:oMainForm:oMdiClient )
:oPicture := cImage
:nBorderStyle := 0
:lTransparent :=.T.
:lTabStop :=.F.
:SetBounds(
(Application:oMainForm:oMdiClient:nWidth-:oPicture:nWidth)/2 ,;

(Application:oMainForm:oMdiClient:nHeight-:oPicture:nHeight) /2,;
:oPicture:nWidth, :oPicture:nHeight )
:Create()
End
Espero que te sirva.
Salu2

Pilo,
Mira en la documentación la clase TPicture.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:462503f1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Alguien me puede ayudar diciendo como puedo poner una imagen
> de fondo, en un formulario que no este en el rc
> Gracias de antemano
>

Ignacio algun ejemplo de programas que tengais en la documentación

Pilo,
Lo siento, no hay ningún ejemplo al respecto. No obstante se hace todo en
una única línea de código que además no puede ser más simple:
oForm:oBkgnd := TPicture():LoadFormFile( cFile )
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:46261edb$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio algun ejemplo de programas que tengais en la documentación
>

Resuelto con timagen,
Gracias a todos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:46261edb$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio algun ejemplo de programas que tengais en la documentación
>

Ignacio, con el timage, pongo la imagen y despues le añado los
controles que quiero, ya que lo quiero utilizar para configuración de
impresos
y me funciona perfectamente, Gracias por tu tiempo