Ajustar texto en una celda de un DBGrid

[ecfisa]

Hola.

Estaba pensando que quizá el amigo rubio, deseaba la identación en relación a las tres últimas cifras del campo CODIGO, de ser así podría hacer algo como:

Código Delphi [-]
{ DESCRIPCIÓN OnGetText }
procedure TForm1.DESCRIPCIONGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  Ident: Integer;
  Codigo: string;
begin
  Codigo:= Query.FieldByName('CODIGO').AsString;
  Ident:= (StrToInt(Codigo) - StrToInt(Codigo[1] + StringOfChar('0',Length(Codigo)-1))) div 100;
  Text:= StringOfChar(' ', Ident) +  Query.FieldByName('DESCRIPCION').AsString;
end;

Saludos.