Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

как убрать мерцание мышки?   Найти похожие ветки 

 
Магедон   (2006-11-15 11:48) [0]

Доброе время суток?
Задача такая: нужно делать скриншоты рабочего стола с транспарентными окнами. И Очень часто несколько раз в секунду.
Оно делает, но при этом мышь мигает. Вот код, который мигает ;)
 
 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;


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


 
Elen ©   (2006-11-15 12:23) [1]


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

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


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

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

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

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


 
KilkennyCat ©   (2006-11-15 14:55) [3]

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



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

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
6-1152629930
begginer
2006-07-11 18:58
2006.12.03
Помогите разобраться с приемом UDP пакетов


15-1163273225
Anatoly Podgoretsky
2006-11-11 22:27
2006.12.03
Ура, закончил - конечная версия APC


15-1163498467
DelphiN!
2006-11-14 13:01
2006.12.03
Перенос Delphi6 на другой компьютер


5-1144833618
Святослав
2006-04-12 13:20
2006.12.03
Нужен специфический компонент


2-1163322472
ProgRAMmer Dimonych
2006-11-12 12:07
2006.12.03
Как нарисовать полностью закрашенную окружность на TCanvas?