Форматирование текста в RichMemo. Как сделать?

[barsik123]

Имеется код форматирования текста RichEdit в билдере.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        RichEdit1->SelAttributes->Style =
    Form2->RichEdit1->SelAttributes->Style << fsBold;
 
    RichEdit1->Lines->Add(Edit1->Text);
 
        RichEdit1->Paragraph->Alignment = taRightJustify;
 
    RichEdit1->Lines->Add(Edit2->Text);
 
        RichEdit1->SelAttributes->Assign(Form2->RichEdit1->DefAttributes);
        RichEdit1->Paragraph->Alignment = taLeftJustify;
 
    RichEdit1->Lines->Add(Edit3->Text);
}

Как будет выглядеть код аналогичного назначения, но только для RichMemo в Lazarus для Linux?

текст из трех полей tedit по нажатию кнопки добавляется в поле richmemo

[Stilet]

А в Лазаре есть такой компонент?
Я думал что в Лазарусе Syn компоненты рулят.

[barsik123]

Сообщение от Stilet

А в Лазаре есть такой компонент?
Я думал что в Лазарусе Syn компоненты рулят.

в лазарусе есть компонент richmemo.
он устанавливается дополнительно. надо скачать и установить. потом пересобрать лазарус и он готов к использованию

[Stilet]

он устанавливается дополнительно.

А-а-а. Ну я его себе не ставил )

[barsik123]

Сообщение от Stilet

А-а-а. Ну я его себе не ставил )

там делов на полторы две минуты с установкой

ну собственно вопрос вот в чем


что там надо добавить чтобы первая строка в RichMemo выделялась жирным, вторая обычным шрифтом,а третья курсивом? ну и если не сложно вторая строка выравнивание вправо, а первая и третья строки выравнивание влево

procedure TForm1.Button1Click(Sender: TObject);

begin
  Form2.RichMemo1.Lines.Add(Edit1.Text);
  Form2.RichMemo1.Lines.Add(Edit2.Text);
  Form2.RichMemo1.Lines.Add(Edit3.Text);
  Form2.Show;

end;

[barsik123]

как будет выглядеть код если в этой программе заменить richmemo на SynEdit?

загрузил бы исходник, но тут не разрешено файлы размером по 6 мб загружать, а жаль

[Аватар]

загрузил бы исходник, но тут не разрешено файлы размером по 6 мб загружать, а жаль

Хороший исходник. Мощный. Книжка в районе 500 страниц в текстовом виде ~1Mb

см. метод SetTextAttributes

[barsik123]

Сообщение от Аватар

Хороший исходник. Мощный. Книжка в районе 500 страниц в текстовом виде ~1Mb

см. метод SetTextAttributes

ладно скажу по-другому - проект в лазарусе собранный очень маленький.

говорят что через synedit потом проблема сохранить русский текст в файл. вместо русского шрифта бяка получается. это решаемая проблема?

[Аватар]

я про richmemo

[Rik]

barsik123
Рекомендую тебе заглянуть сюда:
http://freepascal.ru/forum/viewtopic...4e4dc907016a82