Вверх ↑
Ответов: 41
Рейтинг: 0
#1: 2025-03-19 13:30:37 ЛС | профиль | цитата
strannik_nebes, спасибо!

--- Добавлено в 2025-03-19 14:20:38

strannik_nebes, спасибо за отзывчивость. Но, у меня все равно происходит глюк. Я поправил ComboBox чтобы совпадали режимы отрисовки.


Add(MainForm,13877883,336,329)
{
Width=916
Height=524
Caption="Gradient Bag"
link(onCreate,10071126:doEvent1,[])
}
Add(Img_Gradient,5157883,623,343)
{
Point1=851982
Point2=20119798
GradientStyle=4
StartColor=16777215
EndColor=255
Point(doGradientStyle)
link(onDraw,3977477:doWork2,[])
link(Bitmap,5269842:Var2,[])
}
Add(PaintBox,4328196,623,259)
{
Left=10
Top=10
Width=600
Height=465
Color=16777215
Cursor=16
MouseCapture=0
}
Add(Hub,10071126,392,343)
{
link(onEvent1,12117036:doWork2,[])
link(onEvent2,7152034:doWork2,[(410,356)(410,405)])
}
Add(GetDataEx,5269842,623,322)
{
link(Data,4328196:Bitmap,[])
}
Add(Img_Gradient,3353595,609,399)
{
Point1=852240
Point2=19923442
GradientStyle=5
StartColor=16777215
EndColor=255
Point(doGradientStyle)
link(onDraw,3977477:doWork3,[(685,405)])
link(Bitmap,5269842:Var1,[(615,327)])
}
Add(HubEx,3977477,681,343)
{
Angle=3
link(onEvent,4328196:doRefresh,[(685,306)(611,306)(611,265)])
}
Add(InfoTip,4552655,301,91)
{
Info=#30:Глюк, если выбрать SingleRight|
Font=[MS Sans Serif,8,1,255,1]
Width=148
}
Add(ComboBox,1562696,357,133)
{
Left=630
Top=50
Width=155
Height=21
Strings=#15:00 - SingleVert|16:01 - SingleHoriz|15:02 - SingleLeft|16:03 - SingleRight|15:04 - DoubleVert|16:05 - DoubleHoriz|15:06 - DoubleLeft|16:07 - DoubleRight|17:08 - AngleLeftTop|18:09 - AngleLeftBott|18:10 - AngleRightTop|19:11 - AngleRightBott|11:12 - Center|
link(onClick,14186360:doEvent1,[])
}
Add(Hub,14186360,420,140)
{
OutCount=4
link(onEvent1,5157883:doGradientStyle,[(578,146)(578,356)])
link(onEvent2,12117036:doWork1,[(571,153)])
link(onEvent3,3353595:doGradientStyle,[(552,160)(552,412)])
link(onEvent4,7152034:doWork1,[(543,167)])
}
Add(HubEx,12117036,567,343)
{
link(onEvent,5157883:doDraw,[])
}
Add(HubEx,7152034,539,399)
{
link(onEvent,3353595:doDraw,[])
}
Add(Label,1343101,462,91)
{
Left=630
Top=15
Caption="03 - SingleRight"
}
карма: 0

0
Редактировалось 1 раз(а), последний 2025-03-19 14:20:38