Выравнивание текста в TRichEditDelphi , Компоненты и Классы , TMemo и TRichEditВыравнивание текста в TRichEdit
Оформил: DeeCo uses RichEdit; // Using the Paragraph property procedure RE_AlignText1(ARichEdit: TRichEdit; alignment: TAlignment); begin ARichEdit.Paragraph.Alignment := alignment; end; // Using PARAFORMAT2; nonVCL procedure RE_AlignText2(ARichEdit: TRichEdit; alignment: TAlignment); var pf2: PARAFORMAT2; begin FillChar(pf2, SizeOf(pf2), 0); pf2.cbSize := SizeOf(PARAFORMAT2); SendMessage(ARichEdit.Handle, EM_GETPARAFORMAT, 0, Longint(@pf2)); pf2.dwMask := PFM_ALIGNMENT; case alignment of taLeftJustify: pf2.wAlignment := PFA_LEFT; taCenter: pf2.wAlignment := PFA_CENTER; taRightJustify: pf2.wAlignment := PFA_RIGHT; end; SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2)); end; // Example: Right align text // Beispiel: Text rechtsbundig ausrichten procedure TForm1.Button1Click(Sender: TObject); begin RE_AlignText2(RichEdit1, taRightJustify); end; Статья Выравнивание текста в TRichEdit раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TMemo и TRichEdit ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |