Курсор.Текущий (Cursor.Current) Свойство

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

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

Курсор1 = Ф.Курсор();
Сообщить("Курсор1.Текущий.Позиция.Икс = " + Курсор1.Текущий.Позиция.Икс);
Сообщить("Курсор1.Текущий.Позиция.Игрек = " + Курсор1.Текущий.Позиция.Игрек);
Сообщить("Курсор1.Текущий.Размер.Ширина = " + Курсор1.Текущий.Размер.Ширина);
Сообщить("Курсор1.Текущий.Размер.Высота = " + Курсор1.Текущий.Размер.Высота);

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

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

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

Курсор1 = Ф.Курсор();

Сообщить(?(Курсор1.Текущий.Размер.Ширина >= 0 и Курсор1.Текущий.Размер.Высота >= 0, "", "!!! ") + "Курсор.Текущий (Cursor.Current) Свойство" + " " + ТекущаяДата());