iamgen fondo en form

[PILO]

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

[Bingen Ugaldebere]

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

[ignacio]

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
>

[PILO]

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

[ignacio]

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
>

[PILO]

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
>

[PILO]

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