procedure TForm1.HighlightSelectedColor(Color: TColor);
var
  x, y: Integer;
  IEBitmap: TIEBitmap;
  AlphaBitmap: TIEBitmap;
  RGBColor: TColor;
  PixelColor: TRGB;
  Red, Green, Blue: Byte;
  AlphaScanLine: PByteArray;
begin
  IEBitmap := ImageEnView1.IEBitmap; // Reference to the ImageEnView bitmap

  // Ensure the bitmap has an alpha channel
  if not IEBitmap.HasAlphaChannel then
    IEBitmap.AlphaChannel; // Accessing AlphaChannel property will create it if it doesn't exist

  AlphaBitmap := IEBitmap.AlphaChannel; // Reference the alpha channel bitmap

  RGBColor := ColorToRGB(Color);

  // Extract the RGB components from the selected color
  Red := GetRValue(RGBColor);
  Green := GetGValue(RGBColor);
  Blue := GetBValue(RGBColor);

  // Process each pixel to make non-selected colors transparent
  for y := 0 to IEBitmap.Height - 1 do
  begin
    AlphaScanLine := AlphaBitmap.ScanLine[y];
    for x := 0 to IEBitmap.Width - 1 do
    begin
      // Access the pixel color as TRGB
      PixelColor := IEBitmap.Pixels_ie24RGB[x, y];

      // Compare each color component
      if (PixelColor.r <> Red) or (PixelColor.g <> Green) or (PixelColor.b <> Blue) then
      begin
        AlphaScanLine[x] := 0; // Make pixel fully transparent
      end
      else
      begin
        AlphaScanLine[x] := 255; // Make pixel fully opaque
      end;
    end;
  end;

  // Ensure the alpha channel is in sync
  IEBitmap.SyncAlphaChannel;

  // Update the ImageEnView
  ImageEnView1.Update;
end;

procedure TForm1.ResetColorsOpaque;
var
  x, y: Integer;
  IEBitmap: TIEBitmap;
  AlphaBitmap: TIEBitmap;
  AlphaScanLine: PByteArray;
begin
  IEBitmap := ImageEnView1.IEBitmap; // Reference to the ImageEnView bitmap

  // Ensure the bitmap has an alpha channel
  if not IEBitmap.HasAlphaChannel then
    IEBitmap.AlphaChannel; // Accessing AlphaChannel property will create it if it doesn't exist

  AlphaBitmap := IEBitmap.AlphaChannel; // Reference the alpha channel bitmap

  // Process each pixel to make all colors fully opaque
  for y := 0 to IEBitmap.Height - 1 do
  begin
    AlphaScanLine := AlphaBitmap.ScanLine[y];
    for x := 0 to IEBitmap.Width - 1 do
    begin
      AlphaScanLine[x] := 255; // Make pixel fully opaque
    end;
  end;

  // Ensure the alpha channel is in sync
  IEBitmap.SyncAlphaChannel;

  // Update the ImageEnView
  ImageEnView1.Update;
end;