Justificar texto con RichEdit
Hola de nuevo.No sé si se habrá preguntado ya, pero necesito saber si hay alguna forma de justificar un tRichEdit por ambos lados a la vez, como lo hace Word. Gracias...
1 Respuesta
Respuesta de gaunmanuel
1
No lo he hecho, pero aquí tengo un código, en donde hace una alinacion del texto en un edit, quizá te sirva como tip
TEdit1 = class(TEdit)
public
procedure CreateParams(var Params: TCreateParams); Override;
end;
procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;
TEdit1 = class(TEdit)
public
procedure CreateParams(var Params: TCreateParams); Override;
end;
procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;
