Table.Object.Frame
| Object.Frame (Доступ к свойствам объектов) | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||
Атрибут возвращает или изменяет рисунок и наличие четырех границ обрамления визуального объекта таблицы. Значение представляет собой битовую маску, где на каждую из границ используется по 4 бита. По умолчанию, это значение равно 0 (объект не имеет обрамления). Четыре границы используют следующие биты атрибута:
- биты 0..3: Рисунок левой границы объекта
- биты 4..7: Рисунок верхней границы объекта
- биты 8..11: Рисунок правой границы объекта
- биты 12..15: Рисунок нижней границы объекта
Каждый из наборов бит задает рисунок соответствующей границы объекта. Возможны следующие индексы рисунка (см. рис):
- 0 -- граница не видна
- 1 -- тонкая граница состоящая из редких точек
- 2 -- тонкая граница состоящая из частых точек
- 3 -- тонкая граница состоящая из коротких линий
- 4 -- тонкая граница состоящая из чередующихся коротких и длинных линий
- 5 -- тонкая граница состоящая из чередующихся двух коротких и одной длинной линии
- 6 -- тонкая граница состоящая из средних линий
- 7 -- тонкая граница состоящая из длинных линий
- 8 -- тонкая граница состоящая из непрерывной линии
- 9 -- средняя по толщине граница состоящая из непрерывной линии
- 10 (
$A) -- толстая граница состоящая из непрерывной линии - 11 (
$B) -- очень толстая граница состоящая из непрерывной линии - 12 (
$C) -- средняя по толщине граница состоящая из редких точек - 13 (
$D) -- средняя по толщине граница состоящая из средних линий - 14 (
$E) -- средняя по толщине граница состоящая из длинных линий - 15 (
$F) -- граница, состоящая из двух тонких непрерывных линий
При установке значений удобно использовать префикс шестнадцатеричной нотации ($DRUL или 0xDRUL). Атрибут работает только, когда визуальный объект был выбран для работы в текущем объекте.
Синтаксис
Table.Object.Frame:<Рисунок и наличие 4-х границ обрамления объекта (INT)>
Возвращаемое значение
Возвращает числовое значение.
Примеры
//Изменить свойства для всех объектов типа прямоугольник с текстом
For i:=1 To Т.Objects.Count() Do
if Т.Objects(i).Type=$81 Then
Т.Objects(i).BackgroundColorRGB:=_CLR_WHITE;
Т.Objects(i).FontColorRGB:=_CLR_BLACK;
Т.Objects(i).FrameColorRGB:=_CLR_BLACK;
Т.Objects(i).Frame:=$8888;
EndIf;
EndDo;
