Скриншот из программы

← →
Ajax (2003-01-01 19:15) [0]

Я делаю так:

Procedure SnapShot(filename:string); var c : pcanvas; b : PBitmap; begin C := NewCanvas(GetDC(0)); b:=NewBitmap(GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN)); b.Canvas.CopyRect(b.canvas.ClipRect,c,c.ClipRect); b.SaveToFile(filename); C.Free; b.Free; end;

Файл сохраняется, но почему-то черно-белый. Подскажите, плиз, что не так.

← →
Gandalf (2003-01-01 20:38) [1]

b:=NewBitmap(GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN)); b.PixelFormat:=pf32bit; // Или сколько тебе надо

← →
Ajax (2003-01-02 11:45) [2]

Спасибо.

Обидно то, что я пробовал PixelFormat ставить. Только я наверное его после
b.Canvas.CopyRect(b.canvas.ClipRect,c,c.ClipRect);
ставил.

Еще раз спасибо.

Скриншот из программы Найти похожие ветки