Форум: "KOL";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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);
ставил.

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

---

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

Форум: "KOL";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c