Viewing PICT on a Windows system

[Jonathon Bevar]

How does one view PICT files within RB 5.5.5?

I have Quick Time installled and I can view JPG, BMP, ICO, GIF files but when i 
try to view a PICT nothing comes up on the Canvas.

  Dim dlg as OpenDialog
  Dim f as FolderItem
  Dim pw As Integer
  Dim ph As Integer
  dlg=New OpenDialog
  dlg.Title="Select an Image file to Open"
  dlg.Filter="image/bmp-jpg-ico-gif-pict"
  f=dlg.ShowModal()
  If f <> Nil then
      pw = WorkPix.width + 143
      ph = WorkPix.height + 30
   If pw <= 413 then
        Window1.Width = 413
   Else
        Window1.Width = pw
   End If
   If ph <= 300 then
        Window1.Height  = 300
   Else
        Window1.Height  = ph
   End if

    OpenPix=f.OpenAsPicture
    WorkPix=f.OpenAsPicture
    Canvas1.backdrop=NewPicture(graphics.Width, graphics.Height, 32)
    Canvas1.backdrop.Graphics.DrawPicture WorkPix,0,0

  Else
    //User Cancelled
  End if

Now, when i can view the pict through the QuickTime is i click on the pict 
file, but when i try to open the file through the RB program all i get is a 
NOTHING!

Help

Jonathon
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.22/239 - Release Date: 1/24/2006

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

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