Таймер.Метка (Timer.Tag) Свойство

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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Текст = "Форма";
Форма1.Ширина = 450;
Форма1.Высота = 200;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Таймер1 = Ф.Таймер();

Коллекция1 = Таймер1.Метка;
Коллекция1.Добавить(Форма1, "Объект");
Коллекция1.Добавить("Имя1", "Имя");
Коллекция1.Добавить(Истина, "Булево");
Коллекция1.Добавить(361.74, "Число");
Коллекция1.Добавить(Дата(2004,03,26,06,24,21), "Дата");
Сообщить("Объект.Текст = " + Таймер1.Метка.Элемент("Объект").Текст);
Сообщить("Имя = " + Таймер1.Метка.Элемент("Имя"));
Сообщить("Булево = " + Таймер1.Метка.Элемент("Булево"));
Сообщить("Число = " + Таймер1.Метка.Элемент("Число"));
Сообщить("Дата = " + Таймер1.Метка.Элемент("Дата"));
Таймер1.Метка.Удалить("Булево");
Таймер1.Метка.Добавить(Ложь, "Булево");
Сообщить("Новое Булево = " + Таймер1.Метка.Элемент("Булево")); // Новое Булево = Нет

Ф.ЗапуститьОбработкуСобытий();

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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Текст = "Форма";
Форма1.Ширина = 450;
Форма1.Высота = 200;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Таймер1 = Ф.Таймер();

Коллекция1 = Таймер1.Метка;
Коллекция1.Добавить(Форма1, "Объект");
Коллекция1.Добавить("Имя1", "Имя");
Коллекция1.Добавить(Истина, "Булево");
Коллекция1.Добавить(361.74, "Число");
Коллекция1.Добавить(Дата(2004,03,26,06,24,21), "Дата");
Таймер1.Метка.Удалить("Булево");
Таймер1.Метка.Добавить(Ложь, "Булево");

Сообщить(?(
Таймер1.Метка.Элемент("Число") = 361.74
, "", "!!! ") + "Таймер.Метка (Timer.Tag) Свойство" + " " + ТекущаяДата());