Как подогнать размер колонки под размер данных в Browse-бокс при открытии окна

Новая возможность появилась в Clarion6 – автоматическое изменение размеров колонок browse-бокса.

Для того, чтобы активировать эту возможность в глобальных свойствах проекта (Global properties) на закладке «App Settings» выставьте галку «Enable auto size BrowseBox Columns». При работе приложения двойной клик мыши на правой границе колонки подгонит размер колонки под размер данных (так же как в MS Excel).

Существует простой способ применения этой возможности ко всем колонкам Browse-бокса при открытии окна.

После того как вы положили List-бокс на окно, установите следующее свойство после инициализации Browse-бокса:

BRWx::AutoSizeColumn.ResizeAll()

где BRWx это имя объекта. Хорошей точкой вставки будет являться самая последняя точка в методе Init объекта Window Manager:

 ! Prepare Alert Keys
 SELF.SetAlerts()

! [Priority 9001] BRW1::AutoSizeColumn.Init() BRW1::AutoSizeColumn.AddListBox(?Browse:1,Queue:Browse:1)

! [Priority 9550] BRW1::AutoSizeColumn.ResizeAll()

! End of "WindowManager Method Executable Code Section" RETURN ReturnValue