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

procedure TForm1.Button1Click(Sender: TObject);

// Dieses Beispiel zeigt das direkte Zeichnen in das BitMap
var
  x,y : Integer;
  BitMap : TBitMap;
  P : PByteArray;
begin
  BitMap := TBitMap.create;
  try
    BitMap.LoadFromFile('..\Images\Splash\256color\factory.bmp');
    for y := 0 to BitMap.height -1 do
    begin
      P := BitMap.ScanLine[y];
      for x := 0 to BitMap.width -1 do
        P[x] := y;
    end;
  Canvas.draw(0,0,BitMap);

  finally
    BitMap.free;
  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:

procedure TForm1.Button1Click(Sender: TObject); 

// Dieses Beispiel zeigt das direkte Zeichnen in das BitMap 
var 
  x,y : Integer; 
  BitMap : TBitMap; 
  P : PByteArray; 
begin 
  BitMap := TBitMap.create; 
  try 
    BitMap.LoadFromFile('..\Images\Splash\256color\factory.bmp'); 
    for y := 0 to BitMap.height -1 do 
    begin 
      P := BitMap.ScanLine[y]; 
      for x := 0 to BitMap.width -1 do  begin
        P[x*3+0] := 128; // Blau
        P[x*3+1] := 128; // Grün
        P[x*3+2] := 128; // Rot
      end;
    end; 
  Canvas.draw(0,0,BitMap); 

  finally 
    BitMap.free; 
  end; 
end;					

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

      for x := 0 to BitMap.width -1 do  begin
        r := P[x*3+2];
        g := P[x*3+1];
        b := P[x*3+0];

        P[x*3+0] := r;// Blau
        P[x*3+1] := g;// Grün
        P[x*3+2] := b;// Rot
      end;					

1:
2:

  BitMap.LoadFromFile(...);
  BitMap.PixelFormat:=pf24Bit;