НадстрочныйТекст (SupText) Конструктор

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

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

ДополнительныйБлок1 = ДФ.ДополнительныйБлок();
ДополнительныйБлок1.Родитель = Форма1;
ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый");

Абзац1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац());
Абзац1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса, – оттуда весь сад как на ладони. ";

НадстрочныйТекст1 = Абзац1.ДобавитьДочерний(ДФ.НадстрочныйТекст());
НадстрочныйТекст1.Текст = "А вот и дорожка ведет туда… нет, обратно… нет, туда-обратно… 
|– Она обнаружила, что дорожка бежит как-то странно, зигзагами – туда-сюда… ";

Абзац2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац());
Абзац2.Стиль.Отступ = ДФ.Отступ(-35, , , );
Абзац2.Текст = "
|– Все-таки надеюсь, – говорила Алиса, шагая, – она в конце концов приведет меня… 
|Ой, ну когда же это кончится? Не дорожка, а завитушка какая-то! Ну наконец-то я вышла на прямую. 
|Нет, опять кривая. Так я и знала – привела обратно к дому. Ничего, ничего, теперь выберем дорожку попрямее.";

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