TBitmap Как сделать пиксель прозрачным?

[brunnengi]

Здравствуйте.

Как изменить цвет отдельного пикселя, а точнее сделать его полностью прозрачным?

Например в image загруженная картинка. И надо пиксель с координатами x75 и y50 сделать невидимым.

[Brovin Yaroslav]

Добрый день,

1. Получить доступ к пикселям битмапа: Доступ к пикселям
2. Получив доступ, изменить требуемые пиксели (в том числе прозрачность)
3. Записать измененные данные обратно, используя функцию Unmap

var
  Data: TBitmapData;
  Bitmap: TBitmap;
begin
  Bitmap := Image1.Bitmap;
  if Bitmap.Map(TMapAccess.ReadWrite, Data) then
    try
      Data.SetPixel(10, 10, TAlphaColorRec.null);
    finally
      Bitmap.Unmap(Data);
    end;
end;