Discussion :

[ChPr]

Bonjour à toutes et à tous,

Avant que je n'étale encore ma prose sur le bugTracker, je me permets de soumettre à votre sagacité le petit programme ci-joint.

Il charge une image et dès lors on peut changer son format d'image (pfDevice, pf24bit, pf32bit).

Sous Windows et DELPHI 6 (testé seulement avec l'image bmp) tout fonctionne correctement. L'image se réaffiche dans le nouveau format.

Avec Lazarus 0.9.30, que ce soit sous Windows XP ou sous Ubuntu 11.04 cela ne fonctionne pas avec aucun des types d'image fournis : bmp, jpg, gif, tif et png. Le format reste à celui initial et l'image disparaît.

Autre problème : l'image jpg se trouve au format 32 bits sous Windows et en 24 bits sous Ubuntu ??? (tous les autres logiciels que j'ai (Ubuntu ou windows) m'indiquent une image en 24 bits).

Si vous pouvez lz tester et me dire ce que vous trouvez ...

Merci de votre aide.

Pierre

[CapJack]

Effectivement, on obtient un rectangle noir quand on essaie de changer le format du bitmap "à la sauvage", ce qui est logique, puisque l'affectation de PixelFormat réinitialise le contenu du Bitmap.

Il faut redessiner le bitmap après changement de format :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.NbBitCloseUp(Sender: TObject);
var Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.Assign(Image.Picture.BitMap);
  case NbBit.ItemIndex of
   0: Image.Picture.BitMap.PixelFormat:= pf24bit;
   1: Image.Picture.BitMap.PixelFormat:= pf32bit;
   2: Image.Picture.BitMap.PixelFormat:= pfDevice;
  end;
  Image.Picture.Bitmap.Canvas.Draw(0,0,Bmp);
  case Image.Picture.BitMap.PixelFormat of
   pf24bit:  NbBit.ItemIndex:= 0;
   pf32bit:  NbBit.ItemIndex:= 1;
   pfDevice: NbBit.ItemIndex:= 2;
  end;
  Bmp.Free;
end;

De mémoire, c'était pareil sous les très anciennes versions de Delphi, la modification sauvage de PixelFormat est une fonctionnalité qui est venue plus tard, apparemment pas implémentée dans Lazarus.

Je ne pense pas que ce soit un "bug", mais ça peut faire un "wish".

[ChPr]

Merci CapJack pour cette modification. Effectivement, ça fonctionne correctement.

Cordialement.

Pierre

[ChPr]

En fait, ce n'est pas si évident que cela.

Tout content de la solution du re-dessin après le changement de format, j'ai voulu appliquer cela à mon programme de traitement d'image ...ça ne marche pas du tout ???

J'ai recréé un petit programme reproduisant uniquement ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Bmp:= TBitmap.Create;
  Bmp.Assign(Image.Picture.BitMap);
  Image.Picture.BitMap.PixelFormat:= pf24bit;
  Image.Picture.Bitmap.Canvas.Draw(0, 0, Bmp);
  Bmp.Free;

Et bien ça ne fonctionne pas non plus. Sur un format jpg en 32 bits, il refuse systématiquement de passer en 24 bits.

Amusant par ailleurs, car comme cela ne fonctionne pas, on peut ne pas le retracer (Draw()), l'image reste !

J'ai voulu recréer le petit programme que j'avais au départ pour en avoir le coeur net et voici mon constat :

• Dans la méthode qui charge l'image, le changement de format n'agit pas.
• Dans une méthode appelée après que l'image se soit affichée, le changement de format fonctionne !!

Voir le petit programme modifié joint (NOTA, j'ai supprimé le précédent pour pouvoir mettre celui-ci).

Avez-vous une explication à cela, comment faire pour y pallier ?

[CapJack]

Que le bitmap ne se redessine pas, c'est un peu normal, vu que tu as oublié le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Bmp.Assign(Image.Picture.BitMap);

Ceci étant, ça ne résout pas le problème. Si je trouve ne solution simple, je la poste... ce composant TBitmap de Laz m'a l'air passablement bogué !

Edit : bon, je ne suis pas sûr de trouver. Il y a un truc bizarre avec la méthode Assign de Lazarus. Sous Delphi, pas de lézard, ça copie l'image, mais là, le comportement me semble erratique... je ne pige pas tout.

[ChPr]

Que le bitmap ne se redessine pas, c'est un peu normal, vu que tu as oublié le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Bmp.Assign(Image.Picture.BitMap);

...

C'est vrai, je commence un peu à tourner en bourrique.
Dans mes autres tests, je ne l'avais pas oublié et de toutes façons, ça ne change malheureusement rien au problème !

Cordialement.

Pierre