Discussion :

[LandGreen]

Bonjour,

Cette demande est liée à la discussion précédente :
https://www.developpez.net/forums/d2...us-delphi-7-a/

Je tiens à remercier infiniment XeGregory pour sa solution proposée qui fonctionne parfaitement. 🙏

J’aimerais maintenant savoir comment gérer les clics sur chaque icône affichée dans la colonne (trois icônes : plus, moins, supprimer).

Merci d’avance pour votre aide !

[XeGregory]

Bonjour LandGreen

J’aimerais maintenant savoir comment gérer les clics sur chaque icône affichée dans la colonne (trois icônes : plus, moins, supprimer).

De cette façon, c'est tout simplement :

Type TDBGridLandGreen class(TDBGrid)

Code :

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

1
2
3
4
5
6
type
  TDBGridLandGreen = class(TDBGrid)
  end;
 
TForm1 = class(TForm)
// ...

DBGrid1 OnDrawColumnCell

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
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);
  end
  else
    // Pour toutes les autres colonnes, on laisse le dessin par défaut
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

DBGrid1 OnColEnter

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
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
  ColIndex: Integer;
begin
  if TDBGridLandGreen(DBGrid1).Col <= 0 then
    Exit;
 
  ColIndex := TDBGridLandGreen(DBGrid1).Col - 1;
 
  // Vérifiez que l'indice est valide
  if (ColIndex >= 0) and (ColIndex < DBGrid1.Columns.Count) then
  begin
    if DBGrid1.Columns[ColIndex].Title.Caption = 'Actions' then
      DBGrid1.Options := DBGrid1.Options - [dgEditing]
    else
      DBGrid1.Options := DBGrid1.Options + [dgEditing];
  end;
end;

DBGrid1 OnCellClick

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
39
40
41
42
43
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  pt: TPoint;
  GridCoord: TGridCoord;
  CellRect: TRect;
  IconSpacing, IconWidth, IconLeft, IconTop: Integer;
  IconRect: TRect;
begin
  if Column.Title.Caption <> 'Actions' then
    Exit;
 
  // Récupérer la position de la souris dans les coordonnées client du DBGrid
  pt := DBGrid1.ScreenToClient(Mouse.CursorPos);
  GridCoord := DBGrid1.MouseCoord(pt.X, pt.Y);
 
  // Obtenir le rectangle de la cellule en cours
  CellRect := TDBGridLandGreen(DBGrid1).CellRect(GridCoord.X, GridCoord.Y);
 
  // Calcul des coordonnées de l'icône :
  IconSpacing := 4;
  IconWidth := ImageList1.Width;
  IconTop := CellRect.Top + (CellRect.Bottom - CellRect.Top - ImageList1.Height) div 2;
  IconLeft := CellRect.Left + IconSpacing;
 
  // Première icône (par exemple, décrémentation)
  IconRect := Rect(IconLeft, IconTop, IconLeft + IconWidth, IconTop + ImageList1.Height);
  if PtInRect(IconRect, pt) then
  begin
    ShowMessage('Icône décrémentation cliquée');
    Exit;
  end;
 
  // Deuxième icône (par exemple, incrémentation)
  IconLeft := IconLeft + IconWidth + IconSpacing;
  IconRect := Rect(IconLeft, IconTop, IconLeft + IconWidth, IconTop + ImageList1.Height);
  if PtInRect(IconRect, pt) then
  begin
    ShowMessage('Icône incrémentation cliquée');
    Exit;
  end;
 
  // Etc................................
end;

Pense à publier tes questions dans les sous-forums (Composants VCL)

[XeGregory]

Bonjour LandGreen


De cette façon, c'est tout simplement :

Type TDBGridLandGreen class(TDBGrid)

Code :

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

1
2
3
4
5
6
type
  TDBGridLandGreen = class(TDBGrid)
  end;
 
TForm1 = class(TForm)
// ...

DBGrid1 OnDrawColumnCell

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
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);
  end
  else
    // Pour toutes les autres colonnes, on laisse le dessin par défaut
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

DBGrid1 OnColEnter

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
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
  ColIndex: Integer;
begin
  if TDBGridLandGreen(DBGrid1).Col <= 0 then
    Exit;
 
  ColIndex := TDBGridLandGreen(DBGrid1).Col - 1;
 
  // Vérifiez que l'indice est valide
  if (ColIndex >= 0) and (ColIndex < DBGrid1.Columns.Count) then
  begin
    if DBGrid1.Columns[ColIndex].Title.Caption = 'Actions' then
      DBGrid1.Options := DBGrid1.Options - [dgEditing]
    else
      DBGrid1.Options := DBGrid1.Options + [dgEditing];
  end;
end;

DBGrid1 OnCellClick

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
39
40
41
42
43
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  pt: TPoint;
  GridCoord: TGridCoord;
  CellRect: TRect;
  IconSpacing, IconWidth, IconLeft, IconTop: Integer;
  IconRect: TRect;
begin
  if Column.Title.Caption <> 'Actions' then
    Exit;
 
  // Récupérer la position de la souris dans les coordonnées client du DBGrid
  pt := DBGrid1.ScreenToClient(Mouse.CursorPos);
  GridCoord := DBGrid1.MouseCoord(pt.X, pt.Y);
 
  // Obtenir le rectangle de la cellule en cours
  CellRect := TDBGridLandGreen(DBGrid1).CellRect(GridCoord.X, GridCoord.Y);
 
  // Calcul des coordonnées de l'icône :
  IconSpacing := 4;
  IconWidth := ImageList1.Width;
  IconTop := CellRect.Top + (CellRect.Bottom - CellRect.Top - ImageList1.Height) div 2;
  IconLeft := CellRect.Left + IconSpacing;
 
  // Première icône (par exemple, décrémentation)
  IconRect := Rect(IconLeft, IconTop, IconLeft + IconWidth, IconTop + ImageList1.Height);
  if PtInRect(IconRect, pt) then
  begin
    ShowMessage('Icône décrémentation cliquée');
    Exit;
  end;
 
  // Deuxième icône (par exemple, incrémentation)
  IconLeft := IconLeft + IconWidth + IconSpacing;
  IconRect := Rect(IconLeft, IconTop, IconLeft + IconWidth, IconTop + ImageList1.Height);
  if PtInRect(IconRect, pt) then
  begin
    ShowMessage('Icône incrémentation cliquée');
    Exit;
  end;
 
  // Etc................................
end;

Pense à publier tes questions dans les sous-forums (Composants VCL)

?

[LandGreen]

?

XeGregory le génie
merci

[LandGreen]

Bonjour à tous,

Je reviens vers vous car je rencontre un problème avec un comportement inattendu. Lorsque je clique deux fois de suite sur une icône, celle-ci disparaît et un curseur apparaît, comme si un champ de saisie s’activait à la place.

J’ai suivi à la lettre la solution proposée par XeGregory, mais ça ne règle pas le souci.

Est-ce que quelqu’un aurait une idée ou pourrait m’aider à comprendre d’où ça vient ?

Merci d’avance pour votre aide !

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
 
procedure TF_venterapide002.DBGrid1ColEnter(Sender: TObject);
var
  ColIndex: Integer;
begin
  if TDBGridCustom(DBGrid1).Col <= 0 then
    Exit;
 
  ColIndex := TDBGridCustom(DBGrid1).Col - 1;
 
  // Vérifiez que l'indice est valide
  if (ColIndex >= 0) and (ColIndex < DBGrid1.Columns.Count) then
  begin
    if DBGrid1.Columns[ColIndex].Title.Caption = 'Actions' then
      DBGrid1.Options := DBGrid1.Options - [dgEditing]
    else
      DBGrid1.Options := DBGrid1.Options + [dgEditing];
  end;
 
 
end;

[LandGreen]

autres évenement du Dbrgid1 :

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
procedure TF_venterapide002.DBGrid1DblClick(Sender: TObject);
var
  pt: TPoint;
  GridCoord: TGridCoord;
  ColumnIndex: Integer;
begin
  // Récupérer la position de la souris
  pt := DBGrid1.ScreenToClient(Mouse.CursorPos);
  GridCoord := DBGrid1.MouseCoord(pt.X, pt.Y);
  ColumnIndex := GridCoord.X - 1; // Indice colonne
 
  if (ColumnIndex >= 0) and (ColumnIndex < DBGrid1.Columns.Count) then
  begin
    if DBGrid1.Columns[ColumnIndex].Title.Caption = 'Actions' then
    begin
      // Ignorer le double clic dans la colonne Actions (pour ne pas activer l'édition)
      Exit;
    end
    else
    begin
      // Pour les autres colonnes, activer l'édition normalement
      dbgrid1.ReadOnly := false;
      DBGrid1.Options := DBGrid1.Options + [dgEditing];
      DBGrid1.Options := DBGrid1.Options - [dgRowselect];
    end;
  end;
 
end;