| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Ajax ©   (2003-01-01 19:15:00) 

Я делаю так:

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;

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

---

Ajax   (2003-01-02 11:45:00) [1]

Спасибо.

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

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

---

Gandalf   (2003-01-01 20:38:00) [2]

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

---

Наверх