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

var i,i2:integer;

begin
    for i := 0 to 350 -1 do
    begin
    for i2 := 0 to 350 -1 do
    begin
     image2.Canvas.Pixels[
      image1.Picture.bitmap.Canvas.pixels[i,0],
      image1.Picture.bitmap.Canvas.pixels[0,i2]]
      := image1.Picture.bitmap.Canvas.pixels[i,i2];

    end;
    end;					

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

procedure TForm1.Get234ButClick(Sender: TObject);
var
  Bitmap: TBitmap;
  X, Y:   Integer;
  aCol:   TColor;
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('C:\Gitter.bmp');

  for Y := 0 to Bitmap.Height - 1 do
    for X := 0 to Bitmap.Width - 1 do
    begin
      aCol := Bitmap.Canvas.Pixels[X, Y];
      aCol := GetGValue(aCol) shl 7;
      aCol := GetRValue(aCol) shl 7;

      Bitmap.Canvas.Pixels[X, Y] := aCol;
    end;

  Bitmap.SaveToFile('C:\Test.bmp');
  Bitmap.Free;
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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TForm1.Get678ButClick(Sender: TObject);
var
  Bmp1:    TBitmap;
  Bmp2:    TBitmap;
  Bmp3:    TBitmap;
  Bmp4:    TBitmap;
  X, Y:    Integer;
  nX, nY:  Integer;
  R, G, B: Integer;
begin
  Bmp1 := TBitmap.Create;
  Bmp1.LoadFromFile('C:\Gitter.bmp');

  Bmp2        := TBitmap.Create;
  Bmp2.Width  := Bmp1.Width;
  Bmp2.Height := Bmp1.Height;

  Bmp3        := TBitmap.Create;
  Bmp3.Width  := Bmp1.Width;
  Bmp3.Height := Bmp1.Height;

  Bmp4        := TBitmap.Create;
  Bmp4.Width  := Bmp1.Width;
  Bmp4.Height := Bmp1.Height;

  for Y := 1 to Bmp1.Width do
    for X := 1 to Bmp1.Height do
    begin
      R := GetRValue(Bmp1.Canvas.Pixels[X, Y]);
      G := GetGValue(Bmp1.Canvas.Pixels[X, Y]);
      B := GetBValue(Bmp1.Canvas.Pixels[X, Y]);

      nX := Bmp1.Canvas.Pixels[X, 0];
      nY := Bmp1.Canvas.Pixels[0, Y];

      Bmp2.Canvas.Pixels[nX, nY] := RGB(R, R, R);
      Bmp3.Canvas.Pixels[nX, nY] := RGB(G, G, G);
      Bmp4.Canvas.Pixels[nX, nY] := RGB(B, B, B);
    end;

  Bmp2.SaveToFile('C:\Quark.bmp');
  Bmp3.SaveToFile('C:\Yoda.bmp');
  Bmp4.SaveToFile('C:\Gollum.bmp');

  Bmp1.Free;
  Bmp2.Free;
  Bmp3.Free;
  Bmp4.Free;
end;					

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

procedure TForm1.GetBonusClick(Sender: TObject);
var
  FStream: TFileStream;
  Buffer:  TBuffer;
  X:       Integer;
begin
  FStream := TFileStream.Create('C:\Jessica.txt', fmOpenRead);
  SetLength(Buffer, FStream.Size);
  FStream.Read(Buffer[0], Length(Buffer));

  for X := 0 to Length(Buffer) - 1 do
  begin
    if (Ord(Buffer[X]) <> 32) AND (Ord(Buffer[X]) <> 64) then
      Memo1.Text := Memo1.Text + Chr(Ord(Buffer[X]));
  end;

  FStream.Free;
end;					

1:
2:
3:
4:

Image1.Picture.Bitmap.Canvas.Pixels[x,y] :=
         (Image4.Picture.Bitmap.Canvas.Pixels[x,y] AND $FF0000)
      or (Image5.Picture.Bitmap.Canvas.Pixels[x,y] AND $00FF00)
      or (Image6.Picture.Bitmap.Canvas.Pixels[x,y] AND $0000FF);					

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:
33:
34:
35:
36:
37:
38:

var xarr, yarr: Array of Integer;
//..

  // X-Array initialisieren und Markierung im Bild setzen
  setlength(xarr,Image1.Width);
  for x := 0 to Image1.Width - 1 do
  begin
    Image1.Picture.Bitmap.Canvas.Pixels[x,0] := x;
    xarr[x] := x;
  end;
  
  // Y-Array initialisieren und Markierung im Bild setzen
  setlength(yarr,Image1.Height);
  for y := 0 to Image1.Height - 1 do
  begin
    Image1.Picture.Bitmap.Canvas.Pixels[0,y] := y;
    yarr[y] := y;
  end;

  // Das ARRAY permutieren
  // Dabei die erste Spalte/Zeile und die letzten beiden so lassen
  // in der ersten Spalte/Zeile steht ja die Markierung der anderen Dimension drin
  // Und in den letzten beiden Zeilen kommt später das mp3 rein.
  // damit das nicht stört, bleibt das unten
  for i := 1 to Image1.Width - 3 do
  begin
    x := i + random(Image1.Width-2 - i);
    tmp := xarr[i];
    xarr[i] := xarr[x];
    xarr[x] := tmp;
  end;
  // entsprechend für yarr

  // zuletzt: Bild würfeln. Hier alles miteinbeziehen, damit die Markierungen mit gewürfelt werden
  for x := 0 to Image1.Width - 1 do
    for y := 0 to Image1.Height - 1 do
      Image4.Picture.Bitmap.Canvas.Pixels[xarr[x],yarr[y]] :=
        Image1.Picture.Bitmap.Canvas.Pixels[x,y];					

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

for y := 1 to Image1.Picture.Bitmap.Height -1 do
  begin
    Source1      := Image1.Picture.Bitmap.Scanline[y]; // Gitter-Bild
    Source2      := Image2.Picture.Bitmap.Scanline[y]; // Schwarz-Weiß-Bild
    Destination  := aBitmap.ScanLine[y]; // Zielbild

    // Hier für einen der drei Kanäle. Bei den anderen entsprechend.
    for x := 1 to Image1.Picture.Bitmap.Width -1 do
    begin
          if Source2[3*x] = 255 then
            Destination[3*x] := Source1[3*x] or 1
          else
            Destination[3*x] := Source1[3*x] AND 254;
          Destination[3*x+1] := Source1[3*x+1];
          Destination[3*x+2] := Source1[3*x+2];
     end;
     // Die Pixel der ersten Zeile/Spalte im Zielbild müssen noch extra gesetzt werden