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

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

как убрать мерцание мышки? [D6, WinXP]

Магедон ©   (2006-11-15 11:48:00) 

Доброе время суток?
Задача такая: нужно делать скриншоты рабочего стола с транспарентными окнами. И Очень часто несколько раз в секунду.
Оно делает, но при этом мышь мигает. Вот код, который мигает ;)
 
 imageWork.Canvas.Lock;
 hdcScreen:= CreateDC('DISPLAY', nil, nil, nil);
 hdcCompatible:= CreateCompatibleDC(hdcScreen);

 try
   SelectObject(hdcCompatible, imageWork.Handle);
   BitBlt(hdcCompatible, screenRect.Left, screenRect.Top,
          screenRect.Right, screenRect.Bottom,
          hdcScreen, screenRect.Left, screenRect.Top, SRCCOPY or CAPTUREBLT);
 finally
   DeleteDC(hdcScreen);
   DeleteDC(hdcCompatible);
 end;
 imageWork.Canvas.UnLock;

Вопрос: Как убрать мерцание мыши?

---

KilkennyCat   (2006-11-15 14:55:00) [1]

может, стоит некоторые вещи делать один раз?

---

Магедон   (2006-11-15 14:33:00) [2]

Прошу прощения, но

> Вот код который "поможет" ShowCursor(false) также с ;)
 
не помогаетс. ;)

Что еще можете посоветовать? :)

---

Elen   (2006-11-15 12:23:00) [3]

>  Вот код, который мигает ;)

Вот код который "поможет" ShowCursor(false)также с ;)

---

Наверх