Bisher habe ich Bitmaps mit nachstehendem Code eingefärbt. (entspricht Photoshop Blendenmodi "Multiplizieren")
Delphi-Quellcode:
Line := Scanline[y];
for x := 0 to Width - 1 do
if Line[x].a = 254 then
begin
Line[x].B := Line[x].B * b div 255;
Line[x].G := Line[x].G * g div 255;
Line[x].R := Line[x].R * r div 255;
end;
end;
Zur Erzielung besserer Ergebnisse ist die Kombination mit "Farbe(Color)" erforderlich.
〚Hue(E)Saturation(E)Brightness(E)〛=〚Hue(V)Saturati on(H)Brightness(H)〛
E = Ergebnispixel(mein Bild fertig)
V = Vordergrund (der
rgb Wert zum Einfärben)
H = Hintergrund (mein Bild als Vorlage)
von meinem Bild bleiben Sätigung und Helligkeit erhalten und vom
rgb Wert zum Einfärben wird der Farbton benutzt anstelle des Farbtons in meinem Bild. Wäre für Hilfe wie sich dieses Vorhaben in Delphi Code übertragen läßt sehr dankbar.
torte62
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]