|
Registriert seit: 30. Dez 2009
Ort: Zürich
23 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: PRGBTripleArray
17. Apr 2016, 11:40
So, habe das Problem gelöst.
farbe := ModifiedData.GetPixel(X,Y);
txt1 := IntToHex(farbe,8); // Ausgangsfarbe
txt2 := Copy(txt1,1,2); // Alpha
txt3 := Copy(txt1,3,2); // ROT
txt4 := Copy(txt1,5,2); // GRUEN
txt5 := Copy(txt1,7,2); // BLAU
Der Rest ist auch nicht schwer.
txt6 := '$' + txt2 + txt3 + txt4 + '00'; // hier kann ich jede einzelne Farbe entfernen
ModifiedData.SetPixel(X, Y,StringToColor(txt6));
Wenn es eine schnellere Variante gibt, wäre ich dafür aufgeschlossen.
Liebe Grüsse Holger
Holger
|