Как определить цвет при использовании AlphaBlend?

Question

У меня есть изображение, которое нарисовано на paintbox, я хочу, чтобы иметь возможность показывать полупрозрачный заполненный прямоугольник над любой областью поля для рисования, который будет показывать нижний холст для рисования в более темном цвете, вроде как поле выбора из Проводник Виндоус.

После долгих проб и ошибок (и некоторые чтения), мне удалось сделать следующее:

procedure OpacityRectangle(ACanvas: TCanvas; ARect: TRect; AColor: TColor; 
    AOpacity: Integer); 
var 
    BlendFunc: BLENDFUNCTION; 
    W, H: Integer; 
    Bitmap: TBitmap; 
begin 
    W := ARect.Width; 
    H := ARect.Height; 

    BlendFunc.BlendOp := AC_SRC_OVER; 
    BlendFunc.BlendFlags := 0; 
    BlendFunc.SourceConstantAlpha := AOpacity; 
    BlendFunc.AlphaFormat := 0; 

    Bitmap := TBitmap.Create; 
    try 
    Bitmap.PixelFormat := pf32Bit; 
    Bitmap.SetSize(W, H);  
    BitBlt(Bitmap.Canvas.Handle, ARect.Left + W, ARect.Top + H, W, H, 
     ACanvas.Handle, 0, 0, SRCCOPY); 
    AlphaBlend(ACanvas.Handle, ARect.Left, ARect.Top, 
     W, H, Bitmap.Canvas.Handle, 0, 0, W, H, BlendFunc); 
    finally 
    Bitmap.Free; 
    end; 
end; 

Как вы можете увидеть параметр AColor не используется, поскольку я не уверен в точности того, как я бы реализовать выше. В настоящее время цвет альфа-смешанного прямоугольника - это оттенок серого (по умолчанию используется цвет по умолчанию), мне нужно знать, как я могу изменить цвет оттенка альфа-смешанного прямоугольника.

Как я могу изменить приведенное выше, чтобы разрешить выбор пользовательского цвета для тонированного прямоугольника с альфа-смешением?

Answer 1

В настоящее время вы используете белый цвет, причина, по которой вы думаете, что это серый, - это прозрачность. Вы можете проверить это, передав 255 как «AOpacity», вы увидите белый прямоугольник.

Цвет оттенка белый, потому что это цвет вашего временного растрового изображения. Все, что вам нужно сделать, это использовать цветное растровое изображение. Вы должны удалить вызов BitBlt, сплошной цветной растровой картинки достаточно, чтобы применить окрашенный цвет, когда он будет прозрачно скопирован на холст назначения.

... 
    try 
    Bitmap.PixelFormat := pf32Bit; 
    Bitmap.Canvas.Brush.Color := AColor; // <- set tint color 
    Bitmap.SetSize(W, H); 
    AlphaBlend(ACanvas.Handle, ARect.Left, ARect.Top, 
     ... 

---

В случае Lazarus, явно окрасить поверхность растрового изображения, FPC графика не чтит цвет кисти при увеличении битовой карты (следовательно, точечный рисунок изначально черный).

.. 
    try 
    Bitmap.PixelFormat := pf32Bit; 
    Bitmap.SetSize(W, H); 
    Bitmap.Canvas.Brush.Color := AColor; 
    Bitmap.Canvas.FillRect(Bitmap.Canvas.ClipRect); 
    AlphaBlend(ACanvas.Handle, ARect.Left, ARect.Top, 
     ...