GrabDesktop

[eddy]

just an idea

Code: Select all

GrabDesktop(#Desktop, x,y ,width,height)

[PB]

+1

There is lots of code in these forums to do it, but a small command like that
is just so nice-looking. It turns me on.

[Kaeru Gaman]

sounds good...

I think some GrabWindow(WindowID(#), x,y ,width,height) would be a consequent completion..

[#NULL]

just in case it will be implemented: please make each parameters for the dimension optional to grab the hole area, or allow -1 or such.

[Matt]

just an idea

Code: Select all

GrabDesktop(#Desktop, x,y ,width,height)

+1

just in case it will be implemented: please make each parameters for the dimension optional to grab the hole area, or allow -1 or such.

+1

[TazNormand]

is this answer what you want :

Code: Select all

Procedure GrabDesktop(PosX,PosY,Width,Height)  
  Protected Result,Depth,MyImage,hc,GetDC
  Result=ExamineDesktops()  ; How Many desktops
  If Result
    If PosX=-1:posX=0:EndIf
    If PosY=-1:PosY=0:EndIf
    If Width=-1:Width=DesktopWidth(0):EndIf
    If Height=-1:Height=DesktopHeight(0):EndIf
    Depth=DesktopDepth(0) ; Desktop color Depth in bpp
    If Depth>0
      MyImage=CreateImage(#PB_Any,Width,Height,Depth)
      hc=StartDrawing(ImageOutput(MyImage))
      If hc
        GetDC=GetDC_(GetDesktopWindow_())
        BitBlt_(hc,0,0,Width,Height,GetDC,PosX,PosY,#SRCCOPY)      
        StopDrawing()        
        ReleaseDC_(GetDesktopWindow_(),GetDC)
      EndIf
    EndIf
  EndIf  
  ProcedureReturn ImageID(MyImage)
EndProcedure

Create the Image "MyImage", so you can use it like this :

Code: Select all

startX=150
StartY=200
w=300
h=450
spr=CreateSprite(0,w,h)
Img=GrabDesktop(StartX,StartY,w,h)
StartDrawing(SpriteOutput(0))
  DrawImage(Img,0,0,w,h)
StopDrawing()

Note that my function only work on desktop 0 (default), but you can change it to use any desktop number you want

EDIT : i've added the test of -1 value to take default desktop dimensions

[Matt]

Yes, but for all platforms. And straight integration into PureBasic would be nice.

just in case it will be implemented: please make each parameters for the dimension optional to grab the hole area, or allow -1 or such.

better yet, #PB_Ignore

[TazNormand]

Yes, but for all platforms. And straight integration into PureBasic would be nice.

just in case it will be implemented: please make each parameters for the dimension optional to grab the hole area, or allow -1 or such.

better yet, #PB_Ignore

right Matt, but you know, i'm a PB beginner, i do my best to help other beginners.

i write #PB_Ignore to my unerasable brain memory