Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2017-01-02 12:14:45 ЛС | профиль | цитата
Леонид, второй день подряд ты ставишь меня в тупик
Зачем от высоты экрана отнимать 35, и ставить это в X-координату открытия меню -- не пойму

--- Добавлено в 2017-01-02 12:19:45

Если сильно не вылизывать, то демка лучше выглядит вот так:

Add(MainForm,2953706,322,49)
{
Width=600
Height=500
Position=1
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(onResize)
link(onResize,12160853:doEvent1,[])
}
Add(DoData,10969410,406,133)
{
link(onEventData,10229735:doMax,[])
link(Data,2953706:Width,[(412,103)(342,103)])
}
Add(DoData,10948770,504,133)
{
link(onEventData,8994016:doMax,[])
link(Data,2953706:Height,[(510,96)(349,96)])
}
Add(Hub,12160853,371,70)
{
link(onEvent1,10948770:doData,[(494,76)(494,139)])
link(onEvent2,10969410:doData,[(396,83)(396,139)])
}
Add(TrackBar,8994016,553,119)
{
Left=410
Top=45
Width=30
Align=3
Max=1000
TickCount=20
Kind=1
TickMarks=1
ThumbLength=20
Point(doMax)
}
Add(TrackBar,10229735,455,119)
{
Left=410
Top=45
Width=30
Align=4
Max=1000
TickCount=20
TickMarks=1
ThumbLength=20
Point(doMax)
}
Add(Button,5794527,322,210)
{
Left=15
Top=10
Width=74
Height=41
Caption="Show PopUp Menu"
Flat=0
link(onClick,12050451:doCalc,[])
}
Add(PopupMenuEx,8812862,511,189)
{
Menu=#9:Настройка|15:Выход из сеанса|10:Выключение|
Bitmaps=[]
Point(doPopup)
}
Add(MathParse,12050451,441,210)
{
DataCount=4
MathStr="(%1+%3) + (%2+%4)<<16"
link(onResult,8812862:doPopup,[])
link(X1,2953706:Left,[(447,187)(328,187)])
link(X2,2953706:Top,[(454,180)(335,180)])
link(X3,10229735:Position,[])
link(X4,8994016:Position,[(468,173)(559,173)])
}
Как мне кажется
карма: 9

0
Редактировалось 1 раз(а), последний 2017-01-02 12:19:45