Discussion :

[melles]

J'ai un petit problème "d'esthétique" :
Un champ dans mon DbGrid affiche des strings que j'ai au préalable traité... Tout fonctionne très bien sauf que mes sauts de ligne s'affichent par deux petits carrés!!!

Par "saut de ligne" je veux dire :
string + #13#10 + string

Je ne vois pas très bien comment virer ses carés, quelqu'un aurait une idée ?
D'avance merci

[ShaiLeTroll]

Il y a différentes bidouilles, celle que je pratique, c'est de mettre à la grille une font trois fois plus grande, et dans le OnDraw, je redessine à la main les items : tient voir ce sujet : "WordWrap sur une DBGrid"

tiens une version plus récente du code dans une autre application, où je gère la taille de la font via les columns déclarées dans le DBGrid, tu peux aussi faire un AGrid.Canvas.CopyRect ... pour dessiner des images dans les cellules comme dessiner un CheckBox pour un booléen au lieu des pauvres Vrai\Faux ...

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
procedure TFrmCensure.GridTrucDrawColumnCell(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;