выравнивание текста по ширине

[Алёна]

здрасьте! хочу сделать в мемо-поле выравнивание по ширине как типа в ворде (выделяешь текст и правой кнопкой жмешь "выравнивание"), как сделать то?

[bphoenix]

в мемо не получится, используй RichEdit

[Квэнди]

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Alignment := taCenter;
Memo1.MaxLength := 24;
Memo1.WantReturns := false;
Memo1.WordWrap := false;
end;

procedure MultiLineMemoToSingleLine( < Memo > : TMemo);
var
t: string;
begin
t := < Memo > .Text;
if Pos(#13, t) > 0 then
begin
while Pos(#13, t) > 0 do
delete(t, Pos(#13, t), 1);
while Pos(#10, t) > 0 do
delete(t, Pos(#10, t), 1);
< Memo ] .Text := t;
end;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
MultiLineMemoToSingleLine(Memo1);
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
MultiLineMemoToSingleLine(Memo1);
end;

[Квэнди]

Это будет выравнивание по центру, аналог можно переписать самому

[Алёна]

спасибо Квэнди, но это не помогло, так как мне надо выравнивать по ширине фрагмент текста в мемо, а не всё его содержимое, а вообще из этого мемо текст попадает в отчет QuickRep, может не париться с мемо а заняться QuickRep-ортом???

[Квэнди]

Логичное заключение )

[НЕ_АЙС]

Используй стандартный RichEdit

uses RichEdit;

procedure TForm1.Button1Click(Sender: TObject);
const EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202;
TO_ADVANCEDTYPOGRAPHY = $0001;
var paraformat: PARAFORMAT2;
begin
SendMessage(RichEdit1.Handle, EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
paraformat.cbSize := sizeof(PARAFORMAT2);
paraformat.dwMask := PFM_ALIGNMENT;
paraformat.wAlignment := PFA_JUSTIFY;
SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, Integer(@paraformat));
end;