Грубо говоря для того, что-бы все вышло как надо, как я задумал, нужно динамически в определенное место формы добавить ListBox. Вот это было бы классно. Дальше связи показать через
Add(Img_Line,374166,245,336)
{
}
Под словом динамически понимается: на форме я не помещаю этого элемента при конструировании, он выводится по клику на листбоксе со списком таблиц. Можно ТАКОЕ сделать?
Пока у меня вот это получилось (нажмите меню, Таблица-Добавить:
Add(MainForm,15114789,245,21)
{
Left=20
Top=105
Width=750
Height=465
}
Add(IndexToChanel,14689582,133,112)
{
Count=30
link(onEvent7,9471186:doDraw,[(226,160)(226,272)])
}
Add(Menu,5694909,84,105)
{
Menu=#4:Файл|1:(|7:Создать|7:Открыть|7:Закрыть|5:Выход|1:)|7:Таблица|1:(|8:Добавить|7:Удалить|6:Строки|1:(|8:Добавить|7:Удалить|13:Редактировать|1:)|7:Колонки|1:(|8:Добавить|7:Удалить|5:Связи|1:(|8:Добавить|7:Удалить|1:)|1:)|1:)|7:Запросы|1:(|7:Выбрать|1:(|7:Запрос1|7:Запрос2|1:)|9:Составить|1:)|6:Помощь|1:(|7:Таблицы|7:Колонки|6:Строки|5:Связи|10:Об авторах|1:(|6:Леонид|1:)|1:)|
Point(onSelectNum)
link(onSelectNum,14689582:doEvent,[])
}
Add(Memory,8133708,420,28)
{
Default=Integer(250)
}
Add(Img_Rectangle,9471186,287,266)
{
BgColor=32768
Style=1
Point2AsOffset=0
DrawSource=1
link(onDraw,12024776:doDraw,[])
link(Bitmap,10645217:Var3,[(293,163)])
link(Point1,11729885:Point,[])
link(Point2,12144205:Point,[(307,163)(335,163)])
}
Add(Img_Text,12024776,343,266)
{
Font=[MS Sans Serif,8,0,15793151,1]
Text="Таблица"
DrawSource=1
link(Bitmap,10645217:Var2,[(349,217)(251,217)])
link(X,1173430:Value,[(363,163)(384,163)])
link(Y,8133708:Value,[(370,163)(426,163)])
}
Add(PointXY,11729885,294,28)
{
X=100
Y=250
}
Add(PointXY,12144205,329,28)
{
X=100
Y=100
}
Add(GetDataEx,10645217,238,154)
{
link(Data,15114789:Handle,[])
}
Add(Memory,1173430,378,28)
{
Default=Integer(100)
}
Поиск
Друзья
Администрация