Ошибка в примере по управляющим элементам controls ???
Добавлено: 17 фев 2006, 18:13
Для осознания управляющих элементов, был прочтен хелп по VIP-у. Ничего в реализации не получается. Был создан вот такой тестовый интерфейс (screen scrTest взят из хелпа VIP-а):
-----
interface TExamples 'Тест' DoAccept,EscClose;
show at (1,1,40,15);
create view wLschet as
select *
from lschet;
screen scrTest;
bounds (,,40.5,20.1);
controls
button bounds (2,15,15,16), name=btn1, cmYes, 'OK'
('Все сделали', hcButton1, scButton1): Default;
edit bounds (14, 3, 34, 4), name=field1, s1 ('Нажми сюда', hcEdit1, scEdit1) : noProtect;
label bounds (2, 3, 12, 4), name=tla1, '~П~оле s1:';
checkboxes bounds (2, 6, 12, 7), name=cb1, i1 ('Выбери всех', , ) :
[list 'Item 1.1', 'Item 1.2'], noProtect;
radiobuttons bounds (20, 6, 35, 17), name=rb1, i2 ('Выбери меня', , ) :
[list 'Item 2.1', 'Item 2.2'];
end;
end.
-----
Скажите в чем ашибка?
Компилятор выдает:
Ожидаелся идентификатор или ключевое слово (стр.9, поз.3 в examp.vip)
bounds (,,40.5,20.1);
^
-----
interface TExamples 'Тест' DoAccept,EscClose;
show at (1,1,40,15);
create view wLschet as
select *
from lschet;
screen scrTest;
bounds (,,40.5,20.1);
controls
button bounds (2,15,15,16), name=btn1, cmYes, 'OK'
('Все сделали', hcButton1, scButton1): Default;
edit bounds (14, 3, 34, 4), name=field1, s1 ('Нажми сюда', hcEdit1, scEdit1) : noProtect;
label bounds (2, 3, 12, 4), name=tla1, '~П~оле s1:';
checkboxes bounds (2, 6, 12, 7), name=cb1, i1 ('Выбери всех', , ) :
[list 'Item 1.1', 'Item 1.2'], noProtect;
radiobuttons bounds (20, 6, 35, 17), name=rb1, i2 ('Выбери меня', , ) :
[list 'Item 2.1', 'Item 2.2'];
end;
end.
-----
Скажите в чем ашибка?
Компилятор выдает:
Ожидаелся идентификатор или ключевое слово (стр.9, поз.3 в examp.vip)
bounds (,,40.5,20.1);
^