?Image

[seawolf]

Народ! подскажите!
Есть окно к нем рисуем всякие точки и линии (Box, Line). Далее надо подложить картинку чтобы не забивалось то что нарисовано. Свойство окна Wallpaper не подходит так оно подгоняет картинку под размер окна (оригинал меньше). Пробовал Tiled, Centered. Далее повесил Image и задал его размеры и вывалил картинку, по размерам все ОК, но она забивает все что нарисовано. В доке вычитал про атрибуты TRN элементов. Если явно описать String, Line с этим атрибутом то нет проблем, но я рисую командами Line, Box и не знаю меток. Можно как нибудь эти метки добыть или есть какой-нибудь вариант обхода?

[Andrew Listiev]

А имидж рисуешь когда до линий или после?

[seawolf]

Уже попробовал по всякому (думаю что после правильно). Сейчас буду пытаться делать Create (?Line) затем присваивать TRN этой линии и далее ее отрисовывать.

[seawolf]

Примерно заработало так (отказываемся от рисования командами Line, Box)

Create(?,Create:Line) !Создаем контрол линия
LastField(){prop:xpos}= !позиция начала линии по Х
LastField(){prop:ypos}= !позиция начала линии по Y
LastField(){prop:width}=!длина линии по Х
LastField(){prop:height}=!длина линии по Y
Unhide(LastField()) ! показать поле

При этом неважно когда заливается Image (до и ил после этого кода но все видно)

[seawolf]

А как сменить стиль линии (SetPenStyle после и до создания контрола не проходит)?
Для цвета срабатывает LastField(){prop:color} = задаем цвет

[Stalker]

Просмотри тему Clarion и графика, там обсуждался вопрос накладки двух графических объектов,
есть хорошие ссылки на контролы для работы с графикой

[WadimZapara]

добыча меток:
W &Window
e Signed(0)
Code
W &= ANY_Window ! какая-то метка окна
W &= SYSTEM{PROP:Target} ! текущее окно приложения
Loop ! перебор всех экранных объектов
e = W{PROP:NextField, e}
If ~e Then Break.
! e - номер очередного экранного объекта
Case e{PROP:Type}
Of CREATE:Line
! это LINE
Of CREATE:Box
! это BOX
ELSE
! типы см. в Equates.clw
End
End

[Admin]

Народ! подскажите!

В личку ушел месаг