Ссылка.Посещена (Link.Visited) Свойство

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

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

НадписьСсылка1 = Ф.НадписьСсылка();
Форма1.ЭлементыУправления.Добавить(НадписьСсылка1);
НадписьСсылка1.Текст = "Пример гиперссылки:" + Символы.ПС + "scriptcoding.ru.";
НадписьСсылка1.Границы = Ф.Прямоугольник(10, 10, 300, 100);
НадписьСсылка1.СтильГраницы = Ф.СтильГраницы.Одинарная;

КоллекцияСсылок1 = НадписьСсылка1.Ссылки;
Ссылка1 = Ф.Ссылка();
Индекс1 = КоллекцияСсылок1.Добавить(Ссылка1); // Новая ссылка должна быть добавлена в коллекцию ссылок до установки каких либо её свойств.
Ссылка1.Начало = 20;
Ссылка1.Длина = 15;
Ссылка1.Посещена = Ложь;

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

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

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

НадписьСсылка1 = Ф.НадписьСсылка();
Форма1.ЭлементыУправления.Добавить(НадписьСсылка1);
НадписьСсылка1.Текст = "Пример гиперссылки:" + Символы.ПС + "scriptcoding.ru.";
НадписьСсылка1.Границы = Ф.Прямоугольник(10, 10, 300, 100);
НадписьСсылка1.СтильГраницы = Ф.СтильГраницы.Одинарная;

КоллекцияСсылок1 = НадписьСсылка1.Ссылки;
Ссылка1 = Ф.Ссылка();
Индекс1 = КоллекцияСсылок1.Добавить(Ссылка1); // Новая ссылка должна быть добавлена в коллекцию ссылок до установки каких либо её свойств.
Ссылка1.Начало = 20;
Ссылка1.Длина = 15;
Ссылка1.Посещена = Ложь;

Сообщить(?(
Не Ссылка1.Посещена
, "", "!!! ") + "Ссылка.Посещена (Link.Visited) Свойство" + " " + ТекущаяДата());