Карта сайтаСсылкиКонтакты

Как получить цвет пиксела под курсором

PDF Печать
Статьи

Следующая функция определяет цвет пиксела на рабочем столе. В качестве параметров передаются координаты курсора. Для начала необходимо поместить на форму два компонента: TTimer и TPanel (панель будет окрашиваться цветом под курсором мыши).


function DesktopColor(const x,y: integer): TColor;
var
   c:TCanvas;
begin
   c:= TCanvas.Create;
   c.Handle:= GetWindowDC(GetDesktopWindow);
   result:= GetPixel(c.Handle, x, y);
   c.Free;
end;

{ значение Interval таймера установим в значение 10,
  с какой частотой будет обновляться информация. }

procedure TForm1.Timer1Timer(Sender: TObject);
var
   pos: TPoint;
begin
   GetCursorPos(Pos);
   Panel1.Color:= DesktopColor(pos.x, pos.y);
end;

 

Добавить комментарий


Защитный код
Обновить