Discussion :

[kanux]

Bonjour,
Je suis en galère depuis plusieurs heures sur un petit problème qui doit avoir une solution simple - mais introuvable via google :o
J'essaye de faire afficher une image dans un drawgrid, sur la case qu'on a cliquer. Je parviens facilement à mettre un texte dans une StringGrid, mais l'image dans le drawgrid je n'y arrive pas !
Tout ce que j'ai essayé me provoque des erreurs !

Donc si quelqu'un pouvait m'indiquer la marche à suivre, ce serait très sympas

Merci d'avance !

[Sub0]

Double-cliquer sur l'évènement OnDrawCell de l'objet...

Code :

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

1
2
3
4
5
6
Procedure TForm1.DrawGrid1DrawCell(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Begin
  If (Acol = DrawGrid1.Col) And (ARow = DrawGrid1.Row) Then
    DrawGrid1.Canvas.Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
End;

Voir la propriété Options de la grille, en particulier GoRangeSelect et goThumbTracking...
Voir aussi la propriété DoubleBuffered de la grille pour accélérer le rendu.

[kanux]

Merci à toi pour ta réponse.

Avec ton code je peux afficher une image, mais dès que je clique autre part, l'image disparait.

Ce que je voudrais, c'est par exemple afficher au démarrage des images, avec une StringGrid je faisais une boucle simple genre :

Code :

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

1
2
3
4
5
6
 
for j := 0 to longueur - 1 do
  begin
    SgCarte.Cells[largeur - 1, j] := 'Mur';
    OccupCase[0, j] := 2;
  end;

Le problème c'est que je peux pas "bêtement" remplacé

Code :

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

1
2
 
SgCarte.Cells[largeur - 1, j] := 'Mur';

par

Code :

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

1
2
 
DgCarte.Canvas.Draw(Rect.Left, Rect.Top, ImMur.Picture.Graphic);

(si on considère que j'ai bien remplacé le StringGrid par la DrawGrid)
Parce que je vois pas à quoi correspond le Rect.

En résumé, je voudrais afficher des images au fur et à mesure, là ou la personne clique, de façon à construire une "map". Donc il faut que les images mises restent. Mais je n'y parviens pas.

Les mises à jours je penses qu'il faut les faire lors d'un OnSelectCell (qui prends en paramètres : Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean

Pour l'affichage de départ ca doit bien être le OnDrawCell, mais comment magouiller ?

Merci d'avance.

[Sub0]

Il faut que tu mémorises dans un tableau, l'index de l'image pour chaque cellule.

http://sub0.developpez.com/delphi/demogridbmp.zip

[kanux]

Je vais regarder la source et je penses que ca va marcher.

Merci à toi