![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
graphiks [D6, D7, Win2k]
loky © (2004-09-15 12:39:00)Когда делаю принт скрин экрана через программу, а затем сохраняю в файл, то выходит следующее:
первый скрин сохраняется без вопросов, а второй с искаженной цветовой гаммой.
код процедуры(примерно):
procedure getdesktop;
var
d: hdc;
i: integer;
begin
d:=getdc(0);
bitblt(Form1.Image1.canvas.Handle,0,0,100,100,d,0,0,SRCCOPY);
i:=0;
while FileExists(IntToStr(i)+'.bmp') do inc(i);
Form1.Image1.Picture.SaveToFile(IntToStr(i)+'.bmp');
end;
При этом на самой имаге все пучком!!!!
inic (2004-09-15 16:01:00) [1]Почему не делаешь ReleaseDC(0, d) в конце ?
Хотя конечно не в этом дело. Может TImage глючит ?