Discussion :

[jambonstar]

Bonjour,

Je viens de passer pas mal de temps à chercher (sans succes) comment faire du WordWrap dans les cellules d'un TDBGrid.

J'ai reussi à faire un Wordwrap dans un TStringGrid.
Mais bien sur, le fonctionnement est completement different dans un TDBGrid...
Quelqu'un aurait-il déjà eu à régler ce problème ?

Merci d'avance pour votre aide..

[philnext]

Tu as dans la JVCL la JCVLUltimDBGrid qui a une propriété WordWrap.

[LadyWasky]

Mais bien sur, le fonctionnement est completement different dans un TDBGrid...

Pas tant que ça, où est le problême ?

[jambonstar]

Merci à vous 2 de vous intérresser à mon probleme.

Je parviens à faire du wordwrap dans la DB Grid, grace à ce code (fourni dans un post précédent :

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
       // La Variale doit être Passée en Var dans l'API
       RectEnVar := Rect;
 
       // Dessine avec une taille de Font Raisonnable
       TDBGrid(Sender).Canvas.Font.Size := 8; // une Fausse Font est affecté à la grille qui permet d'afficher de 2 à 5 lignes selon la largeur de la dite grille, eh oui, plus dur de redimensionner une DBGrid
       // Efface la Zone
       TDBGrid(Sender).Canvas.FillRect(Rect);
 
       TextToDrawing := Column.Field.AsString  ;
       hauteur := Windows.DrawText(
                        TDBGrid(Sender).Canvas.Handle,
                        PChar(TextToDrawing),
                        Length(TextToDrawing),
                        RectEnVar,
                        DT_WORDBREAK
                       );

Seulement, c'est bien joli mais cela ne redimensionne pas les lignes qui contiennent un champs sur 2 ou plusieures lignes (champs wordwrapés)

Understand ?

Alors, disons que je me suis amusé (même si c'est un bien grand mot) à caster ma DBGrid comme si c'était un TDrawGrid simple, ce qui donne ça :

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
54
55
56
57
58
59
60
61
62
63
64
procedure TFmCtrlGrid.BST7DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
   RectEnVar, ARect: TRect;
   TextToDrawing: String;
   Hauteur,c,r,Arow,Acol,ColCount : Integer;
 
begin
  if Assigned(Column.Field) then begin
 
    // Obtenir les num de colonne et de ligne en cours
    for c := 0 to TDrawGrid(Sender).ColCount - 1 do
      for r := 0 to TDrawGrid(Sender).RowCount - 1 do
      begin
        ARect := TDrawGrid(Sender).CellRect(c,r);
 
        if (ARect.Top-1 = TDrawGrid(Sender).RowHeights[0])
            and (ARect.Left-1 = TDrawGrid(Sender).ColWidths[0]) then
          fFirstCol := c;
 
        if (ARect.Top > 0) and (ARect.Left > 0) then
          ColCount := c;
 
 
        if (ARect.Top = Rect.Top) and (ARect.Left = Rect.Left) then
        begin
          ARow := r;
          ACol := c;
 
        end;
      end;
 
    if ACol = fFirstCol then fHauteur := TDrawGrid(Sender).DefaultRowHeight;
 
       // La Variale doit être Passée en Var dans l'API
       RectEnVar := Rect;
 
       // Dessine avec une taille de Font Raisonnable
       TDBGrid(Sender).Canvas.Font.Size := 8; // une Fausse Font est affecté à la grille qui permet d'afficher de 2 à 5 lignes selon la largeur de la dite grille, eh oui, plus dur de redimensionner une DBGrid
       // Efface la Zone
       TDBGrid(Sender).Canvas.FillRect(Rect);
 
       TextToDrawing := Column.Field.AsString  ;
       hauteur := Windows.DrawText(
                        TDBGrid(Sender).Canvas.Handle,
                        PChar(TextToDrawing),
                        Length(TextToDrawing),
                        RectEnVar,
                        DT_WORDBREAK
                       );
 
      if Hauteur > fHauteur then fHauteur := Hauteur;
 
 
//        TDrawGrid(Sender).RowHeights[ARow] := fhauteur
      if (ACol = ColCount) {and (TDrawGrid(Sender).RowHeights[ARow] <= fHauteur)} then
        TDrawGrid(Sender).RowHeights[ARow] := fHauteur;
 
 
 
     end;
 
end;

C'est horrible, mais ça à le mérite de faire ce que je souhaite.
Sauf que lorsque je touche à la property RowHeights, je rerentre automatiquement dans le invalidate de la TDrawGrid ( ou DBGrid) et alors la grille va mettre loooontemps à ce dessiner completement.

Enfin essayez vous allez voir.

Merci de votre aide.

[LadyWasky]

Haaaaaaa ouais.....

[ShaiLeTroll]

Tu peux voir mon exemple complet ici "http://www.developpez.net/forums/showthread.php?t=268319#7"

Tu as oublié le plus important

Code :

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

1
2
BST7DBGrid1.Columns[1].Width := BST7DBGrid1.Width - BST7DBGrid1.Columns[0].Width - BST7DBGrid1.Columns[2].Width - (GetSystemMetrics(SM_CXVSCROLL) * 2) - 4;
     BST7DBGrid1.Font.Height := -11 * Max(5 - (BST7DBGrid1.Width div 200), 2);

Ce code ci dessus, permet d'agrandir la font en fonction de la largeur de la grille, ainsi en 800 de width tu as 2 lignes visibles, en 200 tu en as 5 de visibles pour avoir un maximum de textes ...

ou plus simplement

Code :

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

BST7DBGrid1.Font.size := 32

Cela permet d'agrandir les cellules, par contre dans le Canvas tu as une plus petite font ... je l'ai utilisé, cela fonctionne très bien ...

[jambonstar]

Salut, c'est effectivement ton code que j'avais récupéré (je ne me souvenais plus), donc déjà merci.

Par contre je ne comprends pas ou dois-je mettre ce 2° code...
Merci

[jambonstar]

J'ai placé ton code :

Code :

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

1
2
       BST7DBGrid1.Columns[1].Width := BST7DBGrid1.Width - BST7DBGrid1.Columns[0].Width - BST7DBGrid1.Columns[2].Width - (GetSystemMetrics(SM_CXVSCROLL) * 2) - 4;
       BST7DBGrid1.Font.Height := -11 * Max(5 - (BST7DBGrid1.Width div 200), 2);

Dans un resize de ma fiche, et éffectivement, ca permet d'agrandir les lignes.
On peut également le faire avec :

Code :

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

TDrawGrid(Sender).DefaultRowHeight := XXX; // où Sender et un DBGrid.

Mais le problème c'est que ca agrandi toutes les lignes... et pas seulement les lignes qui en ont besoin.