Вниз
Скачать: CL | DM;

Параметры при создании скриншота   Найти похожие ветки 

← →
worldmen   (2008-10-24 10:55) [0]

Надо создать скриншот определенного участка экрана, например начальные координаты x=100 y=100 конечные- x2=200 y2=200
Есть код:var bmp:TBitmap;
begin
   bmp := TBitmap.Create;
   bmp.Width := Screen.Width;
   bmp.Height := Screen.Height;
   StretchBlt(bmp.Canvas.Handle,100,100, 200,200, GetDC(0),100,100, 200,200, SRCCOPY);

   Image1.Width := 200; // Screen.Width;
   Image1.Height:= 200; // Screen.Height;
   Image1.Picture.Assign(bmp);
   bmp.Free;

Есть описания функции:
BOOL StretchBlt(
 HDC hdcDest,         // дескриптор приемного DC
 int nXOriginDest,    // x-коорд. верхнего левого угла приёмника
 int nYOriginDest,    // y-коорд. верхнего левого угла приёмника
 int nWidthDest,      // ширина приёмного прямоугольника
 int nHeightDest,     // высота приёмного прямоугольника.
 HDC hdcSrc,          // дескриптор исходного DC
 int nXOriginSrc,     // x-коорд.верхнего левого угла источника
 int nYOriginSrc,     // y-коорд.верхнего левого угла источника
 int nWidthSrc,       // ширина исходного прямоугольника
 int nHeightSrc,      // высота исходного прямоугольника
 DWORD dwRop          // код растровой операции
Не врублюсь какие параметры тут я не правильно поставил.


← →
AlekseyB   (2008-10-24 10:59) [1]

http://z-oleg.com/delphi/graph.htm#gr00008


← →
worldmen   (2008-10-24 12:40) [2]

Сылка не работает


← →
brother ©   (2008-10-24 12:43) [3]

на вскидку:
>   StretchBlt(bmp.Canvas.Handle,100,100, 200,200, GetDC(0)
> ,100,100, 200,200, SRCCOPY);

это ширина и высота равны 200
у тебя:


> координаты x=100 y=100 конечные- x2=200 y2=200

те ширина и высота 100 ;)


← →
brother ©   (2008-10-24 12:44) [4]

>   Image1.Width := 200; // Screen.Width;
>   Image1.Height:= 200; // Screen.Height;

не понял? тебе 200 на 200 надо? тгда координаты (они абсолютные) должны быть
StretchBlt(bmp.Canvas.Handle,100,100, 300,300, GetDC(0),100,100, 300,300, SRCCOPY);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c
1-1202915605
Zabludshiy
2008-02-13 18:13
2008.12.07
Проблема с заполнением treeView.Items[i].Data


2-1225186805
dmitry_12_08_73
2008-10-28 12:40
2008.12.07
Скрытие пиктограммы программы в таскбаре


15-1222820307
brother
2008-10-01 04:18
2008.12.07
навеяло башем...


2-1224924753
Gurd
2008-10-25 12:52
2008.12.07
StringGrid.RowHeight:=0


2-1225275938
Костик
2008-10-29 13:25
2008.12.07
Не пойму почему не работает...




   Наверх