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..