Вверх ↑
Разработчик
Ответов: 26066
Рейтинг: 2120
#1: 2022-01-16 19:10:56 ЛС | профиль | цитата
Serascer писал(а):
Нарисовал

Аналогично, только на элементах HiAsm
Схема

Add(MainForm,2953706,245,168)
{
Width=431
Height=330
Position=1
Point(onPaint)
link(onPaint,3661683:doDraw,[])
}
Add(Edit,4539362,147,168)
{
Left=70
Top=55
Width=110
Text=""
}
Add(Edit,13162075,189,168)
{
Left=190
Top=55
Width=135
Text=""
}
Add(ListBox,3184379,147,210)
{
Left=70
Top=90
Width=255
Height=125
}
Add(DocumentTemplate,3661683,301,189)
{
X=60
Y=45
DrawSource=2
}
BEGIN_SDK
Add(Print_Shape,12465261,-3,-3)
{
Width=275
Height=180
FrameSize=3
FrameColor=255
BackStyle=0
}
END_SDK

Этим элементом отрисовки можно очень интересные вещи рисовать прямо на контексте, не перекрывая интерфейсные элементы.

--- Добавлено в 2022-01-16 19:44:31

Не, ну можно и тупо компонентом Img_Rectangle отрисовать
Схема2


Add(MainForm,2953706,245,168)
{
Width=431
Height=330
Position=1
Point(onPaint)
link(onPaint,2428824:doDraw,[])
}
Add(Edit,4539362,147,168)
{
Left=70
Top=55
Width=110
Text=""
}
Add(Edit,13162075,189,168)
{
Left=190
Top=55
Width=135
Text=""
}
Add(ListBox,3184379,147,210)
{
Left=70
Top=90
Width=255
Height=125
}
Add(Img_Rectangle,2428824,315,189)
{
Point2AsOffset=0
DrawSource=2
Size=3
Color=255
Point(Point1)
Point(Point2)
link(Point1,12878245:Point,[(335,180)(300,180)])
link(Point2,14846977:Point,[])
}
Add(PointXY,12878245,294,126)
{
X=60
Y=45
}
Add(PointXY,14846977,336,126)
{
X=275
Y=180
}

карма: 22

0
Редактировалось 3 раз(а), последний 2022-01-16 19:44:31