Глюк с RTF

[Ennor]

Это не глюк. Проверь свойство ScrollBars...

[alibek]

Нет, проверь свойство RightMargin.

[hCORe]

Помести на форму RichTextBox с названием RichTextBox и CommandButton с названием cmdTry. Вставь этот код, и посмотри как он работает

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

Option Explicit

Private Const WM_USER = &H400
Private Const EM_SETTARGETDEVICE = (WM_USER + 72)
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 Sub cmdTry_Click()
   SendMessageLong RichTextBox.hwnd, EM_SETTARGETDEVICE, 0, 1
   MsgBox "No Word Wrap!"
   SendMessageLong RichTextBox.hwnd, EM_SETTARGETDEVICE, 0, 0
   MsgBox "Word Wrap On!"
End Sub

Private Sub Form_Load()
   RichTextBox.Text = "The quick brown fox" & _
   "jumps over the lazy dog. See how you can" & _
   "turn the word wrap on and off, on and off." & _
   vbNewLine & "Now a new line goes on!"
End Sub

[alibek]

Стандартными средствами надо выставить RightMargin такой, чтобы он был больше, чем ширина самого RTB.

[hCORe]

На самом деле свойство RightMargin задает отступ от правого края страницы. А использовать его для других целей - явное извращение (тем более, что существует стандартное сообщение Rich Edit окна для этого)
"Так, пациент, вы страдаете сексуальными извращениями? - Нет, доктор, что вы, я ими наслаждаюсь!" (c)

[Konst_One]

а причем тут VB вообще, речь ведь идет о контроле RTB?

[tyomitch]

RTB - часть VS, и VB тоже - часть VS. Видимо так.

[Ennor]

А, так вот что тебе надо. Поставь RightMargin = 1000000 и не парься...

[Tarik]

Потому, что реализация контрола RTB для делфи отличается от виби

Это уж точно Сам недавно столкнулся в дельфийским врапером - vb'шный явно лучше. Ну почему в дельфях нельзя было сделать по-нормальному св-ва SelBold, SelItalic и т. д.

[|kerish|]

Услышал слова "Почему мелкомягкие такие ублюдки".
Зря ты это...Все, что видешь и, во что играешь написано через их библиотеки.