Graphics.CopyFromScreen Method

Синтаксис

КопироватьСЭкрана(<XИсходного>, <YИсходного>, <XКонечного>, <YКонечного>, <Размер>)

Параметры

XИсходного (обязательный): Тип: Число.; Координата X точки в верхнем левом углу исходного прямоугольника.
YИсходного (обязательный): Тип: Число.; Координата Y точки в верхнем левом углу исходного прямоугольника.
XКонечного (обязательный): Тип: Число.; Координата X точки в верхнем левом углу конечного прямоугольника.
YКонечного (обязательный): Тип: Число.; Координата Y точки в верхнем левом углу конечного прямоугольника.
Размер (обязательный): Тип: Размер (Size).; Размер передаваемой области.

Возвращаемое значение

Описание

Выполняет передачу данных о цвете, соответствующих прямоугольной области пикселей, блоками битов с экрана на поверхность рисования объекта Графика (Graphics).

Примечание

Пример

Графика1.КопироватьСЭкрана(0, 0, 0, 0, ПолеКартинки1.Размер);

Полный пример кода

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

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

ПолеКартинки1 = Форма1.ЭлементыУправления.Добавить(Ф.ПолеКартинки());
ПолеКартинки1.СтильГраницы = Ф.СтильГраницы.Трехмерная;
ПолеКартинки1.Ширина = 600;
ПолеКартинки1.Высота = 350;

ИзображениеВПамяти = Ф.Картинка(, ПолеКартинки1.Размер);
Графика1 = ПолеКартинки1.СоздатьГрафику().ИзИзображения(ИзображениеВПамяти);
Графика1.КопироватьСЭкрана(0, 0, 0, 0, ПолеКартинки1.Размер);
ПолеКартинки1.Изображение = ИзображениеВПамяти;
Графика1.Освободить();

Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

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

Тестовый код

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

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

ПолеКартинки1 = Форма1.ЭлементыУправления.Добавить(Ф.ПолеКартинки());
ПолеКартинки1.СтильГраницы = Ф.СтильГраницы.Трехмерная;
ПолеКартинки1.Ширина = 600;
ПолеКартинки1.Высота = 350;

ИзображениеВПамяти = Ф.Картинка(, ПолеКартинки1.Размер);
Графика1 = ПолеКартинки1.СоздатьГрафику().ИзИзображения(ИзображениеВПамяти);
Графика1.КопироватьСЭкрана(0, 0, 0, 0, ПолеКартинки1.Размер);
ПолеКартинки1.Изображение = ИзображениеВПамяти;
РазрешениеИгрек = Графика1.РазрешениеИгрек;
Графика1.Освободить();

Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Сообщить(?(РазрешениеИгрек > 0, "", "!!! ") + "Графика.КопироватьСЭкрана (Graphics.CopyFromScreen) Метод" + " " + ТекущаяДата());