Bitmap transparente pour un TImage

Bonjour,

J'en ai franchement marre, alors je viens vers vous pleurer sur votre épaule et partager mes misères.

Ça commence avec le wiki de freepascal et plus précisément cette section, avec un exemple qui a l'air parfait, sauf qu'après un copier/coller dans un tout nouveau projet, voilà ce que je gagne :

Pièce jointe 654962

Le rendu, c'est le machin noir à gauche...
Quelqu'un aurait le courage de tester sous Windows (suggestion de mon petit doigt...) ?

Pour que ça fonctionne (ou pas), il faut simplement poser un TImage (Image1) sur la fiche.

Ah, attention avec le wiki, il faut être sur la page english parce que la française, beaucoup plus pauvre, n'a pas cet exemple, Pièce jointe 654963

PS : la seule modif entre mon code et celui du wiki, c'est le renommage du bmp et du img avec un "1" au bout, et pour en savoir plus sur l'Alphablend, va te rouler...
Pièce jointe 654964

Bonjour,

Et avec un Refresh après l'assignation ça ne va pas mieux ?

Salutations

Yep !

Citation:

---

Envoyé par Guesset

Et avec un Refresh après l'assignation ça ne va pas mieux ?

---

Bien tenté mais la réponse est "non". Enfin, je suppose que c'est ça qu'il fallait faire :

Code:

---

1 2	Image1.Picture.Assign(bmp1); Image1.Refresh; // ajout Guesset

---

Le TImage m'affiche rien ou un fond noir selon l'état de sa propriété "Transparent"...

Et le pire du pire (je devrais pas le dire, mais au point où j'en suis...), c'est que hier à un moment en début d'après-midi, à force de trifouiller j'ai réussi à avoir les images et leurs couleurs prévues par le code !
Mais comme un imbécile (je suis exténué, ceci explique cela), je n'ai fait ni copie d'écran ni copie du code, j'ai fait d'autres modifs pour voir si je ne rêvais pas et je me retrouve dans l'impossibilité de refaire ce que j'ai bien pu trifouiller...
Ah, je me mettrais bien des baffes, je les mérite.

En plus, on n'est vraiment pas aidé !

Quand je mets la souris sur TLazIntfImage dans la section var, ça m'affiche une grande infobulle représentant un code à utiliser par copier/coler et dont je ne vous mets que l'essentiel qui me concerne, savoir, la dernière ligne, qu'on va retrouver dans l'image suivante :
Pièce jointe 654988

le problème, c'est que c'est périmé leur truc ! Résultat de la tentative de compil :
Pièce jointe 654989

Combien d'autres erreurs se cachent un peu partout ?

PS : tu as fait un essai chez toi ? Il fonctionne ?
PPS : j'ai déplacé la déclaration du bmp de var à Private, me semble bien que c'était comme ça, hier.

voilà ce que j'ai sous windows 11 sans rien modifier

Pièce jointe 654992

Citation:

---

Envoyé par sematimo

voilà ce que j'ai sous windows 11 sans rien modifier

Pièce jointe 654992

---

Merci à toi.

Au moins je suis sûr que je ne suis pas fou, juste complètement exténué parce que je n'arrive pas à retrouver ce que j'ai modifié, car ce que tu nous montres, je l'ai vu hier...
:calim2:
:cry:

Citation:

---

Envoyé par Jipété

... ce que tu nous montres, je l'ai vu hier...

---

Merci pour l'image, je me suis permis de la réutiliser là : Wait and see...

Bonjour,

Sous Windows, un alpha à 0 est la transparence totale, peut être est-ce l'inverse (255) sous Linux ?

Essayer de faire un dégradé alpha pourrait être intéressant.

Salutations

Citation:

---

Envoyé par Guesset

Essayer de faire un dégradé alpha pourrait être intéressant.

---

Des dégradés, ça doit bien faire 10 ans que j'en bricole, et comme j'en avais préparé un il y a 2 ou 3 jours,sur la base d'un vieux projet d'EFG (les anciens sauront de qui je parle) que j'ai adpaté à ma sauce, ben, j'en profite :

les 4 fichiers dans le zip : Pièce jointe 655092
l'explication de texte : dans un premier temps, une fois la compil réussie (mais il ne devrait pas y avoir de souci), lancer le prog en faisant bien attention à ne pas passer la souris sur la fiche (c'est juste pour l'esthétique, il n'y a pas de bombe cachée sous le dégradé, :ptdr:), et utiliser uniquement les touches Page suiv. / Page préc. du clavier pour voir comment réagit le dégradé, qui s'appuie sur le trackbar.

Démonstration avec 3 images :
Pièce jointe 655093

Pièce jointe 655094

Pièce jointe 655095

Ensuite on peut jouer avec la souris et la glisser simplement sur le dégradé, et regarder.
Démonstration avec 2 autres images :
Pièce jointe 655096

Pièce jointe 655097
(tiens, je constate ce soir que la souris récupère la couleur sans prendre en compte sa transparence -- je laisse ça comme un exercice pour les lecteurs passionnés, :mrgreen:)

Bonne découverte,
:coucou:

Hello,

Citation:

---

Envoyé par Guesset

Essayer de faire un dégradé alpha pourrait être intéressant.

---

Un truc encore plus intéressant serait que tu puisses fournir un zip avec le .pas et le .lfm du code qui fonctionne chez toi, et j'invite instamment les gens qui suivent cette discussion à voir comment ça avance (mal, de traviole), sur le forum Lazarus : https://forum.lazarus.freepascal.org...c,67368.0.html

Faut que je m'absente ce matin, :coucou:

Bonjour,

J'ai bien un programme qui prend 2 images crées par le programme présentant un dégradé couleur et alpha (dégradé alpha horizontal pour la première et diagonal pour la seconde). Il fait la fusion dans une troisième image selon 4 techniques dont la dernière (asm sse) est juste 35 fois plus rapide que celle en pascal. C'est juste un programme de test pour apprécier (et non mesurer) les performances.

Le test porte sur une fusion pixel par pixel. Une écriture de fusion image permettrait de gagner encore (full sse voire avx si j'ai du courage).

J'étais prêt à joindre les sources quand je me suis rappelé que cela ne fonctionnera que sous Windows car il y a des appels assembleur sans cadre de pile qui passent donc les arguments par registre. Or les règles diffèrent selon l'OS et le mode (32 ou 64 bits).

A défaut, je joins cependant l'exécutable (Windows bien sûr :oops:). La fusion des deux images est répétée pendant 5 secondes pour chacune des 4 implémentations + 5s pour une implémentation bidon permettant d'apprécier les coûts de boucle, de mesure de temps et d'appel de fonction. Il y a donc 25 secondes à attendre : Pièce jointe 655116.

Aperçu (bof mais ce n'est qu'une appli test) :

Pièce jointe 655118

Si le code intéresse cependant, je peux le communiquer.

Salutations

Bonjour,

et merci pour ton retour et ta proposition, et c'est là que je me rends compte que je vieillis ! Je ne sais pas pourquoi j'ai pensé que ça fonctionnait chez toi, d'où mon appel du pied.
En fait c'est chez Sematino que ça roule bien, et comme il a précisé Windows 11, je ne l'ai pas dérangé.

Oui, des dégradés, je sais les faire :
Pièce jointe 655119

Ce que j'aurais voulu, c'est refaire fonctionner ce foutu code de la page web...

Bonjour Jipété,

La seule chose qui change au moins par rapport à tes images est que les dégradés s'exercent sur les 4 composantes (en considérant alpha comme une composante). Ca fonctionne très bien mais je suis sous Windows. Cela n'a donc pas forcément d'intérêt dans le monde Linux. L'usage de l'assembleur booste autant les performance que les incompatibilités :aie:

Je n'ai pas de machine Linux à part deux Raspberry (y ou ies ?) PI, mais coté confort c'est assez dissuasif. Ah, j'ai aussi depuis peu les très intéressant Milk V duo mais j'envisage surtout de les utiliser comme MCU de luxe (de toutes façons ils n'ont pas d'interface écran natif).

Salut

Bonsoir,

Quelqu'un du forum Lazarus a trouvé une solution magnifique, et a même rédigé un rapport de bug, puisque j'ai levé un sacré lièvre, là.

Tout est là-bas, j'ai récupéré le zip et l'ai testé, c'est parfait, opération terminée.