Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как установить отступ в ричэдите у всех абзацев?

TStas © (2012-05-17 12:31:00)
Почему-то SelectAll и Paragraph.LeftIndent := 10 ничего не даёт

Anatoly Podgoretsky (2012-05-19 08:49:00) [1]

> Вопрос снят. Это делается так:

EM_SETPARAFORMAT

(2012-05-19 02:09:00) [2]
Удалено модератором
Примечание: оффтоп

Германн (2012-05-19 01:37:00) [3]
Я бы ещё добавил.
Если есть вызов какой-либо процедуры, которая изменяет какие-либо условия обычного вывода на экран будь то BeginUpdate или смена вида курсора и т.д. и т.п. обязательно нужен блок try...finally.

Rouse_ (2012-05-19 01:33:00) [4]

> TStas (19.05.12 01:14) [8]
> Ну да... Как и любой другой API вызов.

Очень хотелось бы увидеть на практике как MessageBeep выдаст исключение...

TStas (2012-05-19 01:14:00) [5]
Ну да... Как и любой другой API вызов.

Rouse_ (2012-05-19 01:07:00) [6]

> TStas (17.05.12 23:46) [3]
> А может быть исключение?

Конечно. Выход на канву есть? Есть... все что связано с графикой может в любой момент посыпать исключениями...

Юрий Зотов (2012-05-19 01:01:00) [7]
> TStas (18.05.12 19:40) [5]
> откуда оно может появиться?

Есть абсолютная уверенность в том, что VCL не содержит ошибок?

Есть абсолютная уверенность в том, что функции WinAPI, через которые работает VCL тоже не содержат ошибок?

Есть абсолютная уверенность в том, что Paragraph ни при каких условиях не станет невалидной ссылкой?

У меня абсолютнойуверенности во всем этом нет.

TStas (2012-05-18 19:40:00) [8]
Да. Просто интересно, а в случае выделении абзачев в ричэдите откуда оно может появиться?
Сам код поправил, спасибо.

Юрий Зотов (2012-05-18 01:00:00) [9]

> TStas (17.05.12 23:46) [3]

Оно всегда может быть. Даже если оно и практически невероятно, все равно лучше приучать себя к безопасному стилю. Эта привычка убережет от многих неприятностей.

TStas (2012-05-17 23:46:00) [10]
А может быть исключение?

Юрий Зотов (2012-05-17 14:40:00) [11]

> TStas (17.05.12 12:57) [1]

Маленькая поправка. Парные операции лучше выполнять так:
Lines.BeginUpdate; try ... finally Lines.EndUpdate end;

TStas (2012-05-17 12:57:00) [12]
Вопрос снят. Это делается так:
procedure TStCodeEditor.SetIndents;
var
S, L: Integer;
begin
S := SelStart;
L := SelLength;
Lines.BeginUpdate;
SelectAll;
Paragraph.LeftIndent := 15;
Paragraph.FirstIndent := 15;
Paragraph.RightIndent := 10;
SelStart := S;
SelLength := L;
Lines.EndUpdate;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »