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

Posted by maloy under Delphi, Архив

SERG1980

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

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, как обычно. То есть, в моём примере белый меняется на красный.

Похожие статьи

• Отрисовка текста на Canvas с перекрытием букв друг друга
• Рисование на картинке мышью
• Плавное появление/исчезновение объекта TImage
• Компонент TImage
• Плавное перемещение Image больших размеров
• Получение яндекс каптчи в Image
• Как отследить изменение Image в PictureBox
• Смена картинки через время
• Значок «new» к картинке
• Движение image по нажатию стрелок на клавиатуре