Cellules multigne dans un DbGrid.

:salut:

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 ;)

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:

---

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;

---