Копирование картинки непопиксельно, а одним махом

← →
Franzy (2009-07-24 14:46) [0]

Подскажите, чем можно заменить следующий код (копируется канвас формы во временный битмап):

var p : TPicture;
i,j: longint;

p:=TPicture.Create;
p.Bitmap.Width:=ClientWidth;
p.BitMap.Height:=clientHeight;
for i:=1 to ClientWidth do
for j:=1 to ClientHeight do
p.Bitmap.canvas.Pixels[i,j]:=form1.canvas.Pixels[i,j];

← →
stas © (2009-07-24 14:50) [1]

CopyRect ?

← →
Palladin © (2009-07-24 14:52) [2]

ну можно добавить

If p.Bitmap.canvas.Pixels[i,j]<>form1.canvas.Pixels[i,j] Then
p.Bitmap.canvas.Pixels[i,j]:=form1.canvas.Pixels[i,j];

)

← →
Franzy (2009-07-24 15:08) [3]

> CopyRect ?

У TPicture нет такого метода, это метод TCanvas.

← →
Игорь Шевченко © (2009-07-24 15:14) [4]

> Подскажите, чем можно заменить следующий код

BitBlt

← →
Franzy (2009-07-24 15:17) [5]

Пардон, торможу, у Tpicture есть TBitmap, у которого уже есть TCanvas :)

← →
Franzy (2009-07-24 15:18) [6]

> BitBlt

Что это? В справке нет.

← →
stas © (2009-07-24 15:24) [7]

Franzy (24.07.09 15:18) [6]

Windows.BitBlt
Windows SDK

← →
Franzy (2009-07-24 15:31) [8]

> Windows.BitBlt

Что-то мне подсказывает, что CopyRect - это обертка для этой функции. Сделал с ней, ощутимо быстрей скриншот делается :)

← →
Хитрий Лис (2009-07-24 15:34) [9]

Какая гадость... всё гораздо проще
bitmap := GetFormImage();

← →
Franzy (2009-07-24 16:37) [10]

> GetFormImage

Не работает, выдает пустое серое окно. Вероятно, потому что у меня там опенджиэлем картинка нарисована. CopyRect нормально картинку сохраняет.

> Franzy (24.07.09 15:08) [3]
>
>
> > CopyRect ?
>
>
> У TPicture нет такого метода, это метод TCanvas.

зато он есть у TPicture.bitmap

> Что-то мне подсказывает, что CopyRect - это обертка для
> этой функции

Что-то тебя обманывает, CopyRect обертка для StretchBlt

← →
CSS (2009-08-02 04:34) [13]

Попробуйте просто делать скриншот экрана... =))

попробовать метод Assign - это не моможет разве?
т.е. что-то в роде

...

var bmp:tbitmap;

...

bmp:=tbitmap.Create;
bmp.Canvas.Assign(form1.Canvas);

...

bmp.free;

...

Копирование картинки непопиксельно, а одним махом Найти похожие ветки