How do I place a logo in the center of the _Screen? 3

[drumsticks]

I'm trying to find documentation on placing a logo in the center of the _Screen. I've seen a couple apps that have it, but I can't find anything on how to do it. Any ideas?

Regards,
Drumsticks

 

[KDavie]

In the begining of you main program do this:

_Screen.Picture = "Images\MyImage.bmp" &&Your image path


I'm not sure if this is the best way to do it, but it works for me.

-Kevin

 

[darrellblackhawk]

LOCAL oImage, oRemoveIt

* Just to remove the object after
* a predetermined time interval
oRemoveIt = CREATEOBJECT("clsTimer")

[green]* This is the only code needed[/green]
*{
[blue]_SCREEN.ADDOBJECT("image1","image")

oImage = _SCREEN.image1
oImage.PICTURE = "c:\windows\Prairie Wind.bmp"
oImage.LEFT = _SCREEN.WIDTH / 2 - oImage.WIDTH / 2
oImage.TOP  = _SCREEN.HEIGHT / 2 - oImage.HEIGHT / 2
oImage.VISIBLE = .T.[/blue]
* }

oRemoveIt.ENABLED = .T.

READ EVENTS

_SCREEN.REMOVEOBJECT("image1")


DEFINE CLASS clsTimer AS TIMER
  INTERVAL = 2000 && wait 2 secs before firing
  ENABLED = .F.

  PROCEDURE TIMER
    THIS.ENABLED = .F.
    CLEAR EVENTS
  ENDPROC

ENDDEFINE

Darrell

 

[Mike Lewis]

Drumsticks,

Both of the above suggestions will work fine. However, Kevin's approach (using _SCREEN.Picture) will cause the image to "tile" (repeat) across the screen, whereas Darrell's code will give you a single centred image.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[drumsticks]

Thank you guys for all your recommendations. All were helpful!

Regards,
Drumsticks