utilisé le contenu d'un Tstringrid pour afficher un damier

Version imprimable

Bonjour, j'utilise une police de caractère pour un jeu de dames et je voudrais le faire évoluer vers un graphisme plus sympa.
La police rempli un Tstringgrid ici BoardGrid.
Est qu'il est possible de faire une routine qui balaie le TStringGrid et affiche les pions en fonction du contenu de celui-ci ?

voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
void __fastcall TMainForm::BoardGridDragDrop(TObject *Sender,
      TObject *Source, int X, int Y)
{
	int icol, irow;
  int ilist;
  int n, jlist;
  char move[LINE_MAX];
  int lmove;
 
	BoardGrid->MouseToCell(X, Y, icol, irow);
  if (InvertBoard)
	  DragTo = DragDropMap[9 - icol][9 - irow];
  else
	  DragTo = DragDropMap[icol][irow];
	if ((DragFrom != 0) and (DragTo != 0))
  {
    sprintf(move, "%d/%d", DragFrom, DragTo);
    lmove = strlen(move);
    n = 0;
		for (ilist = 0; ilist < MovesList->Items->Count; ilist++)
  	{
    	if (strncmp(move, DragDropMovesList->Strings[ilist].c_str(), lmove) == 0)
      {
      	n++;
        jlist = ilist;
      }
    }
    if (n != 1)
    {
      n = 0;
      for (ilist = 0; ilist < MovesList->Items->Count; ilist++)
      {
	    	if (strcmp(move, DragDropMovesList->Strings[ilist].c_str()) == 0)
       	{
          n++;
          jlist = ilist;
        }
      }
    }
    if (n == 1)
    {
    	MovesList->ItemIndex = jlist;
    	MovesListClick(NULL);
  	}
		else
    {
    	my_printf("le coup %s est illégal!\n", move);
    }
  }
}

17/01/2007, 12h03
Alfred12

Tu peux utiliser l'évènement OnDrawCell pour redessiner l'intérieur de tes cellules à ta guide en fonction du texte qu'elles contiennent.
17/01/2007, 15h01
dybmans

Citation:

Envoyé par Alfred12

Tu peux utiliser l'évènement OnDrawCell pour redessiner l'intérieur de tes cellules à ta guide en fonction du texte qu'elles contiennent.

Bonjour,

Je cherche plus à afficher des images déjà crées, est-ce qu'il est possible d'afficher une image per cellule dans un TstringGrid avec la fonction Canvas par exemple ?

Ou est-ce qu'il est possible de reprendre le contenue du TstringGrid pour Alimenter des Timages en dynamique ?
17/01/2007, 15h20
Alfred12
Citation:

Envoyé par dybmans

est-ce qu'il est possible d'afficher une image per cellule dans un TstringGrid avec la fonction Canvas par exemple

Oui, dans l'évènement OnDrawCell, tu peux utiliser TCanvas.Draw.

Exemple en Delphi, je pense que c'est compréhensible
Code:

1 2 3 4 5 lBmp := TBitmap.Create; Canvas.CopyMode := cmSrcAnd; FImageList.GetBitmap(lImg,lBmp); Canvas.Draw(ARect.left,ARect.Top,lBmp); lBmp.Free;
28/01/2007, 22h39
dybmans

Merci pour ton aide
Merci pour ton aide ;)
Citation:
Envoyé par Alfred12

Oui, dans l'évènement OnDrawCell, tu peux utiliser TCanvas.Draw.

Exemple en Delphi, je pense que c'est compréhensible

Code:

1 2 3 4 5 lBmp := TBitmap.Create; Canvas.CopyMode := cmSrcAnd; FImageList.GetBitmap(lImg,lBmp); Canvas.Draw(ARect.left,ARect.Top,lBmp); lBmp.Free;