Помогите чайнику сделать простенькую схему

Вверх ↑

Форумы ПрочееПомогите чайнику сделать простенькую схему ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 3

Рейтинг: 0

#1: 2015-02-16 15:46:44 ЛС | профиль | цитата

Здравствуйте, помогите сделать простую схему:

Чтобы при нажатии на Label открывался список, состоящий из двух строк с разным текстом (Желательно со строчкой(определенной) из txt файла который уже имеется), и при нажатии на одну из строк, в Label текст менялся на текст из строки, а список закрывался. И нет, компоненты типа ComboBox не подходят, только Label.

карма: 0

Разработчик

Ответов: 26153

Рейтинг: 2127

#2: 2015-02-16 16:03:42 ЛС | профиль | цитата

Как-то так можно -- test_111.zip

карма: 22

файлы: 1

test_111.zip [646B] [362]

Ответов: 1535

Рейтинг: 176

#3: 2015-02-16 16:22:18 ЛС | профиль | цитата

Или так:

Add(Label,15608492,217,133)
{
 Left=65
 Top=45
 Caption="Label 0"
 CaptionOnClick=0
 link(onClick,12391534:doReplace,[])
}
Add(PopupMenuEx,1669894,336,119)
{
 Bitmaps=[]
 Point(MenuItemName)
 link(MenuItemName,15608492:doText,[(380,132)(380,175)(206,175)(206,139)])
}
Add(StrList,12310950,259,70)
{
 Strings=#7:Label 0|7:Label 1|7:Label 2|7:Label 3|
 Point(doGetIndex)
}
Add(Hub,67000,301,133)
{
 link(onEvent1,1669894:doInit,[])
 link(onEvent2,1669894:doPopupHere,[(325,146)(325,125)])
}
Add(Replace,12391534,259,133)
{
 link(onReplace,67000:doEvent1,[])
 link(Str,12310950:Text,[])
}

Для загрузки или сохранения пунктов в strList есть соответствующие точки (doLoad, doSave).

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 3

Рейтинг: 0

#4: 2015-02-16 21:18:22 ЛС | профиль | цитата

nesco писал(а):

Спасибо, ваш вариант хорош, но этот

ser_davkin писал(а):

мне больше понравился.
------------ Дoбавленo в 21.18:
Объясните пожалуйста, почему вот в таком виде не с первого раза активируется!?!? http://www.hiasm.com/forum_serv.php?q=56&id=3897 (я выкладываю в первый раз, и видимо не правильно...)

карма: 0

Ответов: 1535

Рейтинг: 176

#5: 2015-02-16 22:08:37 ЛС | профиль | цитата

Loner писал(а):

почему вот в таком виде не с первого раза активируется!?

Потому, что меню нужно в начале инициализировать списком и только потом разворачивать. Т.е. разворачивать в последнюю очередь. У Вас наоборот.
(Ссылку в тег URL нужно заправлять. В редакторе сообщений всё есть.)

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 3

Рейтинг: 0

#6: 2015-02-16 22:32:42 ЛС | профиль | цитата

ser_davkin,Я врубииииился, спасибо огромное. Я думал, что в элементе Hub как минимум выходы просто так расположены, а оказывается, они и включаются поочередно! (Это я типа объяснил для таких же как я)) ) Все, теперь от «Бага» избавился, огромное спасибо!
------------ Дoбавленo в 22.32:
Теперь бы сделать так, чтобы это всё куда нибудь сохранялось...

карма: 0

Ответов: 1535

Рейтинг: 176

#7: 2015-02-17 07:08:59 ЛС | профиль | цитата

Loner писал(а):

чтобы это всё куда нибудь сохранялось...

Add(MainForm,2953706,126,224)
{
 Point(onClose)
 link(onCreate,4132326:doEvent1,[])
 link(onClose,15523947:doSum,[(170,251)(170,202)])
}
Add(Label,15608492,336,245)
{
 Left=65
 Top=45
 Cursor=2
 Caption="Label 0"
 Underline=0
 CaptionOnClick=0
 link(onClick,12391534:doReplace,[])
}
Add(PopupMenuEx,1669894,455,231)
{
 Bitmaps=[]
 Point(MenuItemName)
 link(MenuItemName,476147:doEvent1,[(501,244)(501,302)(187,302)(187,279)])
}
Add(StrList,12310950,378,168)
{
 Strings=#7:Label 0|7:Label 1|7:Label 2|7:Label 3|
 Point(doGetIndex)
}
Add(Hub,67000,420,245)
{
 link(onEvent1,1669894:doInit,[])
 link(onEvent2,1669894:doPopupHere,[(444,258)(444,237)])
}
Add(Replace,12391534,378,245)
{
 link(onReplace,67000:doEvent1,[])
 link(Str,12310950:Text,[])
}
Add(Ini,13593384,238,245)
{
 FileName="menu.ini"
 Section="menu"
 Key="select"
 Type=1
 link(onResult,16300571:doCompare,[])
}
Add(HubEx,9198857,321,245)
{
 link(onEvent,15608492:doText,[])
}
Add(Hub,476147,203,273)
{
 link(onEvent1,13593384:doWrite,[(227,279)(227,258)])
 link(onEvent2,9198857:doWork3,[(325,286)])
}
Add(If_else,16300571,280,245)
{
 Type=5
 link(onTrue,9198857:doWork2,[])
}
Add(Ini,5523078,238,189)
{
 FileName="menu.ini"
 Section="menu"
 Key="list"
 Type=1
 link(onResult,10152987:doCompare,[])
}
Add(Hub,4132326,203,238)
{
 link(onEvent1,5523078:doRead,[(227,244)(227,195)])
 link(onEvent2,13593384:doRead,[])
}
Add(ArraySum,15523947,182,196)
{
 link(onSum,5523078:doWrite,[])
 link(Array,12310950:Array,[(188,159)(420,159)(420,232)(398,232)])
}
Add(If_else,10152987,280,189)
{
 Type=5
 link(onTrue,8614109:doReplace,[])
}
Add(Replace,8614109,322,189)
{
 SubStr=";"
 DestStr="
"
 link(onReplace,12310950:doText,[])
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Форумы ПрочееПомогите чайнику сделать простенькую схему ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)