Add(Edit,10740004,210,105)
{
Left=5
Top=5
Width=75
Text="Данные 1"
}
Add(Edit,9417993,217,140)
{
Left=5
Top=30
Width=75
Text="Данные 2"
}
Add(Edit,3898965,294,77)
{
Left=5
Top=55
Width=75
Text="Данные 3"
}
Add(Button,719350,154,196)
{
Left=90
Top=10
Width=95
Caption="Создаем тип"
link(onClick,4568526:doCreate,[])
}
Add(Type_Create,4568526,210,196)
{
Vars=#2:w1|2:w2|
link(onCreate,16279197:doWork1,[])
link(w1,10740004:Text,[])
link(w2,9417993:Text,[])
}
Add(Button,969098,406,399)
{
Left=85
Top=145
Width=95
Caption="Загружаем тип"
link(onClick,15435995:doLoadFromFile,[])
}
Add(Edit,3229386,581,371)
{
Left=195
Top=120
Width=75
Text=""
}
Add(Edit,3902958,581,413)
{
Left=195
Top=145
Width=75
Text=""
}
Add(Edit,2730521,581,455)
{
Left=195
Top=170
Width=75
Text=""
}
Add(Type_MultiData,3252529,525,406)
{
Vars=#2:w1|2:w2|2:w3|
Point(GType)
link(w1,3229386:doText,[(569,412)(569,377)])
link(w2,3902958:doText,[])
link(w3,2730521:doText,[(569,426)(569,461)])
link(GType,15435995:FType,[(531,394)(496,394)(496,436)(461,436)])
}
Add(Type_Add,6808371,287,133)
{
Vars=#5:GType|2:w3|
link(GType,1329086:Var1,[(293,128)(255,128)])
link(w3,3898965:Text,[])
}
Add(Button,1933193,539,203)
{
Left=190
Top=30
Width=95
Caption="Читаем из типа"
link(onClick,5261150:doSeparate,[])
}
Add(Edit,14873233,651,168)
{
Left=300
Top=5
Width=75
Text=""
}
Add(Edit,7974351,651,210)
{
Left=300
Top=30
Width=75
Text=""
}
Add(Edit,11473513,651,252)
{
Left=300
Top=55
Width=75
Text=""
}
Add(Type_MultiData,5261150,595,203)
{
Vars=#2:w1|2:w2|2:w3|
Point(GType)
link(w1,14873233:doText,[(639,209)(639,174)])
link(w2,7974351:doText,[])
link(w3,11473513:doText,[(639,223)(639,258)])
link(GType,5584249:Var3,[(601,191)(491,191)(491,240)])
}
Add(GetDataEx,1329086,249,235)
{
Angle=3
link(Data,4568526:FType,[(216,240)])
}
Add(Type_Save,2179404,441,189)
{
FileName="Type.Type"
link(GType,5584249:Var1,[(447,178)(427,178)])
}
Add(Type_Load,15435995,455,392)
{
FileName="Type.Type"
Point(onError)
Point(onLoad)
link(onLoad,3252529:doSeparate,[])
}
Add(GetDataEx,5584249,421,235)
{
Angle=3
link(Data,1329086:Var3,[])
}
Add(Button,798115,357,252)
{
Left=90
Top=45
Width=95
Caption="Сохранить тип"
link(onClick,5125092:doWork3,[(403,258)])
}
Add(Check,702472,343,196)
{
@Hint=#54:Если включить то выдает ошибку при сохранении. Почему?|
Check=1
link(onEvent,5125092:doWork2,[])
}
Add(HubEx,5125092,399,196)
{
link(onEvent,2179404:doSaveToFile,[])
}
Add(ChildPanel,16279197,287,196)
{
link(onEvent1,702472:doWork,[])
}
BEGIN_SDK
Add(EditMulti,136100,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,6808371:doAdd,[(73,27)(73,97)])
}
Add(Panel,10017821,35,105)
{
Left=35
Top=105
Width=90
Height=33
}
Add(Edit,3898965,133,35)
{
Left=5
Top=5
Width=75
Text="Данные 3"
}
Add(Type_Add,6808371,126,91)
{
Vars=#5:GType|2:w3|
GTypeEnabled=1
link(onAdd,136100:onEvent1,[(240,97)(240,27)])
link(w3,3898965:Text,[])
}
END_SDK
P.S. И под FPC компилируется, но при сохранении программа вылетает