Вверх ↑
Ответов: 1291
Рейтинг: 47
#1: 2023-03-31 13:51:05 ЛС | профиль | цитата
Как применять "Кисть текстурной заливки" ? При использовании более одного экземпляра - Run Time Еrror
Вставить свою картинку (вставлял божью коровку от Sla8a).

Add(MainForm,2953706,21,98)
{
Height=400
Point(Handle)
Point(onPaint)
}
Add(Bitmap,1780797,483,196)
{
@Hint=#18:Вставить картинку!|
}
Add(Timer,16100337,126,280)
{
Interval=330
link(onTimer,8025807:doRefresh,[])
}
Add(GP_Canvas,13164349,287,280)
{
Name="myCanvas"
link(onSet,2115229:doSet,[])
link(Bitmap,8025807:Bitmap,[(293,268)(261,268)(261,324)(230,324)])
}
Add(PaintBox,8025807,224,280)
{
Left=160
Top=40
Width=345
Height=295
Align=5
Color=-16777196
ClearBeforeDraw=0
link(onBeforeDraw,13164349:doSet,[])
}
Add(GP_BrushTexture,2115229,476,280)
{
Index="1"
Canvas="myCanvas"
link(onSet,855326:doDraw,[])
link(Picture,8690138:Var2,[])
AddHint(-2,-30,21,13,Index)
}
Add(GP_Rectangle,855326,518,280)
{
Width=200
Hieght=200
View=2
Brush="1"
Canvas="myCanvas"
link(onDraw,4231292:doSet,[])
}
Add(GP_BrushTexture,4231292,567,280)
{
WrapMode=1
Index="2"
Canvas="myCanvas"
link(onSet,6505614:doDraw,[])
link(Picture,8690138:Var3,[(580,257)])
AddHint(-2,-30,21,13,Index)
}
Add(GP_Rectangle,6505614,616,280)
{
X=200
Width=200
Hieght=200
View=2
Brush="2"
Canvas="myCanvas"
}
Add(GetDataEx,8690138,483,252)
{
link(Data,1780797:Bitmap,[])
}


--- Добавлено в 2023-03-31 14:29:22

Если картинку вставить в сами элементы, то тогда все нормально. Но тогда ее не получится менять программно на более чем одном элементе.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
1
Голосовали:sla8a
Редактировалось 1 раз(а), последний 2023-03-31 14:29:22