Either I am going blind or the example was not included

Jonathon
----- Original Message ----- From: "Sean Arney" <[EMAIL PROTECTED]>
To: "RB Getting Started" <[email protected]>
Sent: Thursday, January 26, 2006 7:18 PM
Subject: Re: Viewing PICT on a Windows system


Using mine like this:



Jonathon Bevar

Sean,

Using my code you can? or using yours?

Jonathon

----- Original Message -----
From: "Sean Arney" <[EMAIL PROTECTED]>
To: "RB Getting Started" <[email protected]>
Sent: Thursday, January 26, 2006 6:01 PM
Subject: Re: Viewing PICT on a Windows system





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!

It is working for me but vector images get rasterized and there are issues with scaling. Try opening the .pict at its own w,h and see if it shows up OK. Then, welcome to my nightmare, and see if you can get a decent image
scaled...I can definitely see them though.

-seanA


_______________________________________________
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>




--
No virus found in this incoming 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>




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





--
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>

Reply via email to