Differentes images dans cellules d'une StringGrid

Version imprimable

22/01/2006, 20h37
gazier20

Differentes images dans cellules d'une StringGrid

Bonjour, je voudrais mettre des images dans des cellules d'une stringgrid.
Je voudrais que chaque cellule de la stringgrid est une image differente.
Mes images ont contenues dans une TImageList.

J'ai trouver beaucoup de trucs sur le forum et dans la faq mais c'est surtout pour mettre une image en fond d'une stringGrid. Donc pas mon problème.

Merci j'attends vos réponses avec impatience
22/01/2006, 20h41
gazier20

Si vous me trouvez un composant stringrid où je peux cliquer sur une cellule de la stringgrid et définir son image de fond, je serais aux anges !!

Vous pensez que c'est facile à faire?

Merci

salut ,

Il existe une grille chez www.TmsSoftware.com qui peut recevoir des images.

sinon avec une grille de delphi tu peux faire comme çà :
a savoir que MesBitmap dans ce cas represente un tableau de TbipMap a l'image de ta grille (colonnes/ rangées) ou tu charge tes images au depart de l'application.
Code:

1 2 3 4 5 6 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with StringGrid1.Canvas do Draw(Rect.left,Rect.Top,MesBitmap[Col,Row]); end;
bye

23/01/2006, 20h32
gazier20

J'essaye ça de suite. Merci beaucoup.
Dommage que le composant tmssoftware soit payant, j'aurais bien aimé l'avoir...
23/01/2006, 21h30
gazier20

Tu pourrais m'en ecrire un peu plus. Je ne comprends comment faire le tableau de tbitmap. Et je ne comprend ce que tu veux dire par " à l'image de ma grille"

Pourrais tu m'ecrire un peu plus de code, merci beaucoup

J'attends avec impatience

Bonjour,

Pour tracer l'image N du TimageList dans une cellule Acol,Arow il faut écrire un code du type :
Code:

1 2 3 4 5 procedure TForm1.StringGrid1DrawCell( Sender: TObject; ACol, Arow:Integer; Rect: TRect; State: TGridDrawState); begin ImageList1.Draw(StringGrid1.Canvas,Rect.Left,Rect.Top,N); end;

23/01/2006, 22h45
gazier20

Graffito, je comprends bien ta méthode mais celle-ci me mets la meme image dans toutes les cellules de la stringrid.

J'aimerais connaitre un moyen de mettre une image différentes par cellule.

Exemple, image1 dans cellule[1,2], image2 dans cellule[2,5]...

Merci, j'attends votre réponse avec grande impatience

Salut :D
Utilise le code de Graffito en l'adaptant ;) :

Code:

1
2
3
4
5
6
7
8
9
 
procedure TForm1.StringGrid1DrawCell( Sender: TObject; ACol, Arow:Integer; Rect: TRect; State: TGridDrawState);
begin
  case ACol of
    0:ImageList1.Draw(StringGrid1.Canvas,Rect.Left,Rect.Top,0);
    1:ImageList1.Draw(StringGrid1.Canvas,Rect.Left,Rect.Top,1);
    etc.
  end;
end;

Dans OnDrawCell, tu as la cellule qui se dessine avec ACol et ARow ;)

23/01/2006, 23h10
gazier20

Merci beaucoup, c'est exactement la réponse que je souhaitais !!