Hola que tal de nuevo aqui molestando despues de un buen tiempo, iba todo bien con mi proyecto pero el problema que ahora me surgio es que necesito que en un TRichEdit despliego Datos como un en un DBgrid, pero lo necesito hacer en un TRichtEdit ya que hay un comopo tipo Text que necesito se vea completo y por obvias razones en el DBGrid no me permitiria ver todo en una celda, entonces lo que hago es desplegar los mensajes ahi, tipo
//Los puntos .... no van solo es para dar una idea a lo que quiero decir
Nombre: ivan ...................Status: Activo..........Fecha: 30/05/2011
y esta es la idea que tengo hacer un tipo Tabs para que se separen a un distancia establecida, pero por ejemplo si el nombre del usuario que en im primer ejemplo es ivan si por ejemplo ahora es mas grande
Nombre: ivan ...................Status: Activo..........Fecha: 30/05/201
Nombre: Rodrigo ...................Status: Activo..........Fecha: 30/05/2011
No me gustaria que se recorrieran, entonces lo que yo espero es una funcion que me permita eliminar esos ..... (que vendrian siendo espacios) pero que no recorriera la fila, que llegara a ser algo asi como
Nombre: ivan ...................Status: Activo..........Fecha: 30/05/2011
Nombre: Rodrigo................Status: Activo..........Fecha: 30/05/2011
para que quedara todo en su lugar, no se si alguien me podria explicar como podria hacerle o si es que ya tienen una funcino o existe se las agredeceria en verdad muchisimo por que estoy apunto de terminar el proyecto y lo entrego en juniio :S:S es mi residencia (proyecto final de universidad) :S asi que en verdad me gustaria si alguien me pudiera ayudar como hacerla, repito es en un TRichEdit
despliego columnas solo esas 3
Nombre: ivan ...................Status: Activo..........Fecha: 30/05/2011
Titulo: Me urge la funcion
Mensaje: Espero que alguien me pueda ayudar para que tenga un espacio constante sin que se pueda recorrer los demas datos. Muchas Gracias por Anticipado, y dejo el codigo que llevo en donde separo y imprimo los datos traidos desde la BD.
Código Delphi
[-]while not ADOQueryTicketDetalle.Eof do
begin
lblTicket := Format('Ticket: %d', [ADOQueryTicketDetalle.FieldByName('TicketID').AsInteger]);
lblUsuario := Format('Usuario: %s', [ADOQueryTicketDetalle.FieldByName('Nombre').AsString]);
lblFecha := Format('Fecha de Respuesta: %s', [ADOQueryTicketDetalle.FieldByName('Fecha').AsString]);
RichEditRespuestas.Paragraph.Alignment:= taLeftJustify;
RichEditRespuestas.SelAttributes.Color:= clBlue;
RichEditRespuestas.Lines.Add(#9+#9+lblTicket+#9+lblUsuario+#9+lblFecha);
lblTitulo := Format ('Titulo: %s', [ADOQueryTicketDetalle.FieldByName('Titulo').AsString]);
RichEditRespuestas.SelAttributes.Color:= clBlue;
RichEditRespuestas.Paragraph.Alignment:= taCenter;
RichEditRespuestas.Lines.Add(lblTitulo);
RichEditRespuestas.SelAttributes.Color:= clBlue;
RichEditRespuestas.Paragraph.Alignment:= taCenter;
RichEditRespuestas.Lines.Add('Mensaje');
RichEditRespuestas.Lines.Add(ADOQueryTicketDetalle.FieldValues['Mensaje']);
RichEditRespuestas.Lines.Add('==============================================');
ADOQueryTicketDetalle.Next;
end;
Bueno este el metodo con el que me traigo los datos para cargarlos al RichEdit quednado algo asi como
Ticket: 0 Usuario: Luis Humberto Fecha de Respuesta: 18/05/2011 05:20:39 p.m.
Titulo: probando un nuevo ticket a ver si funciona
Mensaje
probando la actualizacion de la ultima respuesta, el usuario y que el ticket detalle tambien cargue el nuevo campo
==============================================