[Linux 32bits] [Graphisme] Souci de transparence avec TImageList (un classique)

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

Le TImageList me fait péter les plombs (et perdre un temps cooooooooooonsidérable), qu'on en juge :

j'essaye d'ajouter dynamiquement des gif's redimensionnés¹ (ça se passe bien, je vérifie en enregistrant le résultat du resizing en tant que fichier .png) mais la couleur transparente, c'est la cata...

Posons le décor :
Pièce jointe 379977
de haut en bas

l'image .gif d'origine et à sa droite le résultat du resizing (je n'ai pas changé l'extension pour gagner du temps, juste rajouté '_test') vus dans l'explorateur de fichiers ;
dessous, l'ouverture du fichier resizé, le png donc, dans TheGimp, qui montre bien que le fond est transparent ;
et tout en bas l'image issue du TImageList et dessinée dans une DrawGrid (sans bordures).

J'aimerais bien faire disparaître ce "presque" fuchsia (presque parce que clFuchsia c'est 255 0 255 et ici c'est 255 64 255 [dont je ne sais pas d'où il sort, soit dit en passant...]) et j'ai donc essayé, une ligne à la fois (le dstbmp c'est un TPicture qui reçoit le retour du resizing) :
Code:

1 2 3 4 imgList.Add(dstbmp.PNG, nil); // pour faire confiance à l'interface du TImageList en mode création qui propose clFuchsia, résultat copie d'écran ci-dessus imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(255,64,255)); // je force le "presque" fuchsia, pas mieux imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(224,0,0)); // je tente du rouge relevé au colorpicker pour tester sur la boule de droite, négatif imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(0,0,0)); // et là, en testant du noir c'est bon ! Image ci-dessous.
Pièce jointe 379981

La question est donc simple : comment faire fonctionner les lignes qui ne fonctionnent pas ?
D'accord, il y a un gros changement entre la 1^re ligne et les 3 autres, mais si on ne considère que les 3 dernières justement, comment faire fonctionner les 2 premières qui sont construites exactement comme la 3^e, qui fonctionne ?
J'en mange mon chapeau...

Merci et bon dimanche,

---
¹ : le code du resizing (3^e post en partant d'en-bas), pour ceux qui seraient intéressés. Méfi, c'est du teuton : http://www.lazarusforum.de/viewtopic.php?p=64596#p64596

13/05/2018, 14h47
BeanzMaster

Citation:

Envoyé par Jipété

Bonjour,

Le TImageList me fait péter les plombs (et perdre un temps cooooooooooonsidérable), qu'on en juge :

Tu t'es remis au graphisme avec Lazarus ? :ptdr:

Citation:

Envoyé par Jipété

j'essaye d'ajouter dynamiquement des gif's redimensionnés¹ (ça se passe bien, je vérifie en enregistrant le résultat du resizing en tant que fichier .png) mais la couleur transparente, c'est la cata...
...
¹ : le code du resizing (3^e post en partant d'en-bas), pour ceux qui seraient intéressés. Méfi, c'est du teuton : http://www.lazarusforum.de/viewtopic.php?p=64596#p64596

Ce n'est pas une bonne idée de faire le redimensionnement avec cette routine bon elle utilise TFPImageCanvas tu peux donc jouer avec les modes d'interpolations mais le soucis c'est justement la prise en charge de l'apha. Dans mes souvenir afin de préservé la valeur alpha des pixels, il faut "Premultiplier celle-ci avant et peut-être refaire le truc dans l'autre sens après, je sais plus.

Cela ne m'étonnerai pas que la fonction de "Resize" du teuton ne fonctionne qu'en 24 bits. Tu avais fais un sujet justement sur les méthodes de redimensionnement quelque part sur ce forum. Tu devrais y trouver une réponse à mon avis
Sinon essayes de passer par un stretch sans "Interpolation" ou utilises directement StetchDraw

Citation:

Envoyé par Jipété

J'aimerais bien faire disparaître ce "presque" fuchsia (presque parce que clFuchsia c'est 255 0 255 et ici c'est 255 64 255 [dont je ne sais pas d'où il sort, soit dit en passant...]) ......

La question est donc simple : comment faire fonctionner les lignes qui ne fonctionnent pas ?

Réponse totalement stupide :oops: mais fais le directement avec GIMP et choisi la couleur transparente directement dedans. Mais je pense qu'il y a une raison que tu veuilles redimensionner dynamiquement.

Citation:

Envoyé par Jipété

J'en mange mon chapeau...

Merci et bon dimanche,

Tu n'as deja plus de cheveux toi aussi ? :mouarf:

Bon dimanche

1 pièce(s) jointe(s)

Citation:

Envoyé par BeanzMaster

Tu t'es remis au graphisme avec Lazarus ? :ptdr:

Ouais, j'ai grave du temps à perdre !
Là il s'agit juste d'adapter des .gif pour en insérer une image dans une TImageList aux fins d'affichage de miniatures, rien de bien compliqué, mais...

Citation:

Envoyé par BeanzMaster

Tu n'as deja plus de cheveux toi aussi ? :mouarf:

Oh que non ! :mrgreen:

Quant au reste, ben, tu ne m'as lu qu'à moitié, donc tu es complètement à côté de la plaque : le resize fonctionne impeccablement, les fichiers .png générés sont parfaits, c'est leur ajout dans le TImageList qui foire, à cause d'un pb de couleur transparente (ou autre chose).

Je reprends juste ces 3 lignes :
Code:

1 2 3 imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(255,64,255)); // je force le "presque" fuchsia, pas bon imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(224,0,0)); // je tente du rouge relevé au colorpicker pour tester sur la boule de droite, négatif imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(0,0,0)); // et là, en testant avec du noir c'est bon ! Image ci-dessous.
Pièce jointe 380095

Si j'active la 2^e ligne je m'attends à ce que la boule en bas à droite devienne toute blanche, ce qui n'est pas le cas.
Et si j'active la 1^re c'est le fond qui devrait être tout blanc, mais non.

Je rappelle juste pour la compréhension, que dstbmp est un TPicture, mais quelque part on s'en moque : si la 3^e ligne fonctionne, les 2 autres devraient également fonctionner.

D'où ce post, :cry:

13/05/2018, 23h47
Jipété

Bon, je respire : sous XP sp2 comme sous Debian 9.1, avec Laz 1.8.2 c'est bon, ouf !, avec la ligne d'origine :

Code:

imgList.Add(dstbmp.PNG, nil);

Faudrait quand même que je me décide à migrer les outils de la machine de prod', je sais je sais, mais j'ai la flemme et j'ai un peu peur, ben oui...

Désolé pour le dérangement, :zoubi:

Citation:

Envoyé par Jipété

Quant au reste, ben, tu ne m'as lu qu'à moitié, donc tu es complètement à côté de la plaque : le resize fonctionne impeccablement, les fichiers .png générés sont parfaits, c'est leur ajout dans le TImageList qui foire, à cause d'un pb de couleur transparente (ou autre chose).

Je reprends juste ces 3 lignes :

Code:

1
2
3
imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(255,64,255)); // je force le "presque" fuchsia, pas bon 
imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(224,0,0)); // je tente du rouge relevé au colorpicker pour tester sur la boule de droite, négatif
imgList.AddMasked(dstbmp.Bitmap, RGBtocolor(0,0,0)); // et là, en testant avec du noir c'est bon ! Image ci-dessous.

Salut, oui en effet un peu fatigué hier, j'ai un peu trop bu la veille ;)

Sinon j'ai testé comme ça. Et ça fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
// Chargement de l'image et ajout dans l'image list
Procedure TMainForm.DoOnFileFound(FileIterator : TFileIterator);
var
  resizeBmp : TBitmap;
  picture : TPicture;
  fn:String;
Begin
  Try
    fn := FileIterator.Path+FileIterator.FileName;
    if FileExistsUTF8(fn) then
    begin
      picture := TPicture.Create;
      picture.LoadFromFile(fn);
      resizeBmp := TBitmap.Create;
      resizeBmp.Width := 64;
      resizeBmp.Height := 64;
      resizeBmp.Canvas.StretchDraw(Rect(0,0,63,63),picture.Bitmap);
      imgList.AddMasked(resizeBmp,clDefault); // Ici le clDefault est important pour la bonne prise en charge de la transparence
    End;
  Finally
    FreeAndNil(picture);
    FreeAndNil(resizeBmp);
  End;
End;                
 
// Affichage
Procedure TMainForm.StringGrid1DrawCell(Sender : TObject; aCol, aRow : Integer; aRect : TRect; aState : TGridDrawState);
Var
  imgIdx : Integer;
  DstRect : TRect;
  i,j : Integer;
Begin
  if imgList.Count>0 then
  begin
    imgIdx := (aRow* TStringGrid(Sender).ColCount)+aCol;
    if imgIdx < imgList.Count then
    begin
      DstRect := TStringGrid(Sender).CellRect(aCol,aRow);
      imgList.Draw(TStringGrid(Sender).Canvas,DstRect.Left+2,DstRect.Top+2,imgIdx,dsTransparent,itImage,true);
    End;
  End;
end;

A+

14/05/2018, 08h33
Jipété

2 pièce(s) jointe(s)

Citation:

Envoyé par BeanzMaster

Sinon j'ai testé comme ça. Et ça fonctionne

Code:

imgList.AddMasked(resizeBmp,clDefault); // Ici le clDefault est important pour la bonne prise en charge de la transparence

T'es sûr ?
Dans XP sp2 - Laz 1.8.2 j'affiche
Pièce jointe 380224 avec imgList.AddMasked(dstbmp.Bitmap,clDefault);,
et
Pièce jointe 380228 avec imgList.Add(dstbmp.Bitmap, nil);...

La seule différence que je vois entre ton code et le mien, c'est que tu utilises un TBitmap quand moi j'utilise le .Bitmap d'un TPicture.
En regardant vit' fait le code du TPicture, je lis function GetBitmap: TBitmap; qui me fait déduire que dans les deux cas il est question de TBitmap.
Y aurait-il des différences fondamentales cachées ailleurs ?

Ça demanderait des tests plus poussés pour comparer en profondeur et franchement, ça me gonfle.
Je propose qu'on ne passe pas la semaine là-dessus, :mouarf:.

Citation:

Envoyé par Jipété

Ça demanderait des tests plus poussés pour comparer en profondeur et franchement, ça me gonfle.
Je propose qu'on ne passe pas la semaine là-dessus, :mouarf:.

C'est clair, d'accord avec toi

Juste pour info, par rapport à mon bout code j'ai essayé de forcé :
Code:

1 2 3 4 5 6 7 8 9 10 resizeBmp := TBitmap.Create; resizeBmp.PixelFormat := pf32bit; resizeBmp.Width := 64; resizeBmp.Height := 64; resizeBmp.Transparent := true; resizeBMP.TransparentMode := tmAuto; .... imgList.AddMasked(resizeBmp,clNone); // ou imgList.Add(ResizeBmp,nil);
Résultat ça passe pour les pour les GIF, mais plus pour les PNG :aie: comme d'hab quoi. Rien de linéaire dès qu'il faut gérer la transparence ou plusieurs formats différents, faut adapter chaque cas :sm:

Sur ce bonne fin de journée