Вверх ↑
Ответов: 2237
Рейтинг: 676
#1: 2022-11-16 19:59:20 ЛС | профиль | цитата
Aziz писал(а):
пытался сделать универсальный каркас
Тогда понятен такой подход.
Aziz писал(а):
Согласитесь, с альфа каналом это вроде как более функц. схема, чем без него? Или нет?
Не понимаю зачем он. Вот как вариант (вставить в Bitmap изображение стрелочного индикатора из вашей схемы):

Add(MainForm,2953706,441,252)
{
}
Add(PaintBox,16731281,539,315)
{
Left=95
Top=55
Width=180
Height=94
link(onBeforeDraw,11579262:doOperation,[])
}
Add(Bitmap,16500501,644,252)
{
}
Add(Img_Bmp,9586560,637,315)
{
link(Bitmap,16731281:Bitmap,[(643,305)(630,305)(630,361)(545,361)])
link(SourceBitmap,16500501:Bitmap,[])
}
Add(ScrollBar,7033173,483,315)
{
Top=134
Width=218
Align=4
Max=35
link(onPosition,10946406:doWork2,[])
}
Add(HubEx,10946406,521,315)
{
link(onEvent,16731281:doRefresh,[])
}
Add(Button,2384176,329,315)
{
Left=155
Top=215
Width=69
Height=25
Caption="TEST"
link(onClick,12381031:doTimer,[])
}
Add(Timer,12381031,371,315)
{
Interval=100
Enable=1
link(onTimer,6003918:doNext,[])
}
Add(CounterEx,6003918,413,315)
{
Max=35
link(onNext,7101300:doEvent1,[])
}
Add(Hub,7101300,455,315)
{
link(onEvent1,7033173:doPosition,[])
link(onEvent2,10946406:doWork3,[(525,328)])
}
Add(Math,11579262,588,315)
{
OpType=2
Op2=-177
link(onResult,9586560:doDraw,[])
link(Op1,7033173:Position,[(594,306)(533,306)(533,359)(489,359)])
AddHint(-14,-31,45,13,Op2)
}
Aziz писал(а):
А что еще нарыли?

Да сложно в такой схеме рыть. Чтоб понять логику каких-то участков, приходится распутывать клубки связей, интерес пропадает.
Aziz писал(а):
за 10+ лет что я здесь, так никто и не выложил ничего подобного бесплатно

Так проще самому нарисовать, что у вас и сделано. Чем под каждую "хотелку" элемент делать. Компоненты из вкладки Графики вполне сносно справляются с большинством задач.
карма: 11

0