Qualcuno capisce veramente il Drag & Drop ?

[vuott]

https://foro.gambas-es.org/viewtopic.php?f=1&t=5922

[Gianluigi]

Ho provato il codice della wiki e non mi funziona.
Ho proceduto in questa maniera:
Ho copiato e incollato il codice sia ad un progetto gb.qt4 con entrambi i controlli, che in uno gb.gui.qt con la sola textarea.
Ho creato un file di testo con una scritta semplice salvato come test.txt e poi riaperto in gedit, ho evidenziato il testo e trascinato col mouse tenendo il tasto sinistro premuto sulla textarea.
Ottego l'errore Out of bounds perchè percorso risulta vuoto vedi immagini allegate.

Ho Gambas r7956 su Ubuntu 16.04.01

[vuott]

ho evidenziato il testo e trascinato col mouse tenendo il tasto sinistro premuto sulla textarea.
Ottego l'errore Out of bounds

Ah, ora ho capito il problema. 

Dunque, tu devi trascinare - con il tasto sinistro del mouse e mantenendolo premuto -  il file, e non il testo.
Devi trascinare, insomma, il file all'interno di uno dei due oggetti di testo. 

[Gianluigi]

ho evidenziato il testo e trascinato col mouse tenendo il tasto sinistro premuto sulla textarea.
Ottego l'errore Out of bounds

Ah, ora ho capito il problema. 

Dunque, tu devi trascinare - con il tasto sinistro del mouse e mantenendolo premuto -  il file, e non il testo.
Devi trascinare, insomma, il file all'interno di uno dei due oggetti di testo.

Ok ora ho capito e funziona  ma a patto che il file di testo sia nominato senza spazi altrimenti ottieni un errore.
 

Nota: Mentre ti scrivo ogni tanto vedo il file "dragato" attraversare la finestra come un fantasma 

[vuott]

Ok ora ho capito e funziona  ma a patto che il file di testo sia nominato senza spazi altrimenti ottieni un errore.

Ovviamente il programmatore sarà in grado di risolvere facilmente  questo problema. 

Nota: Mentre ti scrivo ogni tanto vedo il file "dragato" attraversare la finestra come un fantasma

Sì, accade anche a me.... magari lui viene dal futuro.   

[Gianluigi]

Ovviamente il programmatore sarà in grado di risolvere facilmente  questo problema. 

 

[Gianluigi]

Ovviamente il programmatore sarà in grado di risolvere facilmente...

Fare questa prova:
1) Disegnare una textarea in un nuovo progetto QT.
2) Non scrivere codice alcuno, ma credere fermamente in San Minisini
3) Avviare l'applicazione e poi provare il drag e drop con file di testo (sia file che contenuto del file o parte di esso) con cartelle e con immagini.
 

[vuott]

Sì, avevo notato che esce l'intero percorso.

Ma.... come lo raccogli ?   

[Gianluigi]

Sì, avevo notato che esce l'intero percorso.

Ma.... come lo raccogli ?   

Codice: [Seleziona]

Public Sub TextArea1_Change()
  
  Print TextArea1.Text
  
End

[Gianluigi]

Sì, avevo notato che esce l'intero percorso.

Ma.... come lo raccogli ?   

Non solo i percorsi, anche i contenuti 

[vuott]

Sì, avevo notato che esce l'intero percorso.

Ma.... come lo raccogli ?   

Codice: [Seleziona]

Public Sub TextArea1_Change()
  
  Print TextArea1.Text
  
End

Molto bravo, Gianluigi. Bravo.

Però, pare che non basti.....
L'evento viene scatenato più volte. Così si solleva un errore di "Out of bound" alla riga dov'è la funzione Scan( ).

[vuott]

L'evento viene scatenato più volte.

Ho dovuto forzare la situazione, ponendo il blocco della sollevazione degli eventi per la TextArea. 

Codice: [Seleziona]

Public Sub TextArea1_Change()
  
  Dim percorso As String

     Object.Lock(TextArea1)

  percorso = Scan(TextArea1.Text, "file://*")[0]

  TextArea1.Text = File.Load(Trim(percorso))

End

[Gianluigi]

Sì, avevo notato che esce l'intero percorso.

Ma.... come lo raccogli ?   

Codice: [Seleziona]

Public Sub TextArea1_Change()
  
  Print TextArea1.Text
  
End

Molto bravo, Gianluigi. Bravo !

Però, pare che non basti.....
L'evento viene scatenato più volte. Così si solleva un errore di "Out of bound" alla riga dov'è la funzione Scan( ).

Scusa ma non capisco, quale funzione? Io ho detto di non mettere alcun codice fa tutto la textarea solo Change() e basta poi basta gestire le ripetizioni.

[vuott]

Se pongo la sub-routine vuota con evento TextArea1_Change( ), dopo aver trascinato il file di testo nella TextArea, dentro questa vedo soltanto il percorso del file.   

[Gianluigi]

Se pongo la sub-routine vuota con evento TextArea1_Change( ), dopo aver trascinato il file di testo nella TextArea, dentro questa vedo soltanto il percorso del file.   

Tanto per evitare incomprensioni a me questo "progetto" funziona bene.
Sia se droppo Testo che immagini ecc.
Se droppo un file scrive il percorso se droppo il contenuto scrive il contenuto se droppo altro scrive il percorso.
Naturalmente tutte le volte scrive l'intero contenuto della TextArea.