Dessiner sur un png

Question

Corole3 :approve) 

Bonsoir,  j'ai un png qui fait 1024*768 .J'essai de dessiner dessus, mais je n'y arrive pas au dela du pixel 120 je crois en hauteur et en largeur . voivi mon code :
procedure TForm1.Button1Click(Sender: TObject);
var
 MonPng : TPNGObject;
begin
  MonPng := TPNGObject.Create;
  MonPng.LoadFromFile('C:\MyDir\pngwrite\basepng1.PNG');
   MonPng.Pixels[10,10] := clblue;
    MonPng.Pixels[14,11] := rgb(220,150,247); //ok
   MonPng.Pixels[15,11] := rgb(220,150,247);//ok
  MonPng.Pixels[30,11] := rgb(220,150,247); //ok
  MonPng.Pixels[700,11] := rgb(220,150,247); // gros probleme , pourquoi ?
 MonPng.SaveToFile('c:\MyDir\pngwrite\LePng.png');

MonPng.Free;

merci

corole3 · Answer

Corole3 :approve) 

re 

si j'essaie avec la librairie gifimage au lieu de png , ça ne marche pas

var
 LeGif : tgifimage;
 begin
x := 10;
LeGif := TGIFImage.Create;
legif.LoadFromFile('C:\dessinsuregif\legif.gif');
legif.Bitmap.Canvas.Pixels[10,0] := clblue;//aucun pixel n'est dessiné
//legif.Bitmap.Canvas.LineTo(10,80); // ça ne marche pas dutout
legif.SaveToFile('C:\Dessinsuregif	est1.gif');
legif.Free;
end;

ou est le probleme ?

Dessiner sur un png

1 réponse

Votre réponse

Discussions similaires