Création d'un Bitmap

Bonjour

Voila j'utilise Delphi 7 et voudrais savoir comment à partir d'un tableau de données contenant les coordonnées X et Y du pixel et une autre valeur je peux construite une image bitmap ou autre (aucun à-priori là-dessus) la troisième valeur correspondrait alors à un niveau de gris.

Merci d'avance

Citation:

comment à partir d'un tableau de données contenant les coordonnées X et Y du pixel et une autre valeur je peux construite une image bitmap ?

Exemple pour des X,Y tous positifs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function CreeBmp(TableauXYC : array of integer) : tBitMap;
var          x,y,c,xMax,Ymax : integer; bmp : tBitMap; 
begin       // ici faut insérer le code qui donne Xmax et Ymax à partir du TableauXYC 
              bmp := tBitMap.create;
              bmp.width:=xMax+20;
              bmp.height:=abs(Ymax)+20;
              bmp.pixelformat := pf24bit; // : valable pour beaucoup de couleurs
              with bmp.canvas do
              begin Pen.mode:=pmcopy;
                      Pen.Width:=1;
                      Brush.Color:=clWhite;
                      rr:=rect(0,0,bmp.width,bmp.height);
                      FillRect(rr); // à ce stade le bmp est tout blanc
                      pen.color:=clBlack; // : pour tracer éventuellement les axes des X,Y en noir
                      // ici le début de la boucle de lecture des x et des y et de la valeur du gris à partir du TableauXYC 
                      x:=...
                      y:=...
                      c:=... // avec c <=255 pour le "gris"
                      Pixels[x,y]:=RGB(c,c,c);
                      // ici la fin de la boucle
              end;
              Result:=bmp;
end;

...... et pour afficher le bmp :

Code:

1
2
3
4
5
6
7
8
9
procedure TForm1.button1Click(sender...);
var           bmp : tBitMap; 
begin        bmp:=CreeBmp(monTableauXYC); // on supoose que le tableau à déjà été crée et que la fiche comporte un TImage cible
               // choisir entre :
               image1.stretch:=true; 
               // et :
               image1.Autosize:=true;   
               image1.Picture.Graphic:=bmp; // pour voir le bmp
end;

Génial merci!!:merci:

Si ton problème est résolu alors clic sur http://www.developpez.net/forums/ima...ons/resolu.gif

Merci :D

:resolu: !!
j'en ai pas trouvé d'autre.