1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//Backround zeichnen
  for ypos:= 0 to peakbufr.Width do
  begin
    //Linkerkanal
    peakbufl.Canvas.Pen.Color:= RGB( Trunc(102+ (255 - 102) / peakbufl.Height *ypos) ,
                   Trunc(113+ (255 - 113) / peakbufl.Height *ypos) ,
                   Trunc(126+ (255 - 126) / peakbufl.Height *ypos) );
    peakbufl.Canvas.MoveTo(0, ypos);
    peakbufl.Canvas.LineTo(peakbufl.Width, ypos);
    //rechterkanal
    peakbufr.Canvas.Pen.Color:= RGB( Trunc(102+ (255 - 102) / peakbufr.Height *ypos) ,
                   Trunc(113+ (255 - 113) / peakbufr.Height *ypos) ,
                   Trunc(126+ (255 - 126) / peakbufr.Height *ypos) );
    peakbufr.Canvas.MoveTo(0, peakbufr.Height - ypos);
    peakbufr.Canvas.LineTo(peakbufr.Width, peakbufr.Height - ypos);
  end;                    

1:
2:

peakbufl:= TBitMap.Create;
peakbufr:= TBitMap.Create;                    

1:
2:

leftcannelpb.Canvas.Draw(0, 0, peakbufl);//<---leftcannelpb sind die Paintboxen
rightcannelpb.Canvas.Draw(0, 0, peakbufr);//<---rightcannelpb                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

for ypos:= 0 to peakbufr.Height-1 do
begin
    r:= trunc(102+ (255 - 102) / peakbufl.Height *ypos);
    g:= trunc(113+ (255 - 113) / peakbufl.Height *ypos);
    b:= trunc(126+ (255 - 126) / peakbufl.Height *ypos);
    pl:= peakbufl.ScanLine[ypos];
    pr:= peakbufr.ScanLine[ypos];
    for x:= 0 to peakbufl.Width-1 do
    begin
        pl.rgbRed:= r;
        pl.rgbGreen:= g;
        pl.rgbBlue:= b;
        
        pr.rgbRed:=  r; //<---hier währe es toll wenn man die Farbe irgendwie invertieren könnte
        pr.rgbGreen:= g;//so bräucht man nur eine Forschleife für die beiden Bitmaps
        pr.rgbBlue:= b;//
        
        inc(pl);
        inc(pr);
    end;
end;                    

1:

pr.rgbRed:=  pl.rgbRed xor r;//<--so hatte ich es versucht xor,or usw.                    

1:

pr:= peakbufr.ScanLine[(peakbufr.Height-1) - ypos];                    

1:
2:
3:
4:
5:
6:
7:

r := ...; g := ...; b := ...;

pl.r := r; pl.g := g; pl.b := b;
w := peakbufl.Width;
pl2 := pl; inc(pl2);
Move ( {Source} pl, {Destination} pl2, {Length} SizeOf(PixelRGB) * (w - 1) );
Move ( {Source} pl, {Destination} pr, {Length} SizeOf(PixelRGB) * w );                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

    pl:= peakbufl.ScanLine[0];
    pr:= peakbufr.ScanLine[0];
for ypos:= 0 to peakbufr.Height-1 do
begin
    r:= trunc(102+ (255 - 102) / peakbufl.Height *ypos);
    g:= trunc(113+ (255 - 113) / peakbufl.Height *ypos);
    b:= trunc(126+ (255 - 126) / peakbufl.Height *ypos);
    pRGB.rgbRed:=r;
    pRGB.rgb...
    for x:= 0 to peakbufl.Width-1 do
    begin
        pl:= pRGB;
        
        pr:=  pRGB
        
        inc(pl);
        inc(pr);
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 256;
var
  X, Y: Integer;
  Bitmap: TBitmap;
  Base, Pixel: PCardinal;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := N;
    Bitmap.Height := N;
    Bitmap.PixelFormat := pf32bit;
    // Get base pointer for bitmap
    Base := Bitmap.ScanLine[Bitmap.Height - 1]; 

    for X := 0 to N - 1 do
      for Y := 0 to N - 1 do
      begin
        Pixel := Base;
        Inc(Pixel, X + Y * N); // Should use BytesPerScanline for other pixelformats
        Pixel^ := Integer((X and Y) > 0) * $FFFFFF; // The Image
      end;

    Image1.Picture.Bitmap.Assign(Bitmap); // Assign to Image
  finally
    Bitmap.Free;
  end;
end;                    

1:
2:

  Base^ := Integer((X and Y) > 0) * $FFFFFF; // The Image
  Inc(Base);                    

1:
2:
3:
4:
5:
6:
7:
8:

   var
      bm: tBitmap;
      buffer: windows.BITMAP;
  begin
    bm := tBitmap.Create;
    [..]
    getObject(bm.Handle,sizeof(buffer),@buffer);
    // und buffer.bmBits enthält dann den Zeiger auf die Pixeldaten                    

1:

pl:= peakbufl.ScanLine[peakbufl.Height-1];                    

1:
2:
3:

r:= trunc(102+ (255 - 102) / peakbufl.Height *ypos);
g:= trunc(113+ (255 - 113) / peakbufl.Height *ypos);
b:= trunc(126+ (255 - 126) / peakbufl.Height *ypos);                    

1:
2:
3:
4:

nenner := peakbufl * ypos;
r := trunc(102 + (153 / nenner));
g := trunc(113 + (142 / nenner));
b := trunc(126 + (129 / nenner));                    

1:
2:
3:

r:= trunc(102+ (255 - 102) / peakbufl.Height *ypos);
g:= trunc(113+ (255 - 113) / peakbufl.Height *ypos);
b:= trunc(126+ (255 - 126) / peakbufl.Height *ypos);                    

1:
2:
3:
4:

factor:=ypos/peakbufl.Height;
r:= trunc(102+ (255 - 102) *factor);
g:= trunc(113+ (255 - 113) *factor);
b:= trunc(126+ (255 - 126) *factor);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm3.DrawBackround_Lines;
var
   ypos, h, x: integer;
   pcl, pcr: PRGBQUAD;
   pRGB: tagRGBQUAD;
   clfx: real;
begin
   .....
   .....

   for ypos:= 0 to peakbufr.Height-1 do
   begin
      clfx:= ypos / peakbufl.Height;
      
      pRGB.rgbRed:= trunc(102+ (153 *clfx));
      pRGB.rgbGreen:= trunc(113+ (142 *clfx));
      pRGB.rgbBlue:= trunc(126+ (129 *clfx));
      
      pcl:= peakbufl.ScanLine[ypos];
      pcr:= peakbufr.ScanLine[peakbufr.Height-1 - ypos];
      
      for x:= 0 to peakbufl.Width-1 do
      begin
         pcl^:= pRGB;
         pcr^:= pRGB;
         inc(pcl);
         inc(pcr);
      end;
   end;
   ....
   ....
end;