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

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо