1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Dateaaffichee : string ;
begin
with (Sender as TDBGrid).Canvas do
begin
case DataCol of
2 : {num de la colonne a modifier, !!! départ de Zéro}
begin
dateaaffichee := ' '+ copy(Column.Field.AsString,7,2)+'/'+ copy(Column.Field.AsString,5,2)+'/'+copy(Column.Field.AsString,1,4);
{Column.Field.AsString, caractère de départ, nb caractère copier}
TextOut(Rect.Left,Rect.top,dateaaffichee);
{Rect. alignement dans la grille, un peut difficile}
end;
end;
end;
end; |
Partager