Скачать: CL | DM;

graphiks   Найти похожие ветки 

← →
loky ©   (2004-09-15 12:39) [0]

Когда делаю принт скрин экрана через программу, а затем сохраняю в файл, то выходит следующее:
первый скрин сохраняется без вопросов, а второй с искаженной цветовой гаммой.
код процедуры(примерно):

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) [1]

Почему не делаешь ReleaseDC(0, d) в конце ?
Хотя конечно не в этом дело. Может TImage глючит ?

---

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

Скачать: CL | DM;



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