Discussion :

[LandGreen]

Bonjour,

Sous Delphi 7, j’utilise deux DBCtrlGrid liés entre eux :

• DBCtrlGrid2 affiche les catégories (chaque cellule contient un TDBMemo)
• DBCtrlGrid1 affiche les produits en fonction de la catégorie sélectionnée.

Je souhaite que lorsqu’on clique sur une cellule (un TDBMemo) dans DBCtrlGrid2, le texte (ou l’arrière-plan) de cette cellule soit mis en surbrillance, par exemple en changeant sa couleur, pour indiquer visuellement qu’elle est sélectionnée.

Existe-t-il un moyen simple de faire cela ? Peut-on changer dynamiquement la couleur du TDBMemo sélectionné dans le DBCtrlGrid ?

Merci d’avance pour votre aide.

[XeGregory]

Peut-on changer dynamiquement la couleur du TDBMemo sélectionné dans le DBCtrlGrid ?

Je dirais que non. La solution consiste à personnaliser le dessin du panel qui contient le contrôle, en utilisant par exemple l'événement OnPaintPanel du DBCtrlGrid.

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
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
var
  R: TRect;
begin
  // Récupère la zone du panel
  R := DBCtrlGrid.ClientRect;
 
  // Si le panel en cours est celui sélectionné
  if Index = DBCtrlGrid.PanelIndex then
  begin
    // Si vous utilisez un style de bordure relevé, ajustez la zone
    if DBCtrlGrid.PanelBorder = gbRaised then
      InflateRect(R, -2, -2);
    // Assignez la couleur désirée pour la sélection
    DBCtrlGrid.Canvas.Brush.Color := clYellow; // Par exemple, jaune pour la sélection
    DBCtrlGrid.Canvas.FillRect(R);
  end
  else
  begin
    // Pour les autres panels, vous pouvez redessiner avec la couleur par défaut
    DBCtrlGrid.Canvas.Brush.Color := clWindow;
    DBCtrlGrid.Canvas.FillRect(R);
  end;
end;

[LandGreen]

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
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
var
  R: TRect;
begin
  // Récupère la zone du panel
  R := DBCtrlGrid.ClientRect;
 
  // Si le panel en cours est celui sélectionné
  if Index = DBCtrlGrid.PanelIndex then
  begin
    // Si vous utilisez un style de bordure relevé, ajustez la zone
    if DBCtrlGrid.PanelBorder = gbRaised then
      InflateRect(R, -2, -2);
    // Assignez la couleur désirée pour la sélection
    DBCtrlGrid.Canvas.Brush.Color := clYellow; // Par exemple, jaune pour la sélection
    DBCtrlGrid.Canvas.FillRect(R);
  end
  else
  begin
    // Pour les autres panels, vous pouvez redessiner avec la couleur par défaut
    DBCtrlGrid.Canvas.Brush.Color := clWindow;
    DBCtrlGrid.Canvas.FillRect(R);
  end;
end;

Merci beaucoup pour ta réponse rapide, claire et efficace. J’ai passé 2 heures à galérer sur ChatGPT / DeepSeek sans rien trouver de concret, et là en 2 minutes tu m’as débloqué. Chapeau !

[XeGregory]