Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Курсор и "Пипетка"

Автор: Gigabyte 19.11.2004, 15:07

У меня маленькая проблема:мне надо сделать функцию, которая будет определять цвет фона в указанной точке("пипетка" в паинте) или хотябы функцию, которая будет определять положение курсора.

Автор: p0s0l 20.11.2004, 03:23

Mouse.CursorPos - координаты мыши
Цвет пикселя под мышкой:

Код


function GetMouseColor : TColor;
var
  dc : HDC;
begin
  dc := GetDC(0);
  Result := GetPixel (dc, Mouse.CursorPos.X, Mouse.CursorPos.Y);
  ReleaseDC(0, dc);
end;