Отступы в RTF

[Utkin]

Как мне применить к имеющимся строкам RichEdit определенный отступ от левого края (хочу сделать редактор с автоматическим форматированием подпрограмм и циклов)?

[Kotofff]

Немного теории :

За выравнивание, отступы и т.д. в пределах текущего абзаца отвечает свойство Paragraph типа TParaAttributes. Этот тип в свою очередь имеет ряд свойств:
Alignment - Определяет выравнивание текста. Может принимать значения taLeftJustify (влево), taCenter (по центру) или taRightJustify (вправо).
FirstIndent - Число пикселей отступа красной строки.
Numbering - Управляет вставкой маркеров, как в списках. Может принимать значения nsNone — отсутствие маркеров, nsBullet — маркеры ставятся.
LeftIndent - Отступ в пикселях от левого поля.
RightIndent - Отступ в пикселях от правого поля.
TabCount - Количество позиций табуляции.
Tab - Значения позиций табуляции в пикселях.

Значения подсвойств свойства Paragraph можно задавать только в процессе выполнения приложения, например, в событии создания формы или при нажатии какой-нибудь кнопки. Значения подсвойств свойства Paragraph относятся к тому абзацу, в котором находится курсор. Например, каждый из следующих операторов осуществит соответственное выравнивание текущего абзаца:

RichEdit1.Paragraph.Alignment:=taLe ftJustify; // Влево
RichEdit1.Paragraph.Alignment:=taCe nter; // По центру
RichEdit1.Paragraph.Alignment:=taRi ghtJustify;// Вправо
Следующий оператор приведет к тому, что текущий абзац будет отображаться как список, т.е. с маркерами:
RichEdit1.Paragraph.Numbering:=nsBu llet;
Уничтожение списка в текущем абзаце осуществляется оператором
RichEdit1.Paragraph.Numbering:=nsNo ne;

[Utkin]

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

Немного теории :

Спасибо конечно, но я сначала прочитал и попробовал. Я перехожу на нужную мне строку через ВинАпи, потом выделяю всю строку до конца и пытаюсь настроить соответствующий отступ через LeftIdent. Все чудесно работает. Только никаких видимых эффектов не возникает .
Сначала использую Lines.BeginUpdate в конце соответственно Lines.EndUpdate.
Я не силен в английском, но как я понял этот эффект применим только к вновь создаваемым абзацам. А я хочу изменять то, что введено.

[Kotofff]

// сначала выравнивание по правому краю и что-нибудь набираем там 3-4 строки
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment := taRightJustify; // сначала справа 
end;

// при клике на некую кнопку выделяем 2 строку в процессе выполнения - все работает
procedure TForm1.Button1Click(Sender: TObject);
begin
with richedit1 do
begin
  selstart:=FindText(lines[1],0,length(text), [stWholeWord]);
  sellength:=length(lines[1]);
end;
RichEdit1.Paragraph.Alignment := taLeftJustify;// выделенная строка выравнивается влево
RichEdit1.Update;
end;

[mihali4]

Попробуйте переходить на любую строку (в любое место - это неважно), ничего выделять не нужно...
Просто примените такую строку:
RichEdit1.Paragraph.FirstIndent := 10;
и вы сразу увидите результат - появится отступ.

[s.Creator]

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

Как мне применить к имеющимся строкам RichEdit определенный отступ от левого края (хочу сделать редактор с автоматическим форматированием подпрограмм и циклов)?

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

[Utkin]

Сообщение от s.Creator

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

Нет, текст надо просто форматировать при загрузке. Сохранять по идеи должно без форматирования .
Спасибо за советы, пойду пробовать

[Utkin]

Это не работает не в моем проекте, не в отдельном. Даже Ваш пример с кнопкой . Я просто взял Ваш код с форума и вставил в проект. Никаких внешних изменений.
Сначала я думал, что не работает в моем приложении (мало ли чего там в ВинАпи), но теперь уже не знаю что и думать... Делфи 7