РисоватьСтроку(<СтрокаТекста>, <Шрифт>, <Кисть>, <X>, <Y>)
Рисует указанную текстовую строку в указанном месте с указанными объектами СплошнаяКисть (SolidBrush) и Шрифт (Font).
При создании объекта Графика (Graphics) с помощью метода СоздатьГрафику (CreateGraphics) какого либо элемента управления, код рисования графики необходимо поместить в процедуру, указанную в свойстве ПриПерерисовке (Paint) этого элемента управления.
Графика1 = Форма1.СоздатьГрафику(); Цвет1 = Ф.Цвет().Зеленый; СплошнаяКисть1 = Ф.СплошнаяКисть(Цвет1); Шрифт1 = Ф.Шрифт(, 12, Ф.СтильШрифта.Подчеркнутый); Графика1.РисоватьСтроку("Строка графики." + Символы.ПС + "Вторая строка" + Символы.ПС + "Третья строка", Шрифт1, СплошнаяКисть1, 5, 5);
Копировать Выделить всёПерем Ф, Форма1; Процедура Форма1_ПриПерерисовке() Экспорт Графика1 = Форма1.СоздатьГрафику(); Цвет1 = Ф.Цвет().Зеленый; СплошнаяКисть1 = Ф.СплошнаяКисть(Цвет1); Шрифт1 = Ф.Шрифт(, 12, Ф.СтильШрифта.Подчеркнутый); Графика1.РисоватьСтроку("Строка графики." + Символы.ПС + "Вторая строка" + Символы.ПС + "Третья строка", Шрифт1, СплошнаяКисть1, 5, 5); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.ПриПерерисовке = Ф.Действие(ЭтотОбъект, "Форма1_ПриПерерисовке"); Форма1.Отображать = Истина; Форма1.Показать(); Ф.РазрешитьСобытия = Истина; Форма1.Активизировать(); Форма1.Обновить(); Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПерем Ф, Форма1, Графика1; Процедура Форма1_ПриПерерисовке() Экспорт Графика1 = Форма1.СоздатьГрафику(); Цвет1 = Ф.Цвет().Зеленый; СплошнаяКисть1 = Ф.СплошнаяКисть(Цвет1); Шрифт1 = Ф.Шрифт(, 12, Ф.СтильШрифта.Подчеркнутый); Графика1.РисоватьСтроку("Строка графики." + Символы.ПС + "Вторая строка" + Символы.ПС + "Третья строка", Шрифт1, СплошнаяКисть1, 5, 5); Форма1.Закрыть(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.ПриПерерисовке = Ф.Действие(ЭтотОбъект, "Форма1_ПриПерерисовке"); Форма1.Отображать = Истина; Форма1.Показать(); Ф.РазрешитьСобытия = Истина; Ф.ЗапуститьОбработкуСобытий(); Сообщить(?(Графика1 <> Неопределено, "", "!!! ") + "Графика.РисоватьСтроку (Graphics.DrawString) Метод" + " " + ТекущаяДата());