Вверх ↑
Разработчик
Ответов: 26153
Рейтинг: 2127
#1: 2014-01-03 02:26:04 ЛС | профиль | цитата
Я че-то не совсем догнал с Memo, почему это он не должен работать

Add(MainForm,2018635,294,231)
{
Width=704
Height=230
link(onCreate,5573419:doLoad,[])
}
Add(BitBtn,1689040,161,224)
{
Left=10
Top=156
Width=80
Height=35
Caption=""
Data=Integer(10)
link(onClick,668208:doEvent2,[])
}
Add(BitBtn,3356524,161,259)
{
Left=10
Top=126
Width=80
Height=30
Caption=""
Data=Integer(11)
link(onClick,668208:doEvent3,[(209,265)(209,237)])
}
Add(BitBtn,15290712,161,294)
{
Left=10
Top=96
Width=80
Height=30
Caption=""
Data=Integer(45)
link(onClick,668208:doEvent4,[(215,300)(215,244)])
}
Add(BitBtn,2346092,161,329)
{
Left=10
Top=66
Width=80
Height=30
Caption=""
Data=Integer(75)
link(onClick,668208:doEvent5,[(223,335)(223,251)])
}
Add(BitBtn,14934803,161,364)
{
Left=10
Top=36
Width=80
Height=30
Caption=""
Data=String(точно+2)
link(onClick,668208:doEvent6,[(229,370)(229,258)])
}
Add(BitBtn,3002535,161,399)
{
Left=10
Top=6
Width=80
Height=30
Caption=""
Data=String(точно-2)
link(onClick,668208:doEvent7,[(239,405)(239,265)])
}
Add(Hub,668208,252,217)
{
InCount=7
OutCount=1
link(onEvent1,5573419:doAdd,[])
}
Add(Edit,2306372,602,308)
{
Left=370
Top=35
Width=235
Text="1"
}
Add(Edit,6219434,602,483)
{
Left=370
Top=160
Width=235
Text="6"
}
Add(Edit,15244155,602,448)
{
Left=370
Top=135
Width=235
Text="5"
}
Add(Edit,10896565,602,413)
{
Left=370
Top=110
Width=235
Text="4"
}
Add(Edit,13813898,602,378)
{
Left=370
Top=85
Width=235
Text="3"
}
Add(Edit,5978167,602,343)
{
Left=370
Top=60
Width=235
Text="2"
}
Add(Hub,2802988,427,217)
{
link(onEvent1,3602231:doEnum,[(459,223)(459,314)])
link(onEvent2,5573419:doSave,[(452,230)(452,279)(354,279)(354,258)])
}
Add(Edit,5746393,161,161)
{
Left=110
Top=10
Width=560
Text=""
link(onEnter,668208:doEvent1,[(223,174)(223,223)])
}
Add(Button,14367196,658,308)
{
Left=615
Top=160
}
Add(Button,7463877,658,343)
{
Left=615
Top=135
}
Add(Button,1841599,658,378)
{
Left=615
Top=110
}
Add(Button,4156343,658,413)
{
Left=615
Top=85
}
Add(Button,12298739,658,448)
{
Left=615
Top=60
}
Add(Button,435987,658,483)
{
Left=615
Top=35
}
Add(Button,13817898,294,161)
{
Left=110
Top=165
Width=230
Caption="Очистить"
link(onClick,5573419:doClear,[(333,167)(333,230)])
}
Add(IndexToChanel,12864707,525,308)
{
Count=6
Point(Index)
link(onEvent1,2306372:doText,[])
link(onEvent2,5978167:doText,[(592,321)(592,349)])
link(onEvent3,13813898:doText,[(585,328)(585,384)])
link(onEvent4,10896565:doText,[(578,335)(578,419)])
link(onEvent5,15244155:doText,[(571,342)(571,454)])
link(onEvent6,6219434:doText,[(564,349)(564,489)])
link(Index,3602231:Index,[(531,299)(517,299)(517,348)(489,348)])
}
Add(ArrayEnum,3602231,476,308)
{
link(onItem,12864707:doEvent,[])
link(Array,5573419:Array,[(482,271)(384,271)])
}
Add(Memo,5573419,364,217)
{
Left=110
Top=35
Width=235
Height=120
FileName="1.txt"
link(onChange,2802988:doEvent1,[])
}

------------ Дoбавленo в 02.26:
Ну не нравится Memo, можно его заменить на ListBox, но StrList там совсем не нужен
карма: 22

0