Un tableau de bits ??? Ou un tableau TBits de boolean ?
Une ou deux dimensions ?
Enfin bon, en gros le principe est le même, tu mets un TImage vide sur ta fiche et pour le remplir :
Image1.Width := Colonnes;
Image1.Height:= Rangees;
for j := 0 to Rangees-1 do
for i:=0 to colonnes - 1 do
begin
Image1.Canvas.pixels[i,j] := Integer(TableauBits[i,j]) * clWhite;
end;
*TableauBits est ici un tableau de boolean à deux dimensions
*clWhite pour du noir et blanc mais :
- une autre couleur -> noir et ta couleur
- avec un "if then" tu peux choisir deux couleurs quelconques.
Je sais, c'est pas rapide ! mais c'est simple !
Ken@vo
____________________
Code, Code, Codec !