Элементы графики
Модератор: Дед Пахом
					Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
	При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Элементы графики
Создан элемент CREATE:LINE
При уменьшении значений его свойств prop:xpos и prop:ypos
остается след в виде точек на конце элемента
При увеличении этих координат следа нет
Проверено в С55ЕЕ, С61ЕЕ, С62ЕЕ (ABC)
В чем причина?
След исчезает при возврате фокуса окну, при раскрытии окна в полный экран. Как убрать след?
			
			
									
						При уменьшении значений его свойств prop:xpos и prop:ypos
остается след в виде точек на конце элемента
При увеличении этих координат следа нет
Проверено в С55ЕЕ, С61ЕЕ, С62ЕЕ (ABC)
В чем причина?
След исчезает при возврате фокуса окну, при раскрытии окна в полный экран. Как убрать след?
- 
				softcreator
 - Ветеран движения
 - Сообщения: 78
 - Зарегистрирован: 04 Август 2005, 9:35
 - Контактная информация:
 
- 
				softcreator
 - Ветеран движения
 - Сообщения: 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 работает только при наличии нарисованных линий, и только до их максимальных начальных позиций.
Если решения этой проблемы нет, то может кто-нибудь подскажет, как удобнее всего решить следующую задачу.
Нужно представить данные в виде линейных графиков (с осями координат и подписями). Графики нужно сдвигать и масштабировать. Перерисовывать каждую линию и хранить ее координаты - единственный вариант?
			
			
									
						Нужно представить данные в виде линейных графиков (с осями координат и подписями). Графики нужно сдвигать и масштабировать. Перерисовывать каждую линию и хранить ее координаты - единственный вариант?
- 
				lsgsoftware
 - Ветеран
 - Сообщения: 311
 - Зарегистрирован: 08 Июль 2005, 22:04
 
