Delphi-Quellcode:
for i1 := 0 to 50 do for i2 :=0 to 30 do begin
text:=copy(colortostring(image1.Canvas.Pixels[i2,i1]),4,12);
ListBox1.Items.Add(text);
end;
i1 = ImageWidth (50)
i2 = ImageHeight(30)
In dem Image ist ein GIF-Bild. Mir fällt auf, dass machmal der Wert "hite" ausgegeben wird. Frag mich nicht, was das bedeutet. Nun hast du die Farbe als Hexadezimalzahl.
Wenn du dies in eine
RGB-Farbe umwandelt willst, dann sags mir.
PS: Hoffe dir geholfen zu haben!