richedit

[yossi]

Hola,
tengo un componente richedit, en el que el usuario escribe la descripcions de X cosa, quisiera que el usuario puediera configurar el formato de lo que escribe, es decir, cambiarle el color, el tipo de letra ponerlo en negrita, subrayarlo, cursiva, y sobre todo que lo pueda alinearlo a su gusto, incluyendo justificarlo como hace word. de paso lo que el usuario escribe en ese richedit tengo que guardarlo en la base de datos (mysql) en un campo que tengo longtext, y al recuperarlo para imprimirlo mediante un qreport quiero que tenga la configuracion que el usuario eligio.

he usado las funciones

Código Delphi [-]selstart; sellength; selattribute;


que me han funcionado bien, pero no se como hacer todo eso que me quiero, ya logre cambiar el tipo de letra, que el usuario escoje desde un combobox, pero no le logrado cambiar el color que el usuario escoje del combobox porque los tipos son incompatibles (tcaption and tcolor), no se cual atributo es el que me permite colocar el texto, negrita, subrayado y cursiva, ademas que solo me permite alinear a la izquierda, derecha y centro (no me deja justificar) y como hago para cuando lo guarde en la base de datos y lo recupero venga con el formato que escogio el usuario

se que pregunto mucho pero estoy aprendiendo a penas

[yossi]

respondo el post, porque no puedo editar el anterior

ya se como cambiarle e, color, la letra, ponerlo en negrita, subrayado y cursiva pero aun no se como justificarlo, y busco aqui en el foro y en la web y no encuentro nada concreto, sera que no se puede?, tampoco logro nada con la base de datos

[ecfisa]

hola yossi.

Usá la propiedad Paragraph del TRichEdit.

Ejemplo:

 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0:RichEdit1.Paragraph.Alignment:= taLeftJustify;
    1:RichEdit1.Paragraph.Alignment:= taRightJustify;
    2:RichEdit1.Paragraph.Alignment:= taCenter;
  end;
end;

En cuanto a tipo, color, estilo, etc.
Podes hacer por ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
    RichEdit1.SelAttributes.Color:= FontDialog1.Font.Color;
    RichEdit1.SelAttributes.Style:= FontDialog1.Font.Style;
    RichEdit1.SelAttributes.Name:= FontDialog1.Font.Name;
    RichEdit1.SelAttributes.Size:= FontDialog1.Font.Size;
  end;
end;

Saludos

[yossi]

gracias por la respuesta, pero de casualidad tambien sabras como puedo hacer con lo de la base de datos,

revisando el foro encontre esto

http://www.clubdelphi.com/foros/showthread.php?t=39524

pero no me esta funcionando bien

[[José Luis Garcí]]

Busca en el foro y encontraras una funcion para justificar en Richedit, yoo trabajo con ella si no la encuentras, dimelo y te la busco en casa, por cierto si no recuerdo mal tambien es posible cambiar el color de fondo de una parte del texto por si quieres destacar algo.

[yossi]

encontre esta funcion aca en el foro, no se si te refieres a esta que mencionan en este hilo
http://www.clubdelphi.com/foros/showthread.php?t=162

tambien encontre en otro hilo que mencionaban un componente "justifyrichedit"
lo descargue de aqui http://www.programmersheaven.com/dow.../download.aspx
para justificar funciona, tengo que probar las demas opciones