Прозрачность для нескольких цветов в Image

[SERG1980]

Можно ли в Image сделать невидимыми сразу несколько цветов, а то св-во transparent убирает только один цвет

[Alar]

Вообще нельзя, но выход найти можно.
1) Заменить нужные цвета, на один цвет, и уже отбивать по нему.

[SERG1980]

А как это сделать не подскажешь?

[Voland]

Я подскажу. Можно через Canvas.Pixels[] конечно, но вот код, который в разы быстрее:

procedure TForm1.Button1Click(Sender: TObject);
type
  PCardArray = ^TCardArray;
  TCardArray = array[0..8191] of Cardinal;
var
  x, y: Cardinal;
  line: PCardArray;
begin
  with Image1.Picture.Bitmap do begin
    PixelFormat:=pf32bit;
    for y:=0 to Height - 1 do begin
      line:=ScanLine[y];
      for x:=0 to Width - 1 do
        if line[x] = $FFFFFF then line[x]:=$FF0000;
    end;
  end;
end;

Формат пикселей битмапа меняем для упрощения. Иначе пришлось бы возиться с палитрами, если битмап не полноцветный. И ещё, порядок байт в цвете получается противоположный, то есть $00RRGGBB а не $00BBGGRR, как обычно. То есть, в моём примере белый меняется на красный.