Hilfe! mein Scanline ist Kaputt!

[xy124]

also erstmal größten dank für eure Antworten!

@chest3rs: wie inherited schon gesagt hat ist mir das zu langsam

@inherited: mit form3.image3.Picture.Bitmap.assign(bmp2) passiert genau das gleiche wie mit Picture.Bitmap := bmp2

so jetzt mal mehr code:

Delphi-Quellcode:

type
  pixel = array[0..2] of byte; 

var
  Form3: TForm3;
  bmp1, bmp2: Tbitmap;
  farbe1: ^Pixel;
  farbe2: ^Pixel;

//^^das wird alles gaaanz am anfang deklariert, damit ich Rechenleistung spare!

procedure TForm3.FormCreate(Sender: TObject);
begin
  bmp1:=TBitmap.create; 
  bmp2:=Tbitmap.create;
  bmp1.PixelFormat := pf24Bit; 
  bmp2.PixelFormat := pf24Bit;
end;

Zitat von Blup:

- Zugriff auf Zeilen und Spalten richtig: 0..239, 0..319

ja das bild ist immer 320x240 px groß!

Zitat von Blup:

- Die Addition der Farbwerte(Byte) ergibt wahrscheinlich einen Überlauf, da vorher keine Typumwandlung erfolgt.

^^ich weiß zwar nicht genau was du damit meinst, aber eine Fehlermeldung kommt nicht und die angezeigten Werte beim Debuggen schienen zu stimmen!

Zitat von Blup:

- Der Durchschnitt aus allen drei Farbwerten ist nur eine grobe Vereinfachung der Helligkeit.

ok nehm' ich in kauf, es geht mir vorerst eher um's Prinzip...

so und Blup's code teste ich jetzt mal...