Enumeration
  #Window_0
EndEnumeration

#SRCCOPY = $CC0020
#DLLID_User32 = 0
#DLLID_GDI32  = 1
#ImageID      = 0
#ERRMSG="Error"


Enumeration
  #Hyperlink_0
  #Text_0
  #Text_2
  #Text_3
  #Text_4
  #Text_5
  #Frame3D_0
  #Button_0
  #Button_2
  #Frame3D_1
  #CheckBox_1
  #CheckBox_2
  #CheckBox_3
EndEnumeration

;- StatusBar Constants
;

Enumeration
  #StatusBar_0
EndEnumeration


Global FontID1
FontID1 = LoadFont(1, "Blade Runner Movie Font", 12, #PB_Font_Bold | #PB_Font_Italic)
Global FontID2
FontID2 = LoadFont(2, "Lucida Console", 10)


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 399, 81, 333, 228, "X-Snapper v.1.0",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateStatusBar(#StatusBar_0, WindowID(#Window_0))
      EndIf

      If CreateGadgetList(WindowID(#Window_0))
        HyperLinkGadget(#Hyperlink_0, 70, 0, 170, 20, "www.xsoft.de.ms", RGB(0, 600, 600))
        SetGadgetFont(#Hyperlink_0, FontID1)
        TextGadget(#Text_0, 30, 150, 280, 10, "Drücke F12 um ein Screen zu machen")
        SetGadgetFont(#Text_0, FontID2)
        TextGadget(#Text_2, 30, 170, 70, 20, "Speichern als :")
        TextGadget(#Text_3, 160, 170, 20, 20, ".jpg")
        TextGadget(#Text_4, 280, 170, 30, 20, ".bmp")
        TextGadget(#Text_5, 220, 170, 20, 20, ".gif")
        Frame3DGadget(#Frame3D_0, 10, 160, 310, 40, "")
        ButtonGadget(#Button_0, 20, 110, 80, 30, "Screens")
        ButtonGadget(#Button_2, 230, 110, 80, 30, "Alle löschen")
        Frame3DGadget(#Frame3D_1, 10, 20, 310, 80, "")
        CheckBoxGadget(#CheckBox_1, 130, 170, 20, 20, "")
        CheckBoxGadget(#CheckBox_2, 200, 170, 20, 20, "")
        CheckBoxGadget(#CheckBox_3, 260, 170, 20, 20, "")
        
      EndIf
    EndIf
EndProcedure

Procedure.l ScreenShot(Path.s)
  Protected hWnd.l
  Protected hDC.l
  Protected DeviceContext.l
  


  
  If Not OpenLibrary(#DLLID_User32,"User32.dll") Or Not OpenLibrary(#DLLID_GDI32,"GDI32.dll")
    ProcedureReturn #False
  Else
    
    hWnd  = CallFunction(#DLLID_User32,"GetDesktopWindow")
    hDC   = CallFunction(#DLLID_User32,"GetDC",hWnd)
    
    ExamineDesktops()
    CreateImage(#ImageID,DesktopWidth(0),DesktopHeight(0))
    
    DeviceContext = StartDrawing(ImageOutput(#ImageID)) ;>
      CallFunction(#DLLID_GDI32,"BitBlt",DeviceContext,0,0,ImageWidth(#ImageID),ImageHeight(#ImageID),hDC,0,0,#SRCCOPY)
    StopDrawing() ;<
    
    SaveImage(#ImageID,Path)
    FreeImage(#ImageID)
    CloseLibrary(#DLLID_GDI32)
    CloseLibrary(#DLLID_User32)
    
    ProcedureReturn #True
  EndIf
  
  
  ProcedureReturn #False
EndProcedure

Open_Window_0()



  
AddKeyboardShortcut(#Window_0,#PB_Shortcut_A,1)

Repeat 


   
  Event = WaitWindowEvent()
  
  If EventID = #PB_Event_Menu
  
 Select EventMenu()
    Case 1 
     Debug "d"
  EndSelect

EndIf
  
  WindowID = EventWindow() 
  
  GadgetID = EventGadget() 
  
  EventType = EventType()
  
  ;You can place code here, and use the result as parameters for the procedures
  
  
  
  If Event = #PB_Event_Gadget
    
    If GadgetID = #Hyperlink_0
 
      
    ElseIf GadgetID = #Button_0
      
    ElseIf GadgetID = #Button_2
      
    ElseIf GadgetID = #CheckBox_1
    
    If GetGadgetState(#CheckBox_1) = 1
    
    MessageRequester("Dateiendung:","Test")
    
    EndIf
      
    ElseIf GadgetID = #CheckBox_2
    
    If GetGadgetState(#CheckBox_2) = 1
    
    MessageRequester("Dateiendung:","Test")
    
    EndIf
      
    ElseIf GadgetID = #CheckBox_3
    
    If GetGadgetState(#CheckBox_3) = 1
    
    MessageRequester("Dateiendung:","Test")
    
    EndIf
      
    EndIf
    
  EndIf
                                  
  
Until Event = #PB_Event_CloseWindow 

End