Как получить регион для выделенного текста?

[Ruslan Demidow]

Вопрос такой возник: нужно получить регион для выделенного текста в RichEditBox. А как - не знаю.
Подскажите, плиз...

[natcap]

А что такое регион? с какого по какой символ выделено???
Если да, то .SelStart - начало выделения, .SelLength - длина выделения

[Ruslan Demidow]

А что такое регион? с какого по какой символ выделено???
Если да, то .SelStart - начало выделения, .SelLength - длина выделения

Про .SelStart и SelLength я знаю.
Мне нужно получить графические координаты прямоугольника, в котором находится выделенный текст. После этого я смогу инвертировать тект через InverseRGN (или как-то так).

[GSerg]

Вот ведь маньяк...
Это тебе придётся искать верхнюю границу области текста (она в общем случае не совпадает с границей контрола), от неё считать вниз... Точно так же от левой границы... А выделение может быть непрямоугольным... Утонешь

[Ruslan Demidow]

Вот ведь маньяк...
Это тебе придётся искать верхнюю границу области текста (она в общем случае не совпадает с границей контрола), от неё считать вниз... Точно так же от левой границы... А выделение может быть непрямоугольным... Утонешь

Ну ещё бы. Простых путей не ищем.
Вообще то я думал так. Возможно существует функция или набор функций с помощью которых можно получить координаты выделенного текста. После этого инвертировать его.
Это всё из-за моего незнания управляющих кодов RichEditBox'а.
Но я уже сделал. Мне всего-то хотелось инвертировать текст в риче.
Хотя от примера технологии получения региона выделенного текста я бы не отказался.

[GSerg]

Это всё из-за моего незнания управляющих кодов RichEditBox'а

Они все начинаются с EM_. Нужного там нет, я смотрел

[Ruslan Demidow]

EM_ - я знаю. Но пришлось по другому. Мне подсказали, что можно вставить в .TextRTF управляющее слово (не сообщение отправить, а вставить слово) "\highlight" и текст будет инвертирован.
Я сделал, работает...
Выглядит это так (пример: Фраза "Мама мыла раму", нужно сделать слово мыла инверсным)

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

Option Explicit

Private Sub Form_DblClick()
With RichTextBox1
.Text = "Мама мыла раму"
.SelStart = 5: .SelLength = 4
.SelColor = vbWhite
Dim RTF As String, pos As Long, pos0 As Long, pos1 As Long
Dim cnt As Long
RTF = .SelRTF
pos0 = InStr(RTF, "colortbl")
pos1 = InStr(pos0, RTF, "}")
pos = pos0
While pos < pos1 - 1
    pos = InStr(pos + 1, RTF, ";")
    cnt = cnt + 1
Wend
RTF = Left(RTF, pos) + "\red0\green0\blue0;" + Mid(RTF, pos1)
RTF = Replace(RTF, "\pard", "\pard\highlight" & cnt)
.SelRTF = RTF
End With
End Sub

Так что в принципе тред можно считать закрытым.
Но всё-таки от показательного примера по получению координат прямоугольника содержащего выделенный текст я бы не отказался.

[tyomitch]

Хоть бы копирайты расставлял... Да ладно - я не жадный

[Ruslan Demidow]

Хоть бы копирайты расставлял... Да ладно - я не жадный

Извини, но это мне подсказали из ФИДО. Копирайтов там тоже не было.
Тем более я указал что код придуман не мной, мне подсказали ка это делать. Но если ты так хочешь, то могу уточнить...

[tyomitch]

Хоть бы копирайты расставлял... Да ладно - я не жадный

Извини, но это мне подсказали из ФИДО. Копирайтов там тоже не было.
Тем более я указал что код придуман не мной, мне подсказали ка это делать. Но если ты так хочешь, то могу уточнить...

Там это тебе подсказал я, копирайты были в поле From:
Случайно захожу на этот форум, а тут - ба, знакомые все лица!

[Ruslan Demidow]

Хоть бы копирайты расставлял... Да ладно - я не жадный

Извини, но это мне подсказали из ФИДО. Копирайтов там тоже не было.
Тем более я указал что код придуман не мной, мне подсказали ка это делать. Но если ты так хочешь, то могу уточнить...

Там это тебе подсказал я, копирайты были в поле From:
Случайно захожу на этот форум, а тут - ба, знакомые все лица!

Ну извини tyomitch. Не признал.
Сейчас проставлю копирайты:
A. Skrobov (2:5080/1003.16) г. Екатеринбург.
Так?
Или
Martynov Sergey?

AOT: И всё-таки, кто-нибудь подскажет мне как получить регион выделенного текста в RTB?

[tyomitch]

Хоть бы копирайты расставлял... Да ладно - я не жадный

Извини, но это мне подсказали из ФИДО. Копирайтов там тоже не было.
Тем более я указал что код придуман не мной, мне подсказали ка это делать. Но если ты так хочешь, то могу уточнить...

Там это тебе подсказал я, копирайты были в поле From:
Случайно захожу на этот форум, а тут - ба, знакомые все лица!

Ну извини tyomitch. Не признал.
Сейчас проставлю копирайты:
A. Skrobov (2:5080/1003.16) г. Екатеринбург.
Так?
Или
Martynov Sergey?

Всё, большое спасибо, справедливость восстановлена

AOT: И всё-таки, кто-нибудь подскажет мне как получить регион выделенного текста в RTB?

Есть идея - получить от ричедита ITextDocument (EM_GETOLEINTERFACE), потом ITextRange выделения (ITextDocument::GetSelection), и наконец ITextRange::GetPoint. Правда, при этом придётся "предполагать", что регион прямоугольный, но имхо для слова - ведь тебе одно слово надо выделить? - это разумно.

Но всё-таки имхо это бред с получением региона. При каждом скролле и каждом изменении текста его придётся обновлять.

[Ruslan Demidow]

Ясно, спасибо за совет. Но посмотрев сколько нужно сделать телодвижений для получения региона и что нужно его каждый раз перерисовывать я пожалуй соглашусь с тобой - не стоит овчинка выделки.
Думаю на этом тред можно считать закрытым.
Всем До встречи.

[tyomitch]

Кроме всего прочего, предложенный мной метод не работает, поскольку RichTextBox - это RichTextWndClass, а не RichEdit20A, и оно не понимает EM_GETOLEINTERFACE ;-(

Настоятельно рекомендую посмотреть RichTextBox от Eduardo A. Morcillo: от него есть исходники (т.е. не надо таскать с собой OCX), и у него много дополнительных возможностей по сравнению со стандартным, например цвет выделения (т.е. именно то, что тебе надо) можно указать программно.

http://www.mvps.org/emorcillo/vb6/contr ... riched.msi

[Ruslan Demidow]

Кроме всего прочего, предложенный мной метод не работает, поскольку RichTextBox - это RichTextWndClass, а не RichEdit20A, и оно не понимает EM_GETOLEINTERFACE ;-(

Настоятельно рекомендую посмотреть RichTextBox от Eduardo A. Morcillo: от него есть исходники (т.е. не надо таскать с собой OCX), и у него много дополнительных возможностей по сравнению со стандартным, например цвет выделения (т.е. именно то, что тебе надо) можно указать программно.

http://www.mvps.org/emorcillo/vb6/contr ... riched.msi

Ага, спасибо. Но я вот посмотрел - там 300 кило. Это, скажем, существенная прибавка к весу моей программы.
Или в эти 300 упакованы и исходники и сам контрол?

[tyomitch]

Настоятельно рекомендую посмотреть RichTextBox от Eduardo A. Morcillo: от него есть исходники (т.е. не надо таскать с собой OCX), и у него много дополнительных возможностей по сравнению со стандартным, например цвет выделения (т.е. именно то, что тебе надо) можно указать программно.

http://www.mvps.org/emorcillo/vb6/contr ... riched.msi

Ага, спасибо. Но я вот посмотрел - там 300 кило. Это, скажем, существенная прибавка к весу моей программы.
Или в эти 300 упакованы и исходники и сам контрол?

Там зачем-то MSI-шная инсталляха, понятия не имею зачем. Простой ZIP со всем, что там лежит, занимает 200 Кб.
Действительно, там и исходники, и контрол, и тестовый проект, и тестовый RTF с внедрёнными объектами, и скомпилированный тестовый проект... В общем, всё что можно

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

[Ruslan Demidow]

Ага. Понятно. Спасибо, я скачал. Попробую его.
Ещё раз спасибо.