ОбластьСсылки.Длина (LinkArea.Length) Свойство

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

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

НадписьСсылка1 = Ф.НадписьСсылка();
Форма1.ЭлементыУправления.Добавить(НадписьСсылка1);
НадписьСсылка1.Текст = "Пример гиперссылок:" + Символы.ПС + "Первая ссылка - www.kixforms.org." + Символы.ПС + "Вторая ссылка - oscript.io.";
НадписьСсылка1.Границы = Ф.Прямоугольник(10, 10, 260, 100);
НадписьСсылка1.СтильГраницы = Ф.СтильГраницы.Одинарная;
ОбластьСсылки1 = Ф.ОбластьСсылки(0, 6);
НадписьСсылка1.ОбластьСсылки = ОбластьСсылки1;

Сообщить("ОбластьСсылки1.Длина = " + ОбластьСсылки1.Длина);
	
Ф.ЗапуститьОбработкуСобытий();

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

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

НадписьСсылка1 = Ф.НадписьСсылка();
Форма1.ЭлементыУправления.Добавить(НадписьСсылка1);
НадписьСсылка1.Текст = "Пример гиперссылок:" + Символы.ПС + "Первая ссылка - www.kixforms.org." + Символы.ПС + "Вторая ссылка - oscript.io.";
НадписьСсылка1.Границы = Ф.Прямоугольник(10, 10, 260, 100);
НадписьСсылка1.СтильГраницы = Ф.СтильГраницы.Одинарная;
ОбластьСсылки1 = Ф.ОбластьСсылки(0, 6);
НадписьСсылка1.ОбластьСсылки = ОбластьСсылки1;

Сообщить(?(ОбластьСсылки1.Длина = 6, "", "!!! ") + "ОбластьСсылки.Длина (LinkArea.Length) Свойство" + " " + ТекущаяДата());