Discussion :

[kamel2002]

bonjour, comment écrire en multi ligne dans un dbgrid ?
merci

[ShaiLeTroll]

J'ai un code bien trash !

Tu change la Police du DGrid (Font.Size = 8, c'est une ligne, Font.Size = 16, deux lignes) ... et tu affecte une taille de police différente pour les colonnes

tu puis déssine toi même le texte dans la font de la colonne et non de la grille

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
procedure TBiduleForm.LaGrilleDrawColumnCell(Sender: TObject;
   const Rect: TRect; DataCol: Integer; Column: TColumn;
   State: TGridDrawState);
var
   RectEnVar: TRect;
   AGrid: TDBGrid;
   TextToDrawing: string;
begin
   if (Sender is TDBGrid) then
   begin
      AGrid := Sender as TDBGrid;
      if Assigned(Column.Field) then
      begin
         RectEnVar := Rect;
         Inc(RectEnVar.Left);
         AGrid.Canvas.Font.Name := Column.Font.Name;
         AGrid.Canvas.Font.Size := Column.Font.Size;
         AGrid.Canvas.Font.Style := Column.Font.Style;
         AGrid.Canvas.FillRect(Rect);
         TextToDrawing := Column.Field.AsString;
         Windows.DrawText(
            AGrid.Canvas.Handle,
            PChar(TextToDrawing),
            Length(TextToDrawing),
            RectEnVar,
            DT_WORDBREAK
            );
      end;
   end;
end;