Try this, it won't fully work, but it should help.

CLEAR LOCAL
DIM @WindMgrPort&
DIM @OldPort&
DIM BlitzRect;8
LOCAL FN BlitzScreen
  CALL GETPORT(OldPort&)
  CALL GETWMGRPORT(WindMgrPort&)
  BlitzRect;8 = WindMgrPort& + _PortRect
  CALL SETPORT(WindMgrPort&)
  CALL SETRECT(BlitzRect,0,0,SYSTEM(_scrnWidth),SYSTEM(_scrnHeight))
  COLOR _zBlack
  CALL PAINTRECT(BlitzRect)
  CALL SETPORT(OldPort&)
END FN

In a message dated 2/25/01 10:45:34 PM, wedwards@... writes:

>
>
>
>
>Anyone have a routine to read the screen directly.  I want to capture a
>drag
>
>of a translucent icon but have been completely unsucessful.  I tried
>
>copybits and a trick I found on Apples site and even went so far as to
>copy
>
>all the pixels from the screen using getcpixel.  Copybits shields the cursor
>
>and it appears that getcpixel does as well. Calling showcursor does not
>
>help.  Screen capture programs havent worked.  I think the only way I'm
>
>going to be able to capture the translucent drag is to directly read the
>
>screen, store and restore to a picture.
>
>
>
>Anyone know how I can read the screen directly?
>
>
>
>
>
>W.


Best,

Matthew Beedle
Foxchange Software
http://www.foxchange.com