Hallo,
wie kann ich ein Bild in Blaustufen umwandeln? D.h. das Bild soll so wie ein Graustufenbild aussehen nur eben nicht in grau sondern in blau. Hat da jemand einen Tipp? Ganz gut wäre es auch, wenn die Lösung so allgemein wäre, dass die die Farbe, in die gewandelt werden soll, angeben könnte. Danke!
Graustufen mache ich so:
Delphi-Quellcode:
for X := 0
to Image.Width - 1
do
for Y := 0
to Image.Height - 1
do
begin
PxlColor := ColorToRGB((Image
as TBitmap).Canvas.Pixels[X, Y]);
C := Round((((PxlColor
shr 16) + ((PxlColor
shr 8)
and $00FF) + (PxlColor
and $0000FF))
div 3))
div 2 + 96;
(Image
as TBitmap).Canvas.Pixels[X, Y] :=
RGB(C, C, C);
end;