Как в ActiveX Rich TextBox изменить свойство ScrollBars

[Владимир Максимов]

AXAPTA 2.5 SP3

На форму добавил ActiveX компонент Rich TextBox 6.0

Как заставить его отображать собственные ScrollBars? Т.е. изменить значение свойства ScrollBars?

В Help по этому объекту (файл RTFBOX98.CHM) написано, что свойство ScrollBars "Read-Only at run-time". И действительно, в методах формы идет ругань, на попытку изменения.

Есть ли возможность установки этого и подобных свойств?

AXAPTA 2.5 SP3

[db]

Не знаю есть ли у этого контрола собственные страницы свойств, но можно попробовать следующее
Открыть форму в визуальном редакторе дизайна
Выбрать контрол и вызвать его свойства
Щелкнуть на кнопочку с тремя точками у свойства Custom

Если страницы свойств есть, то они должны появиться

[AndyD]

Можно так, например в Init формы. Только скроллбары показываются, когда текст не помещается в окне

public void init()
{
    #define.SB_HORZ(0)
    #define.SB_VERT(1)
    #define.WM_USER(0x0400)
    #define.EM_SHOWSCROLLBAR(#WM_USER+96)
    ;
    super();
//    WinApi::sendMessageEx(RichEdit._Hwnd(), #EM_SHOWSCROLLBAR, #SB_HORZ, 1);
    WinApi::sendMessageEx(RichEdit._Hwnd(), #EM_SHOWSCROLLBAR, #SB_VERT, 1);
}

В принципе, это то-же самое, что предлагает db, только программно

[Владимир Максимов]

Спасибо. Не знал про такую особенность редактора.