Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-10-19 17:12:34 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 11:34:22
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#2: 2008-10-19 17:26:41 ЛС | профиль | цитата
сделать аналог MainMenu на Label+PopupMenu не получится
карма: 27
0
Разработчик
Ответов: 26214
Рейтинг: 2138
#3: 2008-10-19 17:31:19 ЛС | профиль | цитата
Полностью как меню не получится, но что-то подобное можно. Вот, например, но без селектора выбора


Add(MainForm,2953706,189,77)
{
Point(Left)
Point(Top)
}
Add(Label,11377201,266,77)
{
Left=70
Top=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Item_2"
AutoSize=1
Point(Width)
Point(Height)
Point(Left)
Point(Top)
Point(onMouseDown)
link(onMouseDown,16034418:doEvent,[])
}
Add(PopupMenu,3983775,357,273)
{
Menu=#6:Item_A|6:Item_B|
}
Add(MathParse,13564676,280,168)
{
MathStr="%1 + %2 + 4"
Point(reCalc)
link(X1,2953706:Left,[(286,138)(195,138)])
link(X2,11377201:Left,[])
}
Add(MathParse,2387740,329,168)
{
DataCount=3
MathStr="%1 + %2 + %3 + 30"
Point(reCalc)
link(X1,11377201:Height,[(335,138)(286,138)])
link(X2,11377201:Top,[(342,133)(300,133)])
link(X3,2953706:Top,[(349,126)(202,126)])
}
Add(PointXY,9436197,287,224)
{
link(X,13564676:reCalc,[])
link(Y,2387740:reCalc,[(300,212)(342,212)])
}
Add(DoData,8330001,287,273)
{
link(onEventData,3983775:doPopup,[])
link(Data,9436197:Point,[])
}
Add(IndexToChanel,16034418,329,84)
{
link(onEvent1,8330001:doData,[(373,90)(373,50)(249,50)(249,279)])
}

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#4: 2008-10-19 17:46:12 ЛС | профиль | цитата
Werder, code_10334.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_10334.txt [915B] [276]
Ответов: 5227
Рейтинг: 587
#5: 2008-10-19 20:55:08 ЛС | профиль | цитата
Werder, наверно тогда этот код когда то дядя Вася делал

если нельзя но очень хочется то можно

MainMenu на Label+PopupMenu code_10335.txt


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_10335.txt [9.3KB] [557]
Разработчик
Ответов: 26214
Рейтинг: 2138
#6: 2008-10-19 21:01:40 ЛС | профиль | цитата
Ну и куда оно все у вас выводится
карма: 22

0
Ответов: 5227
Рейтинг: 587
#7: 2008-10-19 21:04:50 ЛС | профиль | цитата
А куда должно
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26214
Рейтинг: 2138
#8: 2008-10-19 21:12:13 ЛС | профиль | цитата
andrestudio писал(а):
А куда должно

Ну не вверх, наверное. Посмотри в любом приложении, куда должно выводиться выпадающее меню
карма: 22

0
Ответов: 1161
Рейтинг: 160
#9: 2008-10-19 21:12:42 ЛС | профиль | цитата
Интересно, но похоже сдвиг в версии b172 по горизонтали произошел
В b167(ну и отсталый я человек ) эта же схема работает превосходно
карма: 0

0
Ответов: 5227
Рейтинг: 587
#10: 2008-10-19 21:17:29 ЛС | профиль | цитата
nesco, сейчас только эти Label(ы) установил вместо BitBtn в HiAsm v3.66 b169, полёт нормальный, а в новых версиях летает у Вас
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1161
Рейтинг: 160
#11: 2008-10-19 21:48:48 ЛС | профиль | цитата
Похоже баг с PosWindow с получением значения CurrentLeft
карма: 0

0
Разработчик
Ответов: 26214
Рейтинг: 2138
#12: 2008-10-19 21:55:45 ЛС | профиль | цитата
andrestudio, ну вот не грузи мои уши, и не смеши мои тапочки



Объяснить где ошибка, или сам догадаешься. Подсказка кроется в моем примере

------------ Дoбавленo:


LainX писал(а):
Похоже баг с PosWindow с получением значения CurrentLeft

А кто обновлялся с SVN, там должна быть исправленная версия (хотя, у меня с SVN обновление). Я стараюсь редко обращаться к таким компоентам, больше к стандартным точкам
карма: 22

0
файлы: 1label_menu_001.png [7.2KB] [470]
Ответов: 9906
Рейтинг: 351
#13: 2008-10-19 22:09:27 ЛС | профиль | цитата
nesco, ты у кого снобизму научился
Говорил же тебе: не учись плохому
карма: 9

0
Разработчик
Ответов: 26214
Рейтинг: 2138
#14: 2008-10-19 22:12:58 ЛС | профиль | цитата
Пошли разбирать полеты
LainX писал(а):
Похоже баг с PosWindow с получением значения CurrentLeft

А вот бага как раз и нет.
Читаем описание к точке
CurrentLeft=Содержит отступ окна слева

Что должно означать отступ от нулевых координат клиентской области родительского компонента (в данном случае, формы), а не от нулевых координат главного экрана.
Похоже, баг был раньше.
карма: 22

0
Ответов: 5227
Рейтинг: 587
#15: 2008-10-19 22:13:21 ЛС | профиль | цитата
nesco, мы что тут картинками будем обмениваться , у меня версий выше v3.66 b169 нет (посему и наезд не обоснован), но всё работает

могу тоже фотокарточку выслать

челу главное суть уловить, нужно будет адаптирует самостоятельно
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)