Требуется прямоугольную часть этого изображения "затемнить", т.е. нарисовать в определенном месте полупрозрачный прямоугольник.
Сейчас выкрутился так:
- Код: Выделить всё
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?