Последние записи

Интенсив по 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 года