UsePNGImageDecoder()
Enumeration #PB_Compiler_EnumerationValue
  #GadgetsWindow
  #GadgetsListIcon
EndEnumeration
; ------------------------------------------
;{- прием сброщеных файлов                      ; Ok
; ------------------------------------------
Procedure.l FormCallback(hWindow, iMessage, wParam, lParam)
  Protected Result, lpClassName.s, hInstance, Thread
  Select iMessage
    Case #WM_DROPFILES
      
      Buffer = AllocateMemory(1000)
      DragQueryFile_(wParam,0,Buffer,1000)
      Debug PeekS(Buffer)
      
      
      
    Default
  EndSelect  
  Result = #PB_ProcessPureBasicEvents
  ProcedureReturn Result
EndProcedure

;}------------------------------------------
; ------------------------------------------


;Global Buffer = AllocateMemory(1000)
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  DragAcceptFiles_(WindowID(0),#True)
  SetWindowCallback(@FormCallback() ,0)
  
  Repeat
    EventID=WaitWindowEvent()
    Select EventID
      Case #WM_DROPFILES
        Buffer = AllocateMemory(1000)
        DragQueryFile_(EventwParam(),0,Buffer,1000)
        Debug PeekS(Buffer)
        
    EndSelect
    If EventID=#PB_Event_CloseWindow
      Quit=1
    EndIf
  Until Quit=1
EndIf

Enumeration #PB_Compiler_EnumerationValue
  #GadgetsWindow
  #GadgetsListIcon
EndEnumeration


If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  EnableWindowDrop(0, #PB_Drop_Files, #PB_Drag_Link)
  
  Repeat
    EventID=WaitWindowEvent()
    Select EventID
      Case #PB_Event_WindowDrop
        
        Debug EventDropFiles()
        
    EndSelect
    
  Until EventID=#PB_Event_CloseWindow
  
EndIf

; Shows using of several panels...
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget     (0, 8, 8, 306, 203)
  AddGadgetItem (0, -1, "Panel 1")
  PanelGadget (1, 5, 5, 290, 166)
  AddGadgetItem(1, -1, "Sub-Panel 1")
  AddGadgetItem(1, -1, "Sub-Panel 2")
  AddGadgetItem(1, -1, "Sub-Panel 3")
  CloseGadgetList()
  AddGadgetItem (0, -1,"Panel 2")
  ButtonGadget(2, 10, 15, 80, 24,"Button 1")
  ButtonGadget(3, 95, 15, 80, 24,"Button 2")
  CloseGadgetList()
  
  PureCOLOR_SetGadgetColor(0, 0, RGB(0, 255, 0))

  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

; Shows using of several panels...
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  hWnd = PanelGadget(0, 8, 8, 306, 203)
  AddGadgetItem(0, -1, "Panel 1")
  AddGadgetItem(0, -1, "Panel 2")
  CloseGadgetList()
  
  hBrush = CreateSolidBrush_(RGB(168, 255, 179))
  SetClassLong_(hWnd,#GCL_HBRBACKGROUND,hBrush)
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  hWnd = PanelGadget(0, 8, 8, 306, 203)
  AddGadgetItem(0, -1, "Panel 1")
  AddGadgetItem(0, -1, "Panel 2")
  CloseGadgetList()
  
  hBrush = CreateSolidBrush_(RGB(168, 255, 179))
  SetClassLong_(hWnd,#GCL_HBRBACKGROUND,hBrush)
  null=0 : SetWindowTheme_(hWnd, @null, @null)
    
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf