Bitmap einfärben

[SittingDuck]

Tach nochmal ...

Danke erstmal für die Antworten.
So färbe ich konventionell eine Bitmap (oder Bitmap32)
wie in diesem Beispiel leicht Blau ein.

Delphi-Quellcode:

var x,y,r,g,b: integer; TC: TColor32;

 with Bitmap32 do begin 
  for x := 0 to Width  - 1 do
  for y := 0 to Height - 1 do begin
   TC :=Pixel[x,y];
   R := RedComponent  (TC);
   G := GreenComponent(TC);
   B := BlueComponent (TC); B := (B + 255) div 2;
   Pixel[x,y] := Color32(R,G,B);
  end;
 end;

Soweit alles klar ... Allerding dachte ich, das ich dass über Bits
und BlendReg (beides Befehle der gr32-lib) irgendwie eleganter und
vielleicht auch schneller hinbekäme.

Durch blauen Dunst hindurch, grüßt ...