alineacion de un memo
 

hola amigos del foro mi problema es el siguiente:
estoy utilizando un memo en el cual tengo q visualizar informes, las lineas las cargo por medio de varios edit de la siguiente forma:
memo2.Lines.Clear;
memo2.Lines[0]:=fecha.Text;
memo2.Lines.add('');
memo2.Lines.add('');
memo2.Lines.add(titulo.Text);
memo2.Lines.add('');
memo2.Lines.add(detalle.text);
Mi problema es el siguiente como hago para q el titulo se alinee al centro en el memo, que propiedad del memo utlizo para manipular la alineacion por cada linea q incluya
Otra pregunta como hago para q una determinada linea del memo este en negrilla, como manejar el estilo por cada linea
Esta bien utlizar el tmemo? o puedo utilizar otro componente?
Indicarles q busque en el foro y solo encontre la alineacion solo del componente pero no asi de cada linea q tenga
De antemano muchas gracias por la ayuda q me brinden

El Memo es demasiado simple para lo que quieres. Prueba con un RichEdit.

// Saludos

gracias por la respuesta
 

muchas gracias por la respuesta pero trabajando con richedit como hago para que una determinada linea tenga alineacion al centro o derecha y ademas este en negrilla
gracias por la ayuda

Mira sobre SelAttributes actua sobre el texto seleccionado, en caso de la alineación, actúa sobre la linea completa.

Saludos

gracias nuevamente
 

muchisimas gracias lepe pero te agradeceria si me pudieras pasar un ejemplo espero no molestar gracias por la ayuda q me brindes

Pues si tengo un ejemplito hecho... ahí va:

tb son botones de un Toolbar que tienen la propiedad Grouped a True para cambiar la negrita, subrayado, alineado, etc.

Código Delphi [-]
procedure TFrmReport.tbnegritaClick(Sender: TObject);
begin
if (fsbold in rich.SelAttributes.Style) then
  rich.SelAttributes.Style:=  rich.SelAttributes.Style - [fsbold]
else
  rich.SelAttributes.Style:=  rich.SelAttributes.Style + [fsbold];

tbnegrita.Down:=(fsbold in rich.SelAttributes.Style)
end;


procedure TFrmReport.RichSelectionChange(Sender: TObject);
var indicetemp:integer;
begin

case ord(rich.Paragraph.Alignment) of
  0: tbleft.down:=true;
  1: tbright.Down:=true;
  2: tbcenter.down:=true;
  else
  begin
    tbright.Down:=false;
    tbcenter.Down:=false;
    tbleft.Down:=false;
  end;
end;


tbnegrita.Down:=(fsbold in rich.SelAttributes.Style);
tbsubrayado.Down:=(fsUnderline in rich.SelAttributes.Style);
tbcursiva.down:=(fsitalic in rich.SelAttributes.Style);


end; //richselectionchange;

Saludos