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