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>

Reply via email to