Ajustar texto en una celda de un DBGrid

[rubio]

Hola a todos, estoy diseñando una actualización de datos por un DBGrid, pero quisiera que en una columna los datos me salieran por niveles, o sea, de esta forma:

Código      Descripción 
10000000  Nivel 1
10000100    Nivel 2
10000101      Nivel 3
10000102      Nive l3
10000200    Nivel 2
20000000  Nivel 1

Lo que quisiera lograr es en la columna Descripción ese nivel de distribución.

Si no se entiende lo que quiero hacer por decirmelo.

Gracias de antemano a todo el que se interese.

Saludos.

[[oscarac]]

mmm la verdad no entendi...
puedes dar un mejor ejemplo porfa

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

[rubio]

Muchas gracias a los tres por su colaboración, lo implemente con las recomendaciones de oscarac y eficsa.

Casimiro estuve investigando sobre VirtualTreeView, pero como tu mismo dice,

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

Lo puse en negrita y subrayado ya que no se como poner una cita, lo descargué e instalé, pero en realidad no le encuentro ni pies ni cabeza, si sabes donde se pueda conseguir documentación, si tienes algún ejemplo que me pudiera encaminar para usarlo o si te decidieras a ayudarme para implementarlo la primera vez te lo agradecería.
Saludos

[Casimiro Notevi]

Empezado por rubio

si sabes donde se pueda conseguir documentación, si tienes algún ejemplo que me pudiera encaminar para usarlo o si te decidieras a ayudarme para implementarlo la primera vez te lo agradecería. Saludos

Trae dos tutoriales pdf, uno que se llama "completo" y otro "simple", lee los dos, pero fíjate básicamente en el simple porque ahí tienes todo lo necesario y fundamental.
Te puedo enviar una sencilla demo, que es lo que tengo.

[rubio]

Empezado por Casimiro Notevi

Trae dos tutoriales pdf, uno que se llama "completo" y otro "simple"....
Te puedo enviar una sencilla demo, que es lo que tengo.

Ya vi como responder con cita.

Los tutoriales no los vi, sabes donde los puedo encontrar?, con respecto a la demo, te lo agradecería, mi correo es rubioiglesia63 @ yahoo . es

Gracias

[Casimiro Notevi]

No pongas un email aquí porque hay cientos de robots recorriendo todas las webs constantemente para capturarlos y enviarles spam. Te lo he modificado para que les cueste más trabajo, así no creo que lo consigan.
Si 'pincho' en tu nombre puedo enviarte mensajes privados y correo, por lo que no hace falta que le des a nadie un email por aquí, en todo caso lo haces por mensaje privado.

Empezado por rubio

Los tutoriales no los vi, sabes donde los puedo encontrar?

Pues en la web de ellos, en el menú de la izquierda, "All downloads", te sale una lista grande de cosas, está por el principio, aunque yo lo descargué absolutamente todo y estuve "empapándome" a fondo durante varios días y haciendo pruebas con lo que iba aprendiendo, hasta que me vi capaz de "andar solo sin ayuda"
Te envio la demo a ese email.

[rubio]

Gracias por todo casimiro, ya estoy descargando lo que me mandaste y los pdf de la web. te mantendré informado de los avances.

Saludos