Hi,
ich lese mit folgender procedure die
RGB Werte eines bestimmten Pixels aus.
x und y Koordinate wird über eine Editbox eingegeben.
Code:
procedure TForm1.Button2Click(Sender: TObject);
var
RGB : TColor;
R,G,B : Byte;
xZeiger : Integer;
yZeiger : Integer;
begin
xZeiger := StrToInt(edit1.text);
yZeiger := StrToInt(edit2.text);
RGB := Image1.Canvas.Pixels[xZeiger, yZeiger];
R := GetRValue(
RGB);
G := GetGValue(
RGB);
B := GetBValue(
RGB);
Label1.Caption := Format ('[R, G, B] = [%d, %d, %d]',
[ R, G, B]);
end;
Ich möchte nun den
RGB Wert eines ganzen 'Bereichs' haben (Mittelwerte aller Pixel in dem festgelegten Bereich), sprich eines 9 x 19 großen Bereichs.
Über die beiden Editboxen möchte ich eine PixelKoordinate eingeben und somit meinen Mittelpunkt bestimmen.
Bereich = vom Mittelpunkt aus, 4 Pixel nach oben, 4 nach unten, 9 nach rechts, 9 nach links
Hat jemand ne Idee?
grüße
JCooper