Farbe aus einem Pixel bekommen.

[shmia]

Zitat von torro:

...Dafür zeichne auf dem Canvas ...

Dann nimm doch einfach das Property Pixels[] deines Canvas-Objekts.

[himitsu]

Zitat:

Dafür zeichne auf dem Canvas

Doch nicht etwa das Canvas von einem TImage oder gar das der TForm?
- Ersteres ist total langsam (sowas macht man intern in einem TBitmap oder Dergleichen ... genannt Offscreen-Bitmap)
- und Letzeres ist nicht für "Berechnungen" geeignet, da es die Bilddaten nirgends speichert.

Und wozu die Arrays?
zwei TBitmap für die Würfel und dann die Pixel direkt verrechnen, wobei es sogar eine fertige Copy-Methode gibt, welche das verrechnet.
Bzw, brauchst du einfach nur via OR das eine Bild in das Andere reinkopieren, wenn das eine Bild nur Rot- und das Andere nur Grüntöne besitzt.

[Memnarch]

Und wenn du unbedingt nachträglich auf einzelne pixel zugreifen musts, nutze ScanLine und nicht PIxel, ScanLIne ist um einiges schneller.

MFG
Memnarch

[shmia]

Zitat von Memnarch:

Und wenn du unbedingt nachträglich auf einzelne pixel zugreifen musts, nutze ScanLine und nicht PIxel

Aber erst nachdem die Lösung mit Pixels[] funktioniert hat.
Anfänger sind mit Scanline häufig überfordert.
Ausserdem kann Scanline seine Performance nur dann voll ausspielen, wenn man das Bitmap in horizontaler Richtung abarbeitet.

[Memnarch]

@shmia: ok geb ich recht, könnte überfordern.

Wenn torro oder sonst noch wer trotzdem interesse hat sich das mal anzugucken:

http://edn.embarcadero.com/article/29173

Fand ich ganz gut erklärt(ist aber auf ENGLISH)

MFG
Memnarch

[torro]

erstmal danke für die schnellen und vielen antworten.
hab es mit Pixels[] ausprobiert und es hat alls so funktioniert wie ich es brauche. vielen Dank

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