Ajustar texto en una celda de un DBGrid

[[oscarac]]

sera que dependiendo del valor del campo codigo... el campo descripcion tenga un indentado mayor?

[rubio]

Hola oscarac, eso es exactamente lo que deseo, el indentado del campo descripción depende del valor del campo código.

[[oscarac]]

Puedes usar el Evento OnGetText
y funciona mas o menos asi

Código Delphi [-]
 
procedure TfrmCatalogoPlanContable.qryPlanContableDescripcionGetText(
  Sender: TField; var Text: String; DisplayText: Boolean);
begin
if qryPlanContableNV.AsString = '2' Then Text := '2   ' + qryPlanContableDescripcion.AsString;
if qryPlanContableNV.AsString = '3' Then Text := '3   ' + qryPlanContableDescripcion.AsString;
if qryPlanContableNV.AsString = '6' Then Text := '6   ' + qryPlanContableDescripcion.AsString;
end;

donde lo encuentras?
pues en la lista de campos persistentes del query o de la tabla.. ahi esta el evento mencionado
se entiende?

[Casimiro Notevi]

El "modo simple" es añadirle la cantidad de espacios que se estime según la profundidad del nivel, a la descripción. (Como te ha explicado oscarac)
El "otro modo" es buscar un componente que lo haga, por ejemplo un VirtualTreeView, es libre.

Aquí tienes un ejemplo, es muy configurable, muy potente, aunque no es muy fácil de usarlo al principio.

[[oscarac]]

Casimiro.... como me opacas no?

[Casimiro Notevi]

Empezado por oscarac

Casimiro.... como me opacas no?

No era mi intención


De todas formas, aviso, ese componente es complicado de manejar al principio, yo tuve la ayuda del compañero que me lo aconsejó.

[[oscarac]]

Empezado por Casimiro Notevi

No era mi intención


De todas formas, aviso, ese componente es complicado de manejar al principio, yo tuve la ayuda del compañero que me lo aconsejó.

jajaja nada doc... es broma..

[rubio]

Gracias a ambos, probaré y después les digo cómo me fue, yo me estoy iniciando en este mundo del Delphi, me gusta.

Gracias.

[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.