Оформление данных в DataGrid, HFlexGrid

[arbusov]

Помогите кто нибудь(советами/ссылками): как в HFlexGrid изменить выравнивание по краю в произвольном Band(); в DataGrid - сделать отступ от края текста, выровненного по правому краю.

[Чудик]

Я думаю, что ручками. Пиши свой код форматирования текста.

[Ennor]

1. CellAlignment + группа свойств .ColAlignment* (4 штуки).
2. Не знаю - мало работал с этим контролом.

[Чудик]

А отступ, т.е. красную строку, можно реализовать, думаю, путем автоматической вставки пробелов вначале текста.

[arbusov]

Да умею я ручками-то, только вот:
1) Property ColAlignment(index As Long) As Integer - все время обращается к BAND(0), а при задании несуществующего index просто добавляет пустой столбец!
2) Ну не видно у DataGrid никаких свойств/методов насчет отступа текста от края!
HELP!!!

[Чудик]

1. .ColAlignment(Index)=x
где х - константа, равная от 1 ... 9, наверное - диапазон не помню.
У меня всегда работало как положено - выравнивание по левому краю, по центру и по правому краю + выравнивание по высоте ячейки.
2. Ты про красную строку или про отступ всего содержимого?

[Ennor]

Property ColAlignmentBand(BandNumber As Long, BandColIndex As Long) As Integer
Member of MSHierarchicalFlexGridLib.MSHFlexGrid
Returns or sets the alignment of data in a column. Not available at design time (except indirectly through the FormatString property).

Пример использования:

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

Me.MSHFlexGrid1.ColAlignmentBand(0, 1) = flexAlignRightCenter

[arbusov]

А отступ, т.е. красную строку, можно реализовать, думаю, путем автоматической вставки пробелов вначале текста.

Ну тогда уж в конце, ведь отступа нет только при выравнивании по правому краю, да и как вставлять пробелы в нужных столбцах при чтении из базы? Это насколько нужно все запросы усложнить ради какого-то выранивания? Д.б. простой способ, только он себя пока никак не обнаруживает...

[GSerg]

.NumberFormat = "#0.00 "

[arbusov]

Спасибо Ennor, даже стыдно . Вопрос №1 снят...

[Чудик]

Сам запрос можно не трогать, форматирование делать непосредственно в самом контроле. Усложнять алгоритм придется конечно, но по-другому не подскажу.

[arbusov]

Всем большое спасибо. Некоторые трудности остались, но в целом работает. Пример GSerg (.NumberFormat = "#0.00 ") решает проблему 2:
.Columns(1).NumberFormat = "dd mm yyyy " 'для дат