Как нарисовать полупрозрачный прямоугольник на канве?

[Aleandr]

Есть канва (TBitmap 1280х720), в которой формируется некое изображение.
Требуется прямоугольную часть этого изображения "затемнить", т.е. нарисовать в определенном месте полупрозрачный прямоугольник.

Сейчас выкрутился так:

Код: Выделить всё

  for x := 0 to 300 do
  for y := 0 to 200 do
      begin
           col := buf.Canvas.Pixels[x,y];
           RedGreenBlue(col, R, G, B);
           col := rgbtocolor( R div 6, G div 6, B div 6);
           buf.Canvas.Pixels[x,y] := col;
      end;

Работает очень медленно. Может, существует готовое быстродействующее решение под Win & Lazarus?

[Снег Север]

AlphaBlend
А готовое быстродействующее решение - Graphics32
https://github.com/graphics32/graphics32

[Alex2013]

Недавно был похожий вопрос.
Плавное изменение картинки в Timage при наведении мышки