Discussion :

[Atrebate62]

Bonjour,

Y-a-t-il un moyen pour qu'une cellule d'une Dbgrid s'ajuste automatiquement en hauteur afin de rendre le texte récupéré d'un élément d'une table entièrement visible ?

Je précise que la largeur de la colonne doit rester fixe, seule la hauteur de ligne doit pouvoir s'ajuster automatiquement.


Merci de votre aide

[LadyWasky]

Bon, je donne la réponse en six temps :
1) Il faut que tu puisse modifier la hauteur d'une ligne de ton DBGrid, pour ce faire, il faut accéder à la propriété protégée RowHeiths
(voir FAQ : Comment acceder aux Méthodes "Protected" d'une classe ?)

Code :

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

1
2
3
4
5
6
7
type TPublicCustomGrid=class(TCustomGrid);
...
begin
   //change la hauteur de la 11ème ligne 
    //(la première ligne étant la numéro 0)
   TPublicCustomGrid(DBGrid1).RowHeights[10]:=50;
end;

2) ensuite Il faut que tu connaisses la hauteur de ton texte :
c'est dans la FAQ, ici :
Comment connaître la largeur et la hauteur en pixels d'un texte ?

3)enfin il te faut savoir, dans l'évènement OnDrawDataCell, à quel numéro de ligne tu te trouves :

Code :

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

1
2
3
4
5
6
7
type TPublicCustomGrid=class(TCustomGrid);
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var numLigne:integer;
begin
  Numligne:=DBGrid1.DataSource.DataSet.RecNo;  
end;

4) Et puis tu combines le tout :

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
type TPublicCustomGrid=class(TCustomGrid);
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var NumLigne:Integer;
    UnTexte:string;
    Taille:TPoint;
    HauteurActuelle:Integer;
begin
  UnTexte:=Field.DisplayText;
  Taille:=TextSize(UnTexte,DBGrid1.Font);
  NumLigne:=DBGrid1.DataSource.DataSet.RecNo;
  HauteurActuelle:=TPublicCustomGrid(DBGrid1).RowHeights[NumLigne];
  if Taille.Y>HauteurActuelle then
    TPublicCustomGrid(DBGrid1).RowHeights[NumLigne]:=Taille.Y;
end;

Par contre, en récupérant le numéro de ligne avec RecNo, ça ne marche pas si la Table ou la TQuery est filtrée.

5) De là, pour que celà fonctionne il faut pouvoir récupérer le FDataLink du DBGrid, sa propriété ActiveRecord nous donnera le numéro de ligne, à coup sur, sur laquelle on se trouve, donc il va falloir se creer une classe qui nous permette de l'atteindre :

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
type
TPublicDataCustomDBGrid = class(TCustomGrid)
  public
    FIndicators: TImageList;
    FTitleFont: TFont;
    FReadOnly: Boolean;
    FOriginalImeName: TImeName;
    FOriginalImeMode: TImeMode;
    FUserChange: Boolean;
    FIsESCKey: Boolean;
    FLayoutFromDataset: Boolean;
    FOptions: TDBGridOptions;
    FTitleOffset, FIndicatorOffset: Byte;
    FUpdateLock: Byte;
    FLayoutLock: Byte;
    FInColExit: Boolean;
    FDefaultDrawing: Boolean;
    FSelfChangingTitleFont: Boolean;
    FSelecting: Boolean;
    FSelRow: Integer;
    FDataLink: TGridDataLink;
    FOnColEnter: TNotifyEvent;
    FOnColExit: TNotifyEvent;
    FOnDrawDataCell: TDrawDataCellEvent;
    FOnDrawColumnCell: TDrawColumnCellEvent;
    FEditText: string;
    FColumns: TDBGridColumns;
    FVisibleColumns: TList;
    FBookmarks: TBookmarkList;
    FSelectionAnchor: TBookmarkStr;
    FOnEditButtonClick: TNotifyEvent;
    FOnColumnMoved: TMovedEvent;
    FOnCellClick: TDBGridClickEvent;
    FOnTitleClick:TDBGridClickEvent;
    FDragCol: TColumn;
end;

(voir FAQ ici : Comment acceder au variables privées d'une classe ?)

6) Et finallement le code final :

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
44
45
46
47
48
49
50
51
52
53
type
TPublicCustomGrid=class(TCustomGrid);
 
TPublicDataCustomDBGrid = class(TCustomGrid)
  public
    FIndicators: TImageList;
    FTitleFont: TFont;
    FReadOnly: Boolean;
    FOriginalImeName: TImeName;
    FOriginalImeMode: TImeMode;
    FUserChange: Boolean;
    FIsESCKey: Boolean;
    FLayoutFromDataset: Boolean;
    FOptions: TDBGridOptions;
    FTitleOffset, FIndicatorOffset: Byte;
    FUpdateLock: Byte;
    FLayoutLock: Byte;
    FInColExit: Boolean;
    FDefaultDrawing: Boolean;
    FSelfChangingTitleFont: Boolean;
    FSelecting: Boolean;
    FSelRow: Integer;
    FDataLink: TGridDataLink;
    FOnColEnter: TNotifyEvent;
    FOnColExit: TNotifyEvent;
    FOnDrawDataCell: TDrawDataCellEvent;
    FOnDrawColumnCell: TDrawColumnCellEvent;
    FEditText: string;
    FColumns: TDBGridColumns;
    FVisibleColumns: TList;
    FBookmarks: TBookmarkList;
    FSelectionAnchor: TBookmarkStr;
    FOnEditButtonClick: TNotifyEvent;
    FOnColumnMoved: TMovedEvent;
    FOnCellClick: TDBGridClickEvent;
    FOnTitleClick:TDBGridClickEvent;
    FDragCol: TColumn;
end;
 
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var NumLigne:Integer;
    UnTexte:string;
    Taille:TPoint;
    HauteurActuelle:Integer;
begin
  UnTexte:=Field.DisplayText;
  Taille:=TextSize(UnTexte,DBGrid1.Font);
  NumLigne:=TPublicDataCustomDBGrid(DBGrid1).FDataLink.ActiveRecord;
  HauteurActuelle:=TPublicCustomGrid(DBGrid1).RowHeights[NumLigne];
  if Taille.Y>HauteurActuelle then
    TPublicCustomGrid(DBGrid1).RowHeights[NumLigne]:=Taille.Y;
end;

Voilà, voilà.
Tu comprends pourquoi peu de monde t'a répondu ?

[Atrebate62]

Bonsoir,

Je comprend effectivement le peu de réponses obtenues.

Je vais essayer de mettre ça en oeuvre au plus vite.

Je te remercie vivement pour ces explications claires et pédagogiques

A bientôt

[LadyWasky]

Il faut peut-être plutôt écrire :

Code :

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

NumLigne:=TPublicDataCustomDBGrid(DBGrid1).FDataLink.ActiveRecord+1;

pour prendre en compte la ligne d'en-têtes.

C'est tout