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 глючит ?

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