Интересный вопросец...

[SBJocker]

Есть у кого-нить идеи как обычный RitchTextBox превратить в что-то типа как текстовое поле в IDE VB, т.е. справа с панелью где можно ставить пометки(закладки) и рисовать плюсики и минусики для сворачивания кода? т.е. как заставить текст рисоваться не от края а с отступом, а на освободившемся месте рисовать?

[GSerg]

Зацени проперти Margin...

[tyomitch]

Либо, для переAPIстов - слать EM_SETMARGINS.

[SBJocker]

Чё-то я его "заценяю", а нифига неменяется

[tyomitch]

Мессагу я проверил - работает. Могу дать пример для VB6

[SBJocker]

Давай

[tyomitch]

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const EM_SETMARGINS = &HD3&

Private Sub Form_Load()
SendMessage RichTextBox1.hwnd, EM_SETMARGINS, 3, &H100010
End Sub