Элементы графики
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Элементы графики
Создан элемент CREATE:LINE
При уменьшении значений его свойств prop:xpos и prop:ypos
остается след в виде точек на конце элемента
При увеличении этих координат следа нет
Проверено в С55ЕЕ, С61ЕЕ, С62ЕЕ (ABC)
В чем причина?
След исчезает при возврате фокуса окну, при раскрытии окна в полный экран. Как убрать след?
При уменьшении значений его свойств prop:xpos и prop:ypos
остается след в виде точек на конце элемента
При увеличении этих координат следа нет
Проверено в С55ЕЕ, С61ЕЕ, С62ЕЕ (ABC)
В чем причина?
След исчезает при возврате фокуса окну, при раскрытии окна в полный экран. Как убрать след?
-
- Ветеран движения
- Сообщения: 78
- Зарегистрирован: 04 Август 2005, 9:35
- Контактная информация:
-
- Ветеран движения
- Сообщения: 78
- Зарегистрирован: 04 Август 2005, 9:35
- Контактная информация:
Радикальных методов не нужно, т.к. BLANK убирает след (оказалось, он работает не так, как написано в Help). Привожу готовый пример.
program
map.
feq long
spin short
Window WINDOW('Caption'),CENTER,SYSTEM,GRAY
SPIN(@n-3b),AT(10,10,35,10),USE(spin)
STRING(''),AT(55,10,35,10),USE(?String1)
END
CODE
open(window)
feq=create(0,CREATE:LINE)
feq{PROP:Xpos} = 100;feq{PROP:Ypos} = 50
feq{PROP:width} = -30;feq{PROP:height} = 30
unhide(feq)
accept
case event()
of event:NewSelection
feq{prop:Xpos}=feq{prop:Xpos}+spin
?String1{prop:text}='Xpos: '&feq{prop:xpos}
clear(spin)
! line(80,50,0,0) ! без этой строки BLANK не работает
BLANK
end
end
При смещении влево остается след от начала отрезка. В чем причина?
BLANK работает только при наличии нарисованных линий, и только до их максимальных начальных позиций.
program
map.
feq long
spin short
Window WINDOW('Caption'),CENTER,SYSTEM,GRAY
SPIN(@n-3b),AT(10,10,35,10),USE(spin)
STRING(''),AT(55,10,35,10),USE(?String1)
END
CODE
open(window)
feq=create(0,CREATE:LINE)
feq{PROP:Xpos} = 100;feq{PROP:Ypos} = 50
feq{PROP:width} = -30;feq{PROP:height} = 30
unhide(feq)
accept
case event()
of event:NewSelection
feq{prop:Xpos}=feq{prop:Xpos}+spin
?String1{prop:text}='Xpos: '&feq{prop:xpos}
clear(spin)
! line(80,50,0,0) ! без этой строки BLANK не работает
BLANK
end
end
При смещении влево остается след от начала отрезка. В чем причина?
BLANK работает только при наличии нарисованных линий, и только до их максимальных начальных позиций.
Если решения этой проблемы нет, то может кто-нибудь подскажет, как удобнее всего решить следующую задачу.
Нужно представить данные в виде линейных графиков (с осями координат и подписями). Графики нужно сдвигать и масштабировать. Перерисовывать каждую линию и хранить ее координаты - единственный вариант?
Нужно представить данные в виде линейных графиков (с осями координат и подписями). Графики нужно сдвигать и масштабировать. Перерисовывать каждую линию и хранить ее координаты - единственный вариант?
-
- Ветеран
- Сообщения: 311
- Зарегистрирован: 08 Июль 2005, 22:04