Вверх ↑
Разработчик
Ответов: 26109
Рейтинг: 2124
#1: 2008-05-15 21:43:01 ЛС | профиль | цитата
Валерий, самое поростое, вот так



Add(MainForm,5728574,98,252)
{
Left=20
Top=105
}
Add(StringTableMT,9461323,224,224)
{
Left=15
Top=15
Width=330
Height=210
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(FileName)
}
Add(Button,1888355,105,371)
{
Left=175
Top=235
Caption="Save"
link(onClick,193082:doFileExists,[])
}
Add(IndexToChanel,12086427,224,350)
{
Point(Index)
Point(Data)
link(onEvent1,4583081:doWork2,[])
link(onEvent2,11900815:doString,[])
link(Data,4122001:Var2,[])
}
Add(Message,12920257,329,357)
{
Caption="Внимание!"
Type=3
Point(onYES)
Point(onNO)
link(onYES,1403469:doData,[])
link(onNO,12687632:doExecute,[])
}
Add(FormatStr,11900815,280,357)
{
Mask="Файл %1 существует.
Перезаписать существющий файл?"
link(onFString,12920257:doMessage,[])
}
Add(SDialog,12687632,434,371)
{
Filter="Файлы таблиц *.tbl|*.tbl"
link(onExecute,8671223:doWork3,[(487,377)])
}
Add(Memory,10777789,168,252)
{
Default=String(probe.tbl)
link(onData,9461323:doSave,[])
}
Add(FileTools,193082,168,350)
{
link(onEnd,12086427:doEvent,[])
link(FileName,9252296:Var2,[])
}
Add(GetDataEx,9252296,161,315)
{
link(Data,10777789:Value,[])
}
Add(DoData,1403469,385,364)
{
link(onEventData,4583081:doWork3,[(438,370)])
link(Data,4122001:Var3,[(391,324)])
}
Add(GetDataEx,4122001,224,315)
{
Angle=3
link(Data,9252296:Var3,[])
}
Add(HubEx,4583081,434,343)
{
link(onEvent,8671223:doWork2,[])
}
Add(HubEx,8671223,483,343)
{
Angle=3
link(onEvent,10777789:doValue,[(487,199)(156,199)(156,258)])
}

карма: 22

1
Голосовали:Валерий