Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2011-06-17 18:19:34 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 21:13:06
карма: 0

0
Ответов: 3889
Рейтинг: 362
#2: 2011-06-17 18:23:20 ЛС | профиль | цитата
code_24407.txt
карма: 1

0
файлы: 1code_24407.txt [458B] [113]
Гость
Ответов: 17029
Рейтинг: 0
#3: 2011-06-17 18:31:08 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 21:13:06
карма: 0

0
Ответов: 3889
Рейтинг: 362
#4: 2011-06-17 19:01:20 ЛС | профиль | цитата
Рисовать надо не на окне, а на PaintBox
------------ Дoбавленo в 19.01:
Ваша суперсложная схема с другой точки зрения:


Add(MainForm,12061819,77,189)
{
Caption="Пример использования Img_Point"
}
Add(PaintBox,16084042,203,217)
{
Left=10
Top=10
Width=370
Height=255
Align=5
ClearBeforeDraw=0
Point(onMouseMove)
link(onBeforeDraw,346228:doDraw,[(247,223)(247,286)(191,286)(191,349)])
link(onMouseMove,16084042:doRefresh,[(278,230)(278,189)(191,189)(191,223)])
}
Add(Img_Gradient,346228,203,343)
{
Point(Point1)
Point(Point2)
link(Bitmap,16084042:Bitmap,[])
link(Point2,4781423:Point,[(223,327)(328,327)])
}
Add(MouseEvent,12023278,322,224)
{
}
Add(PointXY,4781423,322,280)
{
link(X,12023278:MouseX,[])
link(Y,12023278:MouseY,[])
}


карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2011-06-17 19:02:37 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 21:13:06
карма: 0

0
Ответов: 3889
Рейтинг: 362
#6: 2011-06-17 19:11:11 ЛС | профиль | цитата
г. Северный, Чем не устраивает PaintBox, на нём прекрасно отрисовываются картинки.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2011-06-17 19:27:14 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 21:13:07
карма: 0

0
Разработчик
Ответов: 26209
Рейтинг: 2137
#8: 2011-06-17 19:37:35 ЛС | профиль | цитата
г. Северный писал(а):
как обновить элемент MainForm, а то при рисовании элемента img_gradient надо допустим окно переместить куда-нибудь, только тогда пропанет
рисунок

А это не пытались прикрутить


Add(RedrawManager,12097944,133,210)
{
EraseMode=0
}

------------ Дoбавленo в 19.37:
Если применить RedrawManager без повтороной перерисовки, то окно контрола очистится, но только в случае отрисовки прямо на хандле или контексте окна, если отрисовывать на битмапе, то и очищать надо битмап
карма: 22

0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)