Узнать цвет пикселя.

[sergeyrulit]

Потерял один полезный исходник, там был пример как определить цвет пикселя в нужных координатах. Помогите кодом. Цвет пикселя нужно определить в TImage допустим в координатах 4;3. В том исходнике помойму определялись r, g, b и потом складывались.

[mMAg]

Не совсем ясно, что вам нужно. Цвет пиксела - это грубо говоря integer. 1 бит отвечает не помню за что. затем 3 бита - r, g, b соответственно. Возможно в обратном порядке. Точно не помню. Так вот. Что вы имеете ввиду под определением цвета? Вам нужный пиксел разбить на РГБ или по заданному РГБ сформировать цвет? Ибо первое сложение не предполагает. А вот второе да.

[Arigato]

Canvas.Pixels[4,3]

Сообщение от mMAg

1 бит отвечает не помню за что. затем 3 бита - r, g, b соответственно.

Не биты, а байты.

[mMAg]

Сообщение от Arigato

Canvas.Pixels[4,3]

Не биты, а байты.

Полностью согласен. Окалякался.

[Roof]

Можно так:

//рисуем цветные прямоугольнички
procedure TForm1.FormCreate(Sender: TObject);
const
  CountRect = 9; //количество прямоугольничков
var
  i, x1, x2: integer;
begin
  Randomize;
  with Image1.Canvas do
  begin
    x1 := 10;
    x2 := 30;
    for i := 1 to CountRect do
    begin
      // генерируем различные цвета для прямоугольников
      Brush.Color := RGB(Random(255), Random(255), Random(255));
      //рисуем прямоугольнички
      RectAngle(x1, 20, x2, 40);
      Inc(x1, 25);
      Inc(x2, 25);
      // выводим список цветов :) прямоугольников
      Label1.Caption := Label1.Caption + #13#10 + ColorToString(Brush.Color);  //получаем цвет в 16-ом виде
    end;
  end;
end;

//берем цвет под курсором.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  lColor: TColor;
begin
  //берем цвет под курсором
  lColor := Image1.Canvas.Pixels[X, Y];
 //выводим в Label;
  Label2.Caption := ColorToString(lColor) //получаем цвет в 16-ом виде
end;

Для большинства задач этого, на мой взгляд, хватает. Можно вытащить в удобочитаемом виде. Чтобы в Label содержалось:
Красный = 74 Зеленый = 159 Голубой = 63. Если надо - напишу как сделать.

[Arigato]

Сообщение от Roof

Голубой

Вообще-то синий. Голубой - это синий + зеленый.

Сообщение от Roof

Можно вытащить в удобочитаемом виде.

GetRValue, GetGValue, GetBValue.

[Roof]

Нну да, насчет голубого я переборщил