Farbe aus einem Pixel bekommen.

[torro]

hi, wie ihr schon erwartet habt ist das ganze extrem langsam..

Code:

procedure GetRGBlinks ();
VAR farbe : tcolor;
    r,g,b : byte;
    x, y: integer;
begin
  x:=190;
  y:=-40;
  for x := 235 to 425 DO
  begin
    for y:= -40 to 135 DO
    begin
      farbe := form1.Canvas.Pixels[x,y];
      b := farbe MOD 256;
      farbe := farbe DIV 256;
      g := farbe MOD 256;
      farbe := farbe DIV 256;
      r := farbe MOD 256;
      lWuerfel[x,y].b:=b;
      lWuerfel[x,y].g:=g;
      lWuerfel[x,y].r:=r;
    end;
  end;
end;

procedure GetRGBrechts
var..
begin
  .
  .
end;

kann man diesen code beschleunigen? Ihr seht ich muss die Prozedur sogar zweimal ausführen. das ganze auf ein image zeichnen is nur eine notlösung..