------------ Дoбавленo в 17.40:
1nd1g0 писал(а):
он собирается выводить в прокручиваемое горизонтально поле сто тысяч чиселтолько последних 30 введённых пар
------------ Дoбавленo в 17.56:
Add(MainForm,2953706,378,224)
{
}
Add(Edit,904778,462,224)
{
Left=10
Top=17
Width=60
Height=35
Font=[Arial,18,1,0,1]
Text=""
Alignment=2
ClearAfterEnter=1
}
Add(BitBtn,2896208,378,266)
{
Left=70
Top=16
Width=60
Height=38
Caption="OK"
link(onClick,12886191:doEvent1,[])
}
Add(HilightMemo,6028793,826,252)
{
@Hint=#58:Здесь находятся последние введённые пользователем 30 чисел|
Left=130
Top=16
Width=231
Height=60
Color=16314690
Font=[Arial Black,18,1,0,204]
HilightStrings=#5:0=Red|7:1=Black|5:2=Red|7:3=Black|5:4=Red|7:5=Black|5:6=Red|7:7=Black|5:8=Red|7:9=Black|6:10=Red|8:11=Black|6:12=Red|8:13=Black|6:14=Red|8:15=Black|6:16=Red|8:17=Black|6:18=Red|8:19=Black|6:20=Red|8:21=Black|6:22=Red|8:23=Black|6:24=Red|8:25=Black|6:26=Red|8:27=Black|6:28=Red|8:29=Black|6:30=Red|8:31=Black|6:32=Red|8:33=Black|6:34=Red|8:35=Black|6:36=Red|0:|
HilightFont=[Courier New,8,0,0,1]
ReadOnly=0
SmartTabs=1
Indent=1
RightMargin=1
ColorRightMargin=536870911
AutoFocus=1
AddHint(-221,-51,185,26,@Hint)
}
Add(DoData,6112955,462,266)
{
link(onEventData,14346795:doCase,[])
link(Data,904778:Text,[])
}
Add(StrCatDelim,12412645,721,273)
{
@Hint=#14:Накопитель(БД)|
Delimiter=" "
link(onStrCatDlm,6028793:doText,[])
link(Str2,12412645:Result,[(734,261)(730,261)(730,317)(727,317)])
AddHint(89,51,98,13,@Hint)
}
Add(Hub,12886191,434,266)
{
link(onEvent1,6112955:doData,[])
link(onEvent2,904778:doText2,[(456,279)(456,237)])
}
Add(Hub,13112301,644,266)
{
link(onEvent1,6028793:doClear,[(678,272)(678,265)])
link(onEvent2,12412645:doStrCatDlm,[])
}
Add(If_else,10500283,595,266)
{
Type=2
Op2=Integer(37)
link(onFalse,13112301:doEvent1,[(635,279)(635,272)])
}
Add(Convertor,10896206,553,266)
{
Mode=1
link(onResult,10500283:doCompare,[])
}
Add(Case,14346795,511,266)
{
link(onNextCase,10896206:doConvert,[])
}
Add(Button,10023479,378,308)
{
@Hint=#62:Функция для удаления последнего введённого пользователем числа|
Left=70
Top=55
Width=60
Caption="Откатить"
AddHint(78,14,197,26,@Hint)
}
Add(BitBtn,4868509,378,371)
{
@Hint=#31:Функция поиска комбинаций чисел|
Left=10
Top=95
Width=115
Height=45
Caption="Найти"
AddHint(43,80,197,13,@Hint)
}
Add(Edit,12372617,441,371)
{
Left=140
Top=110
Width=220
Text="числа стоящие перед найденными комбинациями "
AddHint(46,18,194,26,Text)
}