Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
12th
Май
Описание CopyRect
Posted by maloy under Delphi, Архив
Alex Cones
Сделал скрин экрана, положил в bmp{ : TBitMap}. И теперь мучаюсь с параметрами bmp.Canvas.CopyRect(), чтобы оставить от картинки только ту область, в которой расположена Panel2 (В смысле начинается с Panel2.Left, Pnael2.Top и размеры Panel2.Width, Panel2.Height) Перепробовал уже во всех порядках. То картинка перевернутой получается, то непонятно, какой кусок.
raxp
абсолютно рабочий код (как раз на днях консультировал по данному вопросу )
procedure CaptureScreen(ABitmap: TBitmap);
const CAPTUREBLT = $40000000;
var
hdcScreen: HDC;
hdcCompatible: HDC;
hbmScreen: HBITMAP;
begin
hdcScreen := CreateDC('DISPLAY', nil, nil, nil);
hdcCompatible := CreateCompatibleDC(hdcScreen);
hbmScreen := CreateCompatibleBitmap(hdcScreen,
GetDeviceCaps(hdcScreen, HORZRES),
GetDeviceCaps(hdcScreen, VERTRES));
SelectObject(hdcCompatible, hbmScreen);
ABitmap.Handle := hbmScreen;
BitBlt(hdcCompatible,
0, 0,
ABitmap.Width, ABitmap.Height,
hdcScreen,
0, 0,
SRCCOPY or CAPTUREBLT);
DeleteDC(hdcScreen);
DeleteDC(hdcCompatible)
end;
procedure getobl(filename: STRING; l,r,w,h: integer);
var b,b2: tbitmap;
begin
b := tbitmap.Create;
b2:= tbitmap.Create;
b2.Width := w;
b2.Height:= h;
CaptureScreen(b);
b2.Canvas.CopyRect(Rect(0,0,w,h),
b.canvas,
Rect(l,r,l+w,r+h));
b2.SaveToFile(filename);
b.Free; b2.Free
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
getobl('1.bmp', 874,618, 150,150) // нач. позиция по x-y и width-height
end;
тема на форуме от 2009 года
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)