1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| { Dessin du texte }
if Columns.Count > 0 then begin
aRect.Left := aRect.left + FAlignmentMargin;
aRect.Right := aRect.Right - FAlignmentMargin;
if Columns[aCol-1].Alignment = taLeftJustify then
DrawText(Canvas.Handle, PChar(sTmp), length(sTmp), aRect,
DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS)
else if Columns[aCol -1].Alignment = taRightJustify then
DrawText(Canvas.Handle, PChar(sTmp), length(sTmp), aRect,
DT_SINGLELINE or DT_VCENTER or DT_RIGHT)
else if Columns[aCol -1].Alignment = taCenter then
DrawText(Canvas.Handle, PChar(sTmp), length(sTmp), aRect,
DT_SINGLELINE or DT_VCENTER or DT_CENTER)
else {cas normalement impossible}
DrawText(Canvas.Handle, PChar(sTmp), length(sTmp), aRect,
DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS);
end else
{Pas de Tcolumn utilisé donc alignement à gauche}
Canvas.TextRect(aRect, aRect.Left+3, aRect.Top-2, sTmp); |
Partager