Текущий архив: 2003.09.08;
Скачать: CL | DM;
Вниз
Скриншот из программы Найти похожие ветки
← →
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 вся ветка
Текущий архив: 2003.09.08;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.023 c
