Il drag&drop, questo (per me) sconosciuto

[vuott]

Idee per risolvere il problema?

In vero, non so come potresti colorare con le funzioni della Classe Paint escusivamente la parte dell'immagine rappresentante la vernice che esce fuori dal secchio.. 

Ad ogni modo io proporrei la ricostruzione di quella vernice attraverso la funzione Paint.Polygon()... 'na faticaccia m'hai fatto fare ! 
Aggiungerei che potresti sintetizzare un po' il codice eliminando anche la PictureBox chiamata Iconasecchio.
Ecco, come io riscriverei la funzione Colori_MouseDrag() del tuo progetto:

Codice: gambas [Seleziona]

Public Sub Colori_MouseDrag() 'draghiamo un colore

   tmp = Image.Load("Secchiello.png")

   With Last   ' il riquadro da dove parte il drag
     coloredrag = .Background   'il colore da usare
   
     With Paint
       .Begin(tmp)
       .Brush = Paint.Color(coloredrag)
       .Polygon([8, 6, 13, 11, 14, 10, 38, 18, 17])   '...il poligono può essere migliorato  :-)
       .Fill     ' colora la "vernice che esce", ossia il poligono prima definito
       .End
     End With
   
     If Mouse.Left Then   ' il secchiello è l'icona del drag&drop
       Drag.Icon = tmp.Picture
       .Drag(tmp.Picture.Image)
     Endif

   End With

End

   

[Gianluigi]

Riprendo questa discussione per un piccolo esercizio personale sul drag&drop dei colori.
Prendendo spunto da una funzione che aveva il S.O. che usavo prima di Debian (OS/2 Warp 4), che aveva la possibilità di cambiare i colori di ogni finestra facendo il drag&drop dei colori da una tavolozza, ho scritto questo programmino dove ci sono 4 Picturebox colorate editabili dove cliccando con il tasto sinistro e trascinando si può cambiare il colore di sfondo del form o, a scelta con i 2 radiobutton, cambiare il colore di testo o sfondo della Label. Riguardo i nomi, vabbé...
C'è un solo problema che non riesco a risolvere: in OS/2, l'icona di trascinamento diventava un secchiello di vernice con la vernice che usciva di lato del colore selezionato. Ho provato a rifare la stessa cosa con una Picture di supporto e istruzioni grafiche, ma il colore non cambia. Ho provato varie cose ma niente da fare.
Che ne pensate del programmino?
Idee per risolvere il problema?

Il programma mi piace e mi ha insegnato qualcosa in più, grazie.
E poi è spiritoso cosa che a me (ma non solo a me ) piace moltissimo

Giustamente vuott (per me numero 1 ) mi ha preceduto con gli effetti speciali.

Del resto la classe non è acqua...

Io più modestamente volevo proporre questa semplice aggiunta al tuo codice prima di passare tmp a  paint.begin.

tmp.Colorize(coloredrag)

in effetti colora la parte opaca, se ti va, potresti sfruttarla facendo delle bombolette sprai al posto del solito secchiello.
 

PS: Ti ho creato una bomboletta che allego spero ti piaccia

[Top Fuel]

In vero, non so come potresti colorare con le funzioni della Classe Paint escusivamente la parte dell'immagine rappresentante la vernice che esce fuori dal secchio..  

Mi pare strano che con Gambas non si possa colorare un'area circoscritta.  
Lo facevo con il Basic del Commodore 16 che avevo 25 anni fà...
In ogni caso grazie a tutti e 2 per i suggerimenti, la bomboletta è sicuramente disegnata meglio del mio secchiello (non che ci voglia granché a disegnare meglio di me... ) ma Colorize colora il secchiello; a me serviva la vernice...
Ci lavorerò su per una versione migliorata.

[vuott]

Mi pare strano che con Gambas non si possa colorare un'area circoscritta.  

...ma come delimiti, definisci quell'area circoscritta ? Io ho dovuto delimitarla con la funzione .Polygon()

...la bomboletta è sicuramente disegnata meglio del mio secchiello ...ma Colorize colora il secchiello; a me serviva la vernice...
Ci lavorerò su per una versione migliorata.

Poiché l'immagine proposta da Gianluigi prevede, come spruzzo, alcune linee, potresti utilizzare la funzione di Paint che disegna le linee....  

[Gianluigi]

Mi pare strano che con Gambas non si possa colorare un'area circoscritta.  
,,,

Più o meno lo ottieni come ti ho detto io, se vuoi il secchiello, guarda un po questo per ispirarti. 

 

[Gianluigi]

Nuove ispirazioni 

[Gianluigi]

Fermatemi 

Allego boboletta che spruzza stelle colorate (basta sempre passare tmp.Colorize(coloredrag))

 

[vuott]

Allego bomboletta che spruzza stelle colorate (basta sempre passare tmp.Colorize(coloredrag))

Però, come ti ha già fatto notare Top Fuel:

ma Colorize colora il secchiello; a me serviva la vernice...

La funzione .Colorize() va a colorare anche la bottiglietta e non soltanto le... stelline.   

[Gianluigi]

Però, come ti ha già fatto notare Top Fuel:
La funzione .Colorize() va a colorare anche la bottiglietta e non soltanto le... stelline.   

E allora beccatevi gli effetti speciali!!! (Sempre colorize)

[vuott]

...effetti speciali!!! (Sempre colorize)

mmm.... devo dire che questa soluzione è più interessante ! 

[Gianluigi]

mmm.... devo dire che questa soluzione è più interessante ! 

Alla fin fine non bisogna applicare un riempimento se non si vuole che questo (il riempimento) si colori.
Devo trovare qualche escamotage per i colori. Ho paura però che non ce ne siano. 
Se uno deve colorare il secchiello o qualunque altra cosa, e non vuole che il colore cambi, mi sa che è obbligato a seguire le tue istruzioni. 

 

[vuott]

Se uno deve colorare il secchiello o qualunque altra cosa, e non vuole che il colore cambi, mi sa che è obbligato a seguire le tue istruzioni. 

La mia soluzione, abbastanza fastidiosa e complessa con il metodo .Polygon(), consente che il colore cambi. Ciò ovviamente continuando nell'ambito della Classe Paint .

[Gianluigi]

La mia soluzione, abbastanza fastidiosa e complessa con il metodo .Polygon(), consente che il colore cambi. Ciò ovviamente continuando nell'ambito della Classe Paint .

Concordo il sistema da me adottato è molto più semplice e se non si pretende di avere colori al di fuori di quelli che devono cambiare(esempio il secchiello colorato di Top Fuel) è più semplice e permette disegni più “armoniosi”.

Buonanotte

 

[Top Fuel]

Mi piace Secchio4.png, è piccola come voglio io.
Modifiche del programma in vista.
Nel frattempo sto lavorando su un'altra cosina simpatica, stavolta scientifica.

[Gianluigi]

La mia soluzione, abbastanza fastidiosa e complessa ... Ciò ovviamente continuando nell'ambito della Classe Paint .

 

quale altro ambito