Перевод3Д.Икс (Translate3D.X) Свойство

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;

Перевод3Д1 = ДФ.Перевод3Д();
Перевод3Д1.Икс = 10;
Перевод3Д1.Игрек = 20;
Перевод3Д1.Зет = 30;
Сообщить("Перевод3Д1.Икс = " + Перевод3Д1.Икс);
Сообщить("Перевод3Д1.Игрек = " + Перевод3Д1.Игрек);
Сообщить("Перевод3Д1.Зет = " + Перевод3Д1.Зет);

Перевод3Д2 = ДФ.Перевод3Д(30, 40, 50);
Сообщить("Перевод3Д2.Икс = " + Перевод3Д2.Икс);
Сообщить("Перевод3Д2.Игрек = " + Перевод3Д2.Игрек);
Сообщить("Перевод3Д2.Зет = " + Перевод3Д2.Зет);

Форма1.Открыть();