Discussion :

[LandGreen]

Sous Delphi 7, comment peut-on ajouter dans une colonne dans un DBGRID trois icônes :

(–) pour décrémenter une quantité,

(+) pour l’incrémenter,

et une icône "supprimer" pour supprimer la ligne correspondante ?

L’objectif est de permettre, via ces icônes, la modification directe de la quantité et la suppression de la ligne.

Merci d’avance !

[ShaiLeTroll]

Tu les dessines et gère le clic manuellement, j'ai plein de fois ce code sur le forum TDBGridSLTAssistant

On a un sujet similaire récemment

[Invité]

Regarder cet exemple pour afficher un bitmap dans un DBGrid, remplacer le bitmap par une imageliste contenant les glyphes des boutons que tu veux créer

https://flylib.com/books/en/2.37.1/w...ml#fastmenu_10

[XeGregory]

Cela devrait ressembler à quelque chose comme ça pour ajouter des icônes à ta colonne

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
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  IconLeft: Integer;
  IconTop: Integer;
  IconSpacing: Integer;
  IconWidth: Integer;
begin
  if Column.Title.Caption = 'Actions' then
  begin
    IconSpacing := 4;
    IconWidth := ImageList1.Width;
    IconTop := Rect.Top + (Rect.Bottom - Rect.Top - ImageList1.Height) div 2;
    IconLeft := Rect.Left + IconSpacing;
 
    // Dessiner l'icône de décrémentation (index 0 de l'image list)
    ImageList1.Draw(DBGrid1.Canvas, IconLeft, IconTop, 0);
    Inc(IconLeft, IconWidth + IconSpacing);
 
    // Dessiner l'icône d'incrémentation (index 1 de l'image list)
    ImageList1.Draw(DBGrid1.Canvas, IconLeft, IconTop, 1);
 
    // Inc(IconLeft, IconWidth + IconSpacing);
    // Etc ...................................
  end
  else
    // Pour toutes les autres colonnes, on laisse le dessin par défaut
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[LandGreen]

Cela devrait ressembler à quelque chose comme ça pour ajouter des icônes à ta colonne

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
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  IconLeft: Integer;
  IconTop: Integer;
  IconSpacing: Integer;
  IconWidth: Integer;
begin
  if Column.Title.Caption = 'Actions' then
  begin
    IconSpacing := 4;
    IconWidth := ImageList1.Width;
    IconTop := Rect.Top + (Rect.Bottom - Rect.Top - ImageList1.Height) div 2;
    IconLeft := Rect.Left + IconSpacing;
 
    // Dessiner l'icône de décrémentation (index 0 de l'image list)
    ImageList1.Draw(DBGrid1.Canvas, IconLeft, IconTop, 0);
    Inc(IconLeft, IconWidth + IconSpacing);
 
    // Dessiner l'icône d'incrémentation (index 1 de l'image list)
    ImageList1.Draw(DBGrid1.Canvas, IconLeft, IconTop, 1);
 
    // Inc(IconLeft, IconWidth + IconSpacing);
    // Etc ...................................
  end
  else
    // Pour toutes les autres colonnes, on laisse le dessin par défaut
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

j'ai ajouté une TimageList et j'ai mi le code tel qu'il est mais je ne vois rien dans mon DBGrid !

[XeGregory]

DBGrid1.DefaultDrawing := False