Bonjour,
Je cherche à personnaliser un StringGrid, de façon simple.
Je voudrais que la colonne 3 soit colorée en rouge clair... tout simplement.
J'ai trouver dans la F.A.Q quelque chose, j'ai essayé de l'adapter mais sans succès...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
void __fastcall TForm_Tab_Clients::StringGridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  pGrille = (TStringGrid* )Sender;
  if (!pListeIndex == NULL)
  {
    // Si l'index de la ligne dessinée correspond à une ligne sélectionnée, on
    // retrouve la valeur de son index dans la TStringList
    if (pListeIndex->IndexOf(ARow)!= - 1)
    {
      //elle est déssinée avec une couleur de fond et une fonte spécifique
      pGrille->Canvas->Brush->Color = clHighlight;
      pGrille->Canvas->Font->Color = clWhite;
      pGrille->Canvas->FillRect(Rect);
      pGrille->Canvas->TextRect(Rect, Rect.Left+2, Rect.Top+2, pGrille->Cells[ACol][ARow]);
    }
  }
  else
  {
    pGrille->Canvas->Brush->Color = clWindow;
    pGrille->Canvas->Font->Color = clBlack;
  }
 
  TRect R1;
  TRect R2;
  AnsiString t;
 
  StringGrid->Canvas->Font->Color=clBlack;
  StringGrid->Canvas->Font->Size=8;
 
  if (ACol==3)
    {
        StringGrid->Canvas->Font->Color = clRed;
        StringGrid->Canvas->Font->Size=8;
        StringGrid->Canvas->TextRect(Rect, Rect.Left , Rect.Top , StringGrid->Cells[ACol][ARow]);
    }
 
}
Est ce que quelqu'un pourrai m'aider?
Merci par avance...