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

@neodimus · Регистрация: 08.10.2011

Студворк — интернет-сервис помощи студентам

Подскажите, задача такая:
Я перемещаю курсор в определенные координаты, мне нужно определить цвет пикселя под курсором и записать этот цвет (или его составляющие RGB) в какую - либо переменную.
По форуму такого не нашел, в остальном интернете тоже.

Добавлено через 13 часов 25 минут
нашел

Delphi

procedure TForm1.Button1Click(Sender: TObject);
  var Color:TColor;
  R,G,B:byte;
begin
  Color:=form1.Canvas.Pixels[100,100]; 
  R:=GetRValue(Color); 
  G:=GetGValue(Color);
  B:=GetBValue(Color); 
  label1.caption:=inttostr(R);
  label2.caption:=inttostr(G);
  label3.caption:=inttostr(B);
end;

@NIch · 16.11.2011, 23:06

Delphi

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var 
  Color : TColor;
  R,G,B : byte;
begin
  Color := Form1.Canvas.Pixels[X, Y]; 
  R := GetRValue(Color); 
  G := GetGValue(Color);
  B := GetBValue(Color);
  Label1.caption := IntToStr(R);
  Label2.caption := IntToStr(G);
  Label3.caption := IntToStr(B);
end;

Опции темы