Discussion :

[gazier20]

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

[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

[petitcoucou31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gazier20]

J'essaye ça de suite. Merci beaucoup.
Dommage que le composant tmssoftware soit payant, j'aurais bien aimé l'avoir...

[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

[Graffito]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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

[Pedro]

Salut
Utilise le code de Graffito en l'adaptant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gazier20]

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