[Resolved] Editable ComboBox Drag/Drop

[Kwai chang caine]

Hello at all

I search to drag and drop in an editable ComboBoxGadget
I have trying several things without succès
If someone have an idea

Code: Select all

OpenWindow(0, 0, 0, 270, 180, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ComboBoxGadget(0, 10, 10, 250, 21, #PB_ComboBox_Editable)
ComboBoxGadget(1, 10, 50, 250, 21, #PB_ComboBox_Editable)

EnableGadgetDrop(0, #PB_Drop_Files, #PB_Drag_Copy) 
EnableGadgetDrop(1, #PB_Drop_Files, #PB_Drag_Copy) 

Repeat  
 
 Evenement = WaitWindowEvent()

If Evenement = #PB_Event_GadgetDrop
   
 PhraseFichier$ = EventDropFiles()
 WindowFromPoint_(Coord)
 GetCursorPos_(@point.POINT) 
 Handle = WindowFromPoint_(Point\X | (Point\Y << 32))
 PbIdGadget = GetDlgCtrlID_(Handle) 
 
 ; SetGadgetText(PbIdGadget, PhraseFichier$)                                         ; Not work
 ; SetGadgetText(GetWindow_(Handle, #GW_CHILD), PhraseFichier$)                      ; Not work
 ; SetGadgetText(GetWindow_(GadgetID(PbIdGadget), #GW_CHILD), PhraseFichier$)        ; Not work
   
EndIf
 
Until Evenement = #PB_Event_CloseWindow

Have a good day

[firace]

Hi KCC, hope you are doing well!

Something like this?

Code: Select all

OpenWindow(0, 0, 0, 270, 180, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ComboBoxGadget(0, 10, 10, 250, 21, #PB_ComboBox_Editable)
ComboBoxGadget(1, 10, 50, 250, 21, #PB_ComboBox_Editable)

EnableGadgetDrop(0, #PB_Drop_Files, #PB_Drag_Copy) 
EnableGadgetDrop(1, #PB_Drop_Files, #PB_Drag_Copy) 

Repeat  
  Evenement = WaitWindowEvent()
  
  If Evenement = #PB_Event_GadgetDrop
    
    PhraseFichier$ = EventDropFiles()
    
    SetGadgetText(EventGadget(), PhraseFichier$)      
    
  EndIf
Until Evenement = #PB_Event_CloseWindow

[Axolotl]

do it like this...

Code: Select all

OpenWindow(0, 0, 0, 270, 180, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ComboBoxGadget(0, 10, 10, 250, 21, #PB_ComboBox_Editable)
ComboBoxGadget(1, 10, 50, 250, 21, #PB_ComboBox_Editable)

EnableGadgetDrop(0, #PB_Drop_Files, #PB_Drag_Copy) 
EnableGadgetDrop(1, #PB_Drop_Files, #PB_Drag_Copy) 

Repeat  
 
 Evenement = WaitWindowEvent()

If Evenement = #PB_Event_GadgetDrop
   
  PhraseFichier$ = EventDropFiles()
;  WindowFromPoint_(Coord)
;  GetCursorPos_(@point.POINT) 
;  Handle = WindowFromPoint_(Point\X | (Point\Y << 32))
;  PbIdGadget = GetDlgCtrlID_(Handle) 

  Select EventGadget() 
    Case 0, 1   ; my comboboxes :) 
      If PhraseFichier$ 
        AddGadgetItem(EventGadget(), -1, PhraseFichier$) 
        SetGadgetText(EventGadget(), PhraseFichier$) 
      EndIf 
 
  EndSelect 

 ; SetGadgetText(PbIdGadget, PhraseFichier$)                                         ; Not work
 ; SetGadgetText(GetWindow_(Handle, #GW_CHILD), PhraseFichier$)                      ; Not work
 ; SetGadgetText(GetWindow_(GadgetID(PbIdGadget), #GW_CHILD), PhraseFichier$)        ; Not work
   
EndIf
 
Until Evenement = #PB_Event_CloseWindow

[Axolotl]

the second is the first loser.....

[Kwai chang caine]

Hello at you two

I have searched a long time and sometimes.... we go looking far away, for what is very close
And it's always easy to say : "That it was so simple !!!", when you are given to me the solution

Thanks a lot for your quick and precious help

the second is the first loser...

Furthermore, i have win a nice proverb (Apparently of Ayrton Senna), that I did not know
I note it preciously...in my long collection of nice proverbs

Have a very end of day my friends