Scrolling

[axaLearner]

Хотелось бы добавить в группу на форме несколько элементов (Grid и Field) фиксированного размера и если все они в группу не помещаются при отображении, чтобы появлялась полоса прокрутки. Т.е. проще говоря как отобразить скроллиннг на Group. Можно и не Group, если существует другой подходящие элемент.

[AndyD]

Использовать Ax 4.0

Не умеет группа в Ax 3.0 скроллировать

[itfs]

Может вас до некоторой степени устроит FrameOptionButton = Hide?

С уважением, itfs.

[axaLearner]

2 AndyD
Жаль что не умеет
2 itfs
В принципе как вариант можно рассмотреть.
Спасибо

Может еще какие идеи появятся? Было бы здорово

[AndyD]

Не, ну если подрихтовать, то можно

[axaLearner]

AndyD
А как вы этого добились?

[AndyD]

Молотком

Во вложении - ответ.

Как применять:
1. На форме в ClassDeclaration определить пару переменных

DLL                 dll;
DLLFunction         AxScrollGroup;

2. В Init() формы добавить код

    dll = new Dll("AxScroll.dll");
    AxScrollGroup = new DLLFunction(dll, "AxScrollGroup");

    AxScrollGroup.returns(ExtTypes::DWord);
    AxScrollGroup.arg(ExtTypes::DWord);

3. Подключать к нужному контролу так (можно в Init() формы после super())

if ([].hWnd()) AxScrollGroup.call([].hWnd());

4. Цеплять к контролам Group или TabPage. Для Group свойство FrameType ставить в None
5. На этих контролах размещать только группы или табы. Все остальные контролы должны находиться в этих элементах
6. Подключать можно неограниченное количество элементов (например, все закладки на форме InventTable)

Для скроллинга можно использовать колесо мыши. С зажатой кнопкой SHIFT - по вертикали, CONTROL - по горизонтали

Из замеченных глюков:
1. Если разместить на управляемой группе элемент ввода (например, StringEdit) (не во вложенной группе), то при скроллировании и перерисовке формы будет неправильно отображаться Label контрола
2. Если разместить на управляемом контроле Grid (не во вложенной группе), то при изменении размера формы и смещенным движкам скроллера Grid перескочит в верхний левый видимый угол.
3. При изменении размеров контрола (например, для Grid'а изменение ширины столбцов ), если смещены движки скроллера, то контрол перескочит в верхний левый видимый угол.
4. При изменении размеров контрола (например, для Grid'а изменение ширины столбцов) скроллеры не реагируют (не происходит пересчет размеров клиентской области). Если после этого изменить размер управляемой группы (например, изменить размер окна), то все корректно пересчатается
5. Если управляемый контрол Группа и для него включено FrameType, то некорректно будет происходить перерисовка элементов фрейма

[axaLearner]

Здорово! Спасибо AndyD!

[konopello]

2AndyD
А библиотека AxScroll.dll из Ax 4.0 ??

[gl00mie]

Цитата:

Сообщение от konopello

А библиотека AxScroll.dll из Ax 4.0 ??

Судя по тому, что она написана на Delphi, а AndyD публиковал еще несколько проектов с участием Delphi, это - его разработка

[kashperuk]

А исходничков dll здесь нет?

[belugin]

http://www.microsoft.com/Businesssol...g=en&cr=US&p=1

Тут у людей проблемы с AxScroll

[Eldar9x]

2 AndyD: покажите, пожалуйста, исходники Вашей библиотеки, если, конечно, они не охраняются авторскими правами . Очень интересно...