Add(MainForm,8240368,175,224)
{
Width=473
Height=123
Caption="str_pad"
Position=1
}
Add(Edit,15449854,308,168)
{
Left=10
Top=25
Width=120
Text="nesco"
}
Add(Label,6462822,308,126)
{
Left=45
Top=5
Caption="input"
AutoSize=1
Alignment=2
}
Add(Edit,3037108,350,168)
{
Left=135
Top=25
Width=120
Text="--=="
}
Add(Label,5437071,350,126)
{
Left=170
Top=5
Caption="pad_string"
AutoSize=1
Alignment=2
}
Add(Edit,1263994,392,168)
{
Left=260
Top=25
Width=60
Text="13"
DataType=1
}
Add(Label,5739334,392,126)
{
Left=265
Top=5
Caption="pad_length"
AutoSize=1
}
Add(ComboBox,2174022,259,168)
{
Left=330
Top=25
Width=120
Height=21
Strings=#12:STR_PAD_LEFT|13:STR_PAD_RIGHT|12:STR_PAD_BOTH|14:STR_PAD_MIRROR|
ReadOnly=0
Point(Index)
}
Add(Label,1573207,259,126)
{
Left=365
Top=5
Width=48
Height=17
Caption="pad_type"
}
Add(Button,1487632,175,266)
{
Left=330
Top=55
Width=120
TabOrder=-1
Caption="Result"
link(onClick,8508884:doEvent1,[])
}
Add(Edit,6448544,413,266)
{
Left=10
Top=55
Width=310
Font=[Courier New,11,1,0,204]
Text=""
}
Add(StrPad,6741064,343,273)
{
Point(doPadType)
link(onStrPad,6448544:doText2,[])
link(String,15449854:Text,[(349,264)(314,264)])
link(PadString,3037108:Text,[])
link(PadLength,1263994:Text,[(363,208)(398,208)])
}
Add(DoData,12216993,273,280)
{
link(onEventData,6741064:doPadType,[])
link(Data,2174022:Index,[])
}
Add(Hub,8508884,238,266)
{
link(onEvent1,12216993:doData,[(263,272)(263,286)])
link(onEvent2,6741064:doStrPad,[])
}
Разработчик
Ответов: 26163
Рейтинг: 2127
|
|||
Добавил компонент StrPad. Для нуждающихся воткнул тип Mirror. который зеркалирует правую строку. Пустой PadString будет соответствовать пробелу. Пример работы
|
|||
карма: 22 |
|