canvas trasparente

[panfra]

ho un canvas Timage che di suo ha il colore nero di fondo. come posso farlo diventare trasparente o metterci un altro colore? Grazie.

Codice Seleziona Espandi



  imagegen.Picture.Bitmap.MaskHandle:=0;
  Imagegen.Picture.Bitmap.Transparent := True;



[bonmario]

Vado a memoria, dovrebbe bastare questa:

Codice Seleziona Espandi

Imagegen.Bitmap.TransparentMode:=tmFixed;

Ciao, Mario

[panfra]

io ho messo così..

Codice Seleziona Espandi


Imagegen.Picture.Bitmap.TransparentMode:=tmFixed;



ma non mi funziona....rimane nero.

[bonmario]

Ok, la mia memoria non funziona !!!

Sono andato a vedere nell'unico progetto che ho dove la uso, ed il codice è questo:

Codice Seleziona Espandi


          VFLettaIcona:=False;
          if (FileExistsUTF8(PercorsoIcona)) then begin
            WrkImage.Transparent:=True;
            WrkImage.Picture.LoadFromFile(UTF8ToSys(PercorsoIcona));

            //Comunico al chiamante che sono riuscito a leggere l'icona
            VFLettaIcona:=True;
          end;



Anche qui vado a memoria, e spero di non ricordarmi male, ma credo che sia essenziale impostare il "Transparent" PRIMA di caricare l'icona.


Dimenticavo: la dichiarazione di WrkImage è questa:

Codice Seleziona Espandi

WrkImage:TImage;

Ciao, Mario

[DragoRosso]

Uhmmm, non sò se sono cambiate le cose .... ma fino a poco tempo fà per immagini bitmap o jpeg, il trasparente veniva definito con la proprietà "transparent" a true e come colore trasparente il colore del pixel nell'angolo in basso a sinistra dell'immagine.

Provate a verificare......

[panfra]

non e' una immagine che voglio caricare. utilizzo in componente per disegnare e vorrei che lo sfondo possa cambiare colore.
grazie.

[bonmario]

Scusa, ma non ti seguo ... gli vuoi cambiare colore o lo vuoi rendere trasparente?
Di quale componente stiamo parlando?

Se lo vuoi rendere trasparente, potresti guardare qui:
http://www.lazarus.freepascal.org/index.php/topic,8488.0.html

Teoricamente, se invece di passargli l'handle del form gli passi quello del componente, dovrebbe funzionare

Ciao, Mario

[panfra]

ho messo la variabile   transparency, come globale e ho inserito il seguente codice :

Codice Seleziona Espandi



SetTranslucent (imagegen.canvas.Handle, transparency, 0);



ma non mi fa' niente...

[DragoRosso]

Ciao, scarica l'allegato.
Vedrai cosa intendo dire.

L'Image1 e l'Image2 hanno il pixel in basso a sinistra con valore diverso.

Premi il pulsante e vedi la differenza.

Non c'entra load del file o draw della canvas.

Il valore del pixel deve ESSERE IDENTICO al valore del tuo sfondo. In genere con il JPG o immagini derivate da jpg il risultato è pessimo (come nell'esempio).

Per quello che riguarda invece il colore di sfondo e la sua modifica, dei usare le primitive delle canvas con gli oggetti Brush e Pen (attenzione devono essere oggetti non appartenenti alla Canvas, poi con Assign abbinati alla canvas stessa).

Poi ci sono delle tecniche più complesse che comprendono OpenGL, GDI+, 3DFX .... ma questo è un altro mondo.

Spero di averti dato un aiuto.

[panfra]

Il risultato non è granchè..

[DragoRosso]

Guarda che l'esempio voleva solo essere indicativo su come funziona la trasparenza con le TBitmap.
Questo è il funzionamento base e predefinito.

La qualità è pessima perchè i colori dei due pixel non sono dello sfondo ma colori a caso. Comunque non sarebbe possibile fare ciò che vuoi con queste due immagini: lo sfondo non è omogeneo.

Se invece parti da una canvas vuota, puoi fare quello che vuoi con risultati ottimi.

Ciao.

[panfra]

ci ho provato, ma non funzia..
posso almeno cambiare colore allo sfondo, tralasciando la trasparenza?
Grazie..

[nomorelogic]

per cambiare i colori di un bitmap devi accedere alla matrice dei pixel

hai già letto questo link?
https://wiki.freepascal.org/Fast_direct_pixel_access

cerca nei titoli ad esempio l'accesso ai pixel per linea, titolo = Pixel operation optimization


Edit:
il BGRABitmap è una bitmap avanzata (con questo componente è scritto LazPaint)
non l'ho mai usato ma dovrebbe gestire l'opacità della penna
https://wiki.freepascal.org/BGRABitmap_tutorial#More

[DragoRosso]

Ciao,
allora tornando a ciò che è stato detto, ci sono diversi modi per fare il tutto.

Se vuoi rimanere sul semplice, ti ho postato un progetto che fà ciò che vuoi in vari modi (compresa la trasparenza).

Puoi partire da li e poi puoi eventualmente proseguire con meotdi più avanzati, come ad esempio @nomorelogic ti ha indicato.

Ciao

[panfra]

con i colori va tutto ok.
con le trasparenze no e non so' perchè funziona.
grazie.