[GR32] How to blend two TBitmap32s

[Namenloser]

Why so complicated? I've always simply done it like this:

Delphi-Quellcode:

var
  A,B: TBitmap32;
begin
  [...]
  A.MasterAlpha := 127; // 50%
  A.DrawMode := dmBlend;
  A.DrawTo(B, 0, 0);
  // B now contains the blended image
  [...]