Графика.Сдвинуть (Graphics.TranslateTransform) Метод

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

Перем Ф, Форма1;

Процедура Форма1_ПриПерерисовке() Экспорт
	Графика1 = Форма1.СоздатьГрафику();
	ПоХ = Форма1.КлиентШирина / 2.0;
	ПоУ = Форма1.КлиентВысота / 2.0;
	Графика1.Сдвинуть (ПоХ, ПоУ);
	Графика1.Повернуть(180);
	Графика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.КлиентШирина / 2.0;
	ПоУ = Форма1.КлиентВысота / 2.0;
	Графика1.Сдвинуть (ПоХ, ПоУ);
	Графика1.Повернуть(180);
	Графика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.TranslateTransform) Метод" + " " + ТекущаяДата());