Re: Scaling movies and pictures

[David Austin <daustin777 at cox dot net>]

On May 27, 2004, at 3:02 PM, Andrew Keller wrote:

> In my app, I need to be able to scale (proportionally, not x/y 
> independent) movies and pictures.  How can I do this?
For picture objects you can do something like this ( from a canvas 
paint event ):
  dim dw, dh as Integer // destination
  dim sw, sh  as Integer // source
  dim x, y as Integer // start coordinate
  dim factor as Double // scale factor

  dw=250 // destination size
  dh=250 // destination size
  if thePicture<>nil then
    sw=thePicture.Width
    sh=thePicture.Height
    fact=min(me.Width / sw, me.Height / sh)
    dw=sw*factor
    dh=sh*factor
    x=(me.Width-dw)*0.5
    y=(me.Height-dh)*0.5
    g.DrawPicture thePicture, x, y, dw, dh, 0, 0, sw, sh
  end if

--
David

_______________________________________________
Unsubscribe or switch delivery mode:
<http://support.realsoftware.com/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>