Hallo,
ich schreibe gerade ein Programm, bei dem ich ein Bild auf imagefeld lade und aus dem bild will ich den rotwert auslesen und auf ein label ausgeben
da ich nicht weiß wie man rotfilter arbeitet, kann mir jemand stichpunktartig erklären wie ich vorgehen soll
mein Code:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
| procedure TForm1.Button1Click(Sender: TObject); var i,j,h,w,farbe:integer; begin image1.Picture.LoadFromFile('Futur.bmp'); h:=image1.Height; w:=image1.Width;
for i:=0 to h do for j:=0 to w do begin farbe:=image1.Canvas.Pixels[j,i]; end; label1.Caption:=inttostr(farbe); end; |
mit diesem Programm habe ich glaube alle Pixeln einfach ausgelesen aber nicht den Rotanteil bzw. Rotwert
Moderiert von Narses: Delphi-Tags hinzugefügt