Rich Text Box

[Faoren]

Возникло 2 вопроса. Во-первых, можно ли отключить автоперенос строки, т.е. активизировать горизонтальную прокрутку? Во-вторых, чтобы производить действие с участком текста, я указываю selstart и sellenght. Это приходится делать много раз. Можно избежать перемещения указателя, чтоб экран не "скакал"?

[Ruslan Demidow]

Перед сменой SelStart и SelLenght запрещай обновление RTB, а после опять разрешай и обновляй.

[Ennor]

...
можно ли отключить автоперенос строки, т.е. активизировать горизонтальную прокрутку?
...

Можно. Свойство RightMargin. Я обычно выставляю один миллион.

[hCORe]

Есть способ понадежнее:

Код: Выделить всё

Option Explicit
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) As Long

Private Const WM_USER = &H400
Private Const EM_SHOWSCROLLBAR As Long = (WM_USER + 96)
Private Const EM_SETTARGETDEVICE = (WM_USER + 72)
Private Const SB_BOTH As Long = 3

Private Sub Form_Load()
    SendMessageLong Rich.hwnd, _
    EM_SHOWSCROLLBAR, SB_BOTH, 1

    SendMessageLong Rich.hwnd, _
    EM_SETTARGETDEVICE, 0, 1
End Sub

[Ruslan Demidow]

...
можно ли отключить автоперенос строки, т.е. активизировать горизонтальную прокрутку?
...

Можно. Свойство RightMargin. Я обычно выставляю один миллион.

Кстати, а кто может мне подсказать, как установить RightMargin в зависимости от количества символов в строке.
Т.е. имеем RTB, в нём установлен определённый шрифт. Мне нужно установить авто-перенос строки например на 80-ом символе, не зависимо от ширины самого RTB.
Пробовал расчитывать исходя из ширины буквы выведенной в RTB.
Т.е. брал TextWidth(Left(TRB.Text,1)) * КоличествоСимволов.
Но явно выходит не то.
1. Как установить RightMargin равным ширине определённого количества символов с учётом шрифта установленного RTB?

2. Ну и в догонку. Если установить в RTB выравнивание по центру, то получается что строка просто начинается с определённого места. А если я сохраняю в обычный текст. То как мне определить, что данных текст отцентрирован.
Ведь в RTB.Text нет никаких маркеров, которые указывали бы, что нужно делать определённый отступ.
Может быть сумбурно выразился, но вот мне в редакторе (используется RTB) необходимо реализовать выравнивание текста по разным критериям (лево, право, центр, ширина). А отправляться текст сообщения будет в обычном виде. И смотреться будет тоже в обычном.
Т.е. я при создании текста хочу дать пользователю максимум удобств. А при сохранении текста сообщения, хочу сохранить всё что пользователь наделал за полтора часа мучений по украшательству текста.
Подскажите плиз.

[tyomitch]

Ответ на 1: если у тебя моноширинный шрифт, то ширину символов можно узнать через GetCharABCWidths. Если пропорциональный - то тоже можно, но тебе это не поможет: букв i всегда поместится больше, чем букв w.

[Ruslan Demidow]

Ответ на 1: если у тебя моноширинный шрифт, то ширину символов можно узнать через GetCharABCWidths. Если пропорциональный - то тоже можно, но тебе это не поможет: букв i всегда поместится больше, чем букв w.

Ну а я выведу по максимуму (т.е. возьму ширину буквы "Ш" или "W").
Тем более я знаю данные шрифта, которые используются в RTB.
Всё же как его расчитать?