Вверх ↑
Ответов: 3514
Рейтинг: 184
#1: 2007-01-13 19:11:06 ЛС | профиль | цитата
Не очень понял конечно, но

Add(MainForm,8894960,19,105)
{
Left=20
Top=105
Width=655
}
Add(Label,13212042,96,14)
{
Left=235
Top=10
Width=281
Height=17
Caption="Имя диска(оно же имя файла для сохранения данных)"
}
Add(Label,8582912,299,14)
{
Left=120
Top=75
Width=110
Caption="Тип диска"
}
Add(Label,6877185,411,14)
{
Left=280
Top=75
Width=130
Caption="Кмпания производитель"
}
Add(Label,5986698,509,14)
{
Left=470
Top=75
Width=125
Caption="Содержание"
}
Add(RichEdit,10331597,516,119)
{
Left=425
Top=100
Width=225
Strings=#20:Инсталяционный диск |22:Содержит две программы|16:1)Windows XP PRO|22:2)Мелкософт Офис 2003.|
}
Add(RichEdit,5171188,299,119)
{
Left=80
Top=100
Width=180
Strings=#2:CD|
}
Add(RichEdit,2598200,411,119)
{
Left=265
Top=100
Width=155
Strings=#9:Мелкософт|
}
Add(ComboBox,9060363,96,91)
{
Left=145
Top=30
Width=445
Height=21
Strings=#14:Windows XP PRO|
link(onClick,14017626:doString,[(231,104)(231,258)])
}
Add(InfoTip,8490687,12,70)
{
Info=#37:Имена файлов для ввода вывода данных|
HAlign=0
Width=218
Height=102
}
Add(InfoTip,1246073,264,70)
{
Info=#47:Неоходимо сохранение всех данных в одном файле.|
Width=330
Height=95
}
Add(FormatStr,14017626,334,252)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,13663118:doAdd,[(374,258)(374,286)])
link(Str1,5171188:Text,[(340,205)(305,205)])
link(Str2,2598200:Text,[(347,205)(417,205)])
link(Str3,10331597:Text,[(354,205)(522,205)])
}
Add(StrList,13663118,383,280)
{
link(onChange,13663118:doSave,[(425,286)(425,356)(371,356)(371,321)])
link(FileName,9060363:String,[(396,208)(116,208)])
}

[size=-2]------ Добавлено в 19:11
Ещё вот эти фигни нужно приспособить при открытии и сохранении

Add(StrCat,11980615,96,350)
{
}
Add(BlockFind,3547243,103,413)
{
}
карма: 0
0