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;