Mask noir dans TImageRésolu

Question

Bonjour,

voil&#224; mon code :



procedure TForm1.Button1Click(Sender: TObject);

var

  ImgJPG : TJPEGImage;

begin

  pack:=TResourceStream.Create(hinstance,edit1.text,'JPEG');

  ImgJPG := TJPEGImage.Create;

  ImgJPG.LoadFromStream(pack);

  Image1.Picture.Bitmap.Width:=ImgJPG.Width;

  Image1.Picture.Bitmap.Height:=ImgJPG.Height;

  Image1.Canvas.Draw(0,0,ImgJPG);

  ImgJPG.Free;

end;



Mon probl&#232;me est que l'image charg&#233;e est sur fond noir.

Quand la propri&#233;t&#233; Transparent du TImage est False , le fond est tout noir (logique)

Mais quand la propri&#233;t&#233; Transparent du TImage est True , une partie du fond noir disparait. (pas tr&#232;s logique)



Ma question est comment faire pour enlever tout le noir ?



Merci d'avance pout toutes vos r&#233;ponses et suggestion.



Alexis

alexis2015 · Accepted Answer

J'ai trouv&#233; !!!

 j'ai simplement chang&#233; de format d'image 

 

et ca donne ca alors :



uses pngimage;



procedure TForm1.Button1Click(Sender: TObject);
 var
   imgpng : TPNGObject;
 begin
   pack:=TResourceStream.Create(hinstance,edit1.text,'PNG');
  imgpng:=TPNGObject.Create;

  imgpng.LoadFromStream(pack);

  image1.Picture.

  image1.Canvas.Draw(0,0,imgpng);

  imgpng.Free;

  pack.free;

 end;

ni69 · Answer

En r&#233;ponse &#224; ta premi&#232;re question : si tout le fond noir ne dispara&#238;t
pas, c'est qu'il y a diff&#233;rents types de noirs dans ton image, ce qui
est typique des images JPEG... 

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Mask noir dans TImage

2 réponses

Votre réponse

Discussions similaires