[futurebasic] Re: [FB] Image to Clipboard Rv

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : March 2011 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Mon, 28 Mar 2011 16:36:12 -0400
Fn GraphicsImportGetBoundsRect(grphImpComp,docRect) works ok for me.

Might can use:

' (typed in email, verify)

Local Fn GetRect(r as ^rect, pictH as handle)
dim docRect as Rect
dim as GraphicsImportComponent  @grphImpComp
dim as ComponentResult          crslt

crslt =  fn GraphicsImportGetAsPicture(grphImpComp,pictH)

'Then call

crslt  =  Fn GraphicsImportGetBoundsRect(grphImpComp,docRect)
if crslt = _noErr then BlockMove @docRect,  r, 8
crslt   = fn CloseComponent(grphImpComp)

end fn = crslt

'If you want to nab a file from disk direct, can use

'fn GetGraphicsImporterForFile(inSpec, grphImpComp) // FSSpec

'first.

'rc

On Mar 28, 2011, at 4:01 PM, Warren Lanford wrote:

> I failed to realize there was one other thing concerning images to  
> the clipboard that I would need when I asked for help yesterday.
>
> I've spent today trying to find a command that would work, but it's  
> just been an effort in futility.
>
> I need to be able to obtain the picture's boundsrect once I've  
> retrieved an image from the clipboard in order to move it around  
> and work with it.
>
> For years I used :
> GWCRect = [pictH] + 2
> As you know this no longer works.
>
> After considerable searching this is all I could find that was new  
> to me.
> fn QDGetPictureBounds(picH,GWCRect)
> Of course it didn't work.  It's either because it's an old command  
> or I'm doing something wrong.
>
> Any help will be greatly appreciated.
>
> Thank you.
>
> Warren Lanford
>
>
> --
> To unsubscribe, send ANY message to: futurebasic- 
> unsubscribe@...
> To access the list archives, go to:  http://freegroups.net/groups/ 
> futurebasic/
>