Изменить цвет пикспля на bitmape image

[Julia]

Загружаю через opendialog картинку  формата bmp в image

Есть переменные с:TColor, c1:Tcolor

Необходимо  вначале узнать цвет определенного пикселя на загруженной картинке и записать в  c1, а затем изменить цвет определенного пикселя на загруженной картинке на цвет, хранящийся в переменной c.

Ищу очень давно, но внятного объяснения нигде не нашла(

 

 

[dnekrasov]

var
  bmd: TBitmapData;
  bmp: TBitmap;
  c, c1: TAlphaColor;
  x, y: Integer;
...
  bmp.Map(TMapAccess.ReadWrite, bmd);
  try
    c1 := bmd.GetPixel(x, y);
    bmd.SetPixel(x, y, c);
  finally
    bmp.Unmap(bmd);
  end;

 

Изменено 27 августа, 2017 пользователем dnekrasov