Вверх ↑
Ответов: 458
Рейтинг: 159
#1: 2021-08-29 23:32:51 ЛС | профиль | цитата
Serascer писал(а):
У меня такой вопрос. Можете подсказать как сделать добавление текста в FormatSTR и далее в MEMO с помощью CheckBox. Т.е. есть несколько флажков например USB, USB 3.2, Type-C и так далее. Нужно ставить галочку напротив каждого из нужных и этот текст добавляется. Объясню для чего это нужно: есть внешние накопители ССД или жесткие диски с несколькими портами. И в описании товара нужно их перечислить. Я могу сделать это просто с ComboBox, но это не всегда удобно, проще галочки поставить )

Serascer, когда-то схожая задача была, пошёл путём "колхоза" нагородил такой вариант, может и пригодится такая идея
Пример

Add(ComboBox,11505514,91,182)
{
Left=15
Top=75
Width=180
Height=21
Strings=#1:1|1:2|1:3|
}
Add(MainForm,2953706,35,35)
{
Top=2
Width=447
Height=201
Position=1
link(onCreate,9572740:doSetFocus,[])
}
Add(ListBox,8924501,224,77)
{
Left=15
Top=45
Width=180
Height=21
Font=[MS Sans Serif,10,0,0,204]
Name="sp+"
Strings=#3:USB|5:USB 2|7:USB 3.2|6:Type-C|
MultiSelect=0
Point(SelectArray)
Point(doHeight)
}
Add(Button,13807484,84,105)
{
Left=175
Top=47
Width=18
Height=17
Font=[Webdings,10,0,0,2]
Caption="6"
Point(doCaption)
link(onClick,5569828:doEvent1,[])
}
Add(Switch,2213378,168,105)
{
DataOn=Integer(70)
DataOff=Integer(21)
Point(onOn)
Point(onOff)
link(onSwitch,8924501:doHeight,[])
link(onOff,6444800:doEvent1,[(208,125)(208,139)])
}
Add(ComboBox,9572740,91,21)
{
Left=15
Top=10
Width=180
Height=21
Strings=#3:USB|5:USB 2|7:USB 3.2|6:Type-C|
Text="USB"
Point(doSetFocus)
}
Add(Switch,12421892,42,105)
{
DataOn=String(4)
DataOff=String(6)
link(onSwitch,13807484:doCaption,[])
}
Add(Hub,5569828,126,105)
{
link(onEvent1,2213378:doSwitch,[])
link(onEvent2,12421892:doSwitch,[(148,118)(148,93)(29,93)(29,111)])
}
Add(Memo,16717496,539,175)
{
Left=215
Top=10
Width=205
Height=55
}
Add(ArrayEnum,3791885,245,161)
{
link(onItem,14622725:doCompare,[])
link(onEndEnum,3339556:doData,[(292,174)(292,202)])
link(Array,8924501:SelectArray,[])
}
Add(ArrayRW,8125505,357,161)
{
link(onRead,3320824:doStrCat,[])
link(Array,8924501:Array,[(363,130)(244,130)])
link(Index,3791885:Index,[(370,153)(345,153)(345,212)(258,212)])
}
Add(If_else,14622725,301,161)
{
Op2=Integer(1)
link(onTrue,8125505:doRead,[])
}
Add(Hub,6444800,217,133)
{
OutCount=3
link(onEvent2,13927386:doClear,[])
link(onEvent3,3791885:doEnum,[(238,153)(238,167)])
}
Add(StrCat,13927386,483,133)
{
Point(doClear)
link(Str1,8955665:Var1,[(489,120)(474,120)(474,180)])
}
Add(DoData,3339556,483,196)
{
PColor(onEventData,16711680)
link(onEventData,16717496:doText,[])
link(Data,8955665:Var2,[])
}
Add(StrCat,3320824,413,161)
{
Str2="; "
Point(doClear)
link(onStrCat,13927386:doStrCat,[(467,167)(467,139)])
}
Add(GetDataEx,8955665,483,175)
{
link(Data,13927386:Result,[])
}

карма: 4

0
Редактировалось 1 раз(а), последний 2021-08-29 23:34:40