Discussion :

[Lung]

Dans une de mes applications, un utilisateur me demande d'augmenter l'épaisseur des traits de séparation des colonnes.
Sont pénible, ces utilisateurs.

Je n'ai jamais rien vu à ce sujet. Je sais pas si c'est possible.
Quelqu'un a une idée (simple) ?
Ou, je répond que c'est pas possible ?

Merci.

[neilbgr]

Il te faut créer un descendant de TDBGrid et publier la property GridLineWidth.
Au pire, mais c'est très crade, tu fais ceci :

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
 
  TExplosedDBGrid = class(TDBGrid)
  published
    property GridLineWidth;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  TExplosedDBGrid(DBGrid1).GridLineWidth := 10;
end;

[Lung]

Il te faut créer un descendant de TDBGrid et publier la property GridLineWidth.

C'est une idée.
Je teste ...

Pas besoin de faire un descendant, en direct ca fonctionne

Code :

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

1
2
 
  TStringGrid(DBGrid1).GridLineWidth := 5

C'est une bonne idée de passer par une StringGrid ?
Ca me parait encore plus sale, non ?

[TicTacToe]

Sont pénible, ces utilisateurs.

Je l'ai fait en dessinant sur le canvas Cellule. Pour séparer des groupes de colonnes.

[Rayek]

Pas besoin de faire un descendant, en direct ca fonctionne

Code :

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

1
2
 
  TStringGrid(DBGrid1).GridLineWidth := 5

[neilbgr]

Pas besoin de faire un descendant, en direct ca fonctionne

Effectivement.
Mais ca reste "sale".

[denokan]

pourquoi sale ? si la propriété n'est pas privée c'est bien pour qu'on puisse l'utiliser à la demande, non ?

[neilbgr]

pourquoi sale ? si la propriété n'est pas privée c'est bien pour qu'on puisse l'utiliser à la demande, non ?

La propriété est malheureusement en protected pour le TDBGrid... d'où le castage sauvage, donc "sale", ou bien une classe enfant qui publie cette propriété, là c'est "propre".

[Rayek]

Chose que je comprend pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Hiérarchie du TStringGrid
System.TObject 
Classes.TPersistent 
Classes.TComponent 
Controls.TControl 
Controls.TWinControl 
Controls.TCustomControl 
Grids.TCustomGrid 
Grids.TCustomDrawGrid 
Grids.TDrawGrid

et

Code :

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

1
2
3
4
5
6
7
8
9
10
Hiérarchie du TDbGrid
 System.TObject 
Classes.TPersistent 
Classes.TComponent 
Controls.TControl 
Controls.TWinControl 
Controls.TCustomControl 
Grids.TCustomGrid 
DBGrids.TCustomDBGrid

Si on regarde bien ils sont tous les deux des descendants d'un TCustomGrid.
Si on va dans les propriétés du TCustomGrid, on voit bien qu'il propose GridLineWidth

Donc on pourrait écrire (vu que c'est un ancètre direct du DbGrid)

Code :

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

1
2
 
TCustomGrid(DbGrid1).GridLineWidth := 3;

Problème : elle est pas publié non plus

J'ai fait aussi le test avec TCustomDbGrid et pareil, elle n'est pas publiée.
Le seul qui a cette propriété publiée c'est le TDrawGrid, normal ou pas ?