COME PARTIRE?

[vuott]

Sono partito dall'esempio DragNDrop 3.2.0. L'ho modificato, riducendo il codice all'essenziale ed aggiungendo una ScrollView. Nella ScrollView ho posto, poi, una PictureBox7.

Codice: gambas [Seleziona]

Public Sub PictureBox1_MouseDrag()

  If Mouse.Left Then
    Drag.Icon = Last.Picture
    Last.Drag(Last.Picture.Image)
  Endif

End


Public Sub TreeView1_Drop()

   PictureBox7.Picture = Drag.Data.Picture

End


Public Sub ScrollView3_Drop()
 
    PictureBox7.Picture = Drag.Data.Picture
  
End

Dunque, prendendo un'immagine, posta nel pannello laterale destro (è rimasto identico all'esempio originale), e, dopo averla trascinata, la rilascio all'interno della TreeView1, l'immagine viene mostrata nella nuova PictureBox7 (posta nella ScrollView).
Se, invece, la rilascio all'interno della ScrollView, non accade niente.
Attualmente, non so il perché.

[kicco]

Grazie Vuott
anch'io nelle mie modeste e confusionarie prove ho avuto lo stesso problema!

intanto provo il tuo codice!
 

[vuott]

Se, invece, la rilascio all'interno della ScrollView, non accade niente.
Attualmente, non so il perché.

Allora, kikko: svelato l'arcano !

La proprietà .Drop dell'oggetto, che deve sollevare l'evento _Drop(), deve essere posta a True !

Quindi il codice di sopra diventa (tenendo conto che la proprietà .Drop dell'oggetto TreeView1 dell'esempio originario DragNDrop 3.2.0 era nell'Ide già posta a True ):

Codice: gambas [Seleziona]

Public Sub Form_Open()

   ScrollView3.Drop = True

End


Public Sub PictureBox1_MouseDrag()  
      
     If Mouse.Left Then  
       Drag.Icon = Last.Picture  
       Last.Drag(Last.Picture.Image)  
     Endif  
      
End  
      
      
Public Sub TreeView1_Drop()  
      
      PictureBox7.Picture = Drag.Data.Picture  
      
End  
      
      
Public Sub ScrollView3_Drop()  
      
       PictureBox7.Picture = Drag.Data.Picture  
       
End  

[kicco]

 
 

[kicco]

Vuott
ma sai che non va, fa il drag ma non il drop, non capisco cosa sbaglio!
Non droppa sia nello ScrollView che nel TreeView

[vuott]

Non droppa sia nello ScrollView che nel TreeView

Innanzitutto, devo precisare che anche la proprietà .Drop dell'oggetto TreeView deve essere posta  ovviamente a .True.


Mah.... è strano che non funzioni...

Fai questa semplice prova:
* su un Form poni un oggetto VPanel, nel quale poni tre PictureBox. Nell'IDE - per fare prima - assegni a ciascuna di queste PictureBox il medesimo nome di Gruppo (ad esempio: pb). Quindi assegni ancora a ciascuna di esse una diversa immagine.
* sul Form poni anche un oggetto ScrollView, nel quale poni una sola PictureBox (che così avrà il nome PictureBox4).
* infine dai il seguente codice all'applicativo-prova:

Codice: gambas [Seleziona]

Public Sub Form_Open()

  ScrollView1.Drop = True

End


Public Sub pb_MouseDrag()
  
  If Mouse.Left Then  
   Drag.Icon = Last.Picture  
   Last.Drag(Last.Picture.Image)  
 Endif  
  
End

Public Sub ScrollView1_Drop()
  
   PictureBox4.Picture = Drag.Data.Picture
  
End

Questo è sostanzialmente il codice essenziale per generare un completo evento Drag-Drop

[kicco]

 
Grazie Vuott,
adesso funziona, devo ora trovare il modo di mettere l'icona dove voglio sul PictureBox4 perchè adesso si droppa allineandosi secondo ciò che c'è nel campo Alignment nell'IDE
 

[Top Fuel]

Nel mio progettino che simula la roulette nell'evento drop del tavolo di gioco per posizionare le fiches sul numero scelto in posizione casuale ma senza uscire ho fatto così:

Codice: [Seleziona]

fiches[fiches.max].Reparent(Tavolodigioco)
fiches[fiches.max].x = Tavolodigioco.x + .x + CInt(Rnd(0, .width - fiches[fiches.max].width))
fiches[fiches.max].y = Tavolodigioco.y + .y + CInt(Rnd(0, .height - fiches[fiches.max].height))

Magari può esserti d'aiuto.

[kicco]

 
grazie Top Fuel,
immagino però che le tue fiches finiscano su una griglia, mentre io devo di fatto, sovrapporre ad una cartina geografica delle immagini (icone?) che indichino la posizione delle tende scout.

Sto valutando se il componente gb.image possa aiutarmi perchè usando drawarea o pictureBox non ho cavato un ragno dal buco.

Ho anche cercato nelle applicazioni sia d'esempio che nell'area download, ma senza risultato.
D'altra parte mi sembra interessante capire come fare questo gioco perchè ne vedo molte applicazioni possibili oltre alla gestione del campo scout!
 

[splugenbrau]

Ciao kicco, Top Fuel, vuott,
quando ho impiegato gli oggetti e metodi e proprietà riguardo
a DrawingArea, Picture e Image
sembrava non funzionare niente finchè non ho
settato la proprietà Cached=True.
..se può essere d'aiuto. Ciao.

[kicco]

Ciao splugenbrau,
qui tutto è d'aiuto!
 

[fsurfing]

a mio parere la cos amigliore è utilizzare un drawing area , io con questo componente ho realizzato di tutto,

se vuoi un esempio prova a vederti i sorgenti di chiama uno  http://www.tutto-opensource.org/chiamauno.html (sono per g2 ma credo che la conversione in g3 non presenti grossi problemi) magari trovi qualche dritta

[kicco]

 
Grazie fsurfing,
sto dando un'occhiata.
 

[Top Fuel]

grazie Top Fuel,
immagino però che le tue fiches finiscano su una griglia, mentre io devo di fatto, sovrapporre ad una cartina geografica delle immagini (icone?) che indichino la posizione delle tende scout.

No, finiscono su delle Label dentro in un Panel.

[fsurfing]

Grazie fsurfing,
sto dando un'occhiata.

tieni presente che essendo un progetto per g2 , utilizza i metodi draw, in g3 poui anche utilizzare i metodi paint che ti permettono di utilizzare le trasparenze , quardati l' esempio  painting di gamas3 per utilizzare paint