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

  glViewport(0, 0, VPanel.ClientWidth, VPanel.ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, VPanel.ClientWidth/VPanel.ClientHeight, NearClipping, FarClipping);

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;					

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

procedure SnapShot;
var ATarget: TBitmap;
begin
 ATarget:=TBitmap.Create;
 ATarget.PixelFormat := pfDevice;
 ATarget.Width := Screen.Width;
 ATarget.Height := Screen.Height;
 BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
 ATarget.SaveToFile('test.bmp');
end;					

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

//Snapshotroutine von WhiteHunter
 glGetIntegerv(GL_VIEWPORT, @Viewport);
 Rohbild := TBitmap.Create;
 try
 Rohbild.Width := Viewport[2];
 Rohbild.Height := Viewport[3];
 Rohbild.PixelFormat := pf24bit;
 for i := 0 to Viewport[3] - 1 do
 glReadPixels(0, Viewport[3] - i, Viewport[2], 1, GL_BGR, GL_UNSIGNED_BYTE, Rohbild.ScanLine[i]);					

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

glViewport(0, 0, 8192, 8192);
// zeichnen und kopieren

glViewport(512, 0, 8192, 8192);
// zeichnen und kopiren

glViewport(1024, 0, 8192, 8192);
// zeichnen und kopiren

usw.					

1:
2:
3:
4:

var
  VP: array[0..1] of Integer;
begin
  glGetIntegerv(GL_MAX_VIEWPORT_DIMS, @VP);					

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 TOpenGLWorks.SnapShot(Redraw: TTickProc; GameTimer: TGameTimer);
var ATarget: Graphics.TBitmap;  X,Y,W,H: integer;  Size: integer;
begin
 Size:=3;
 
 W:=VPanel.ClientWidth;
 H:=VPanel.ClientHeight;

 glViewport( 0, 0, W*Size, H*Size );
 Redraw(0);


 ATarget:=Graphics.TBitmap.Create;
 ATarget.PixelFormat := pfDevice;
 ATarget.Width := W*Size;
 ATarget.Height := H*Size;
 GameTimer.Enabled:=False;
 for X:= 0 to (Size-1) do
   for Y:= 0 to (Size-1) do
     begin
       glViewport( -X*W, -Y*H, W*Size, H*Size );
       Redraw(0);
       glViewport( -X*W, -Y*H, W*Size, H*Size );
       Redraw(0);
       BitBlt(ATarget.Canvas.Handle, X*W, ( (Size-1)-Y)*H, W,H, DC, 0, 0, SRCCOPY);
     end;
 ATarget.SaveToFile('test.bmp');

 glViewport( 0, 0, W, H );
 Redraw(0);
 GameTimer.Enabled:=True;
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:

procedure TOpenGLWorks.SnapShot(Redraw: TTickProc; GameTimer: TGameTimer; Size: integer);
var ATarget, SubTarget: Graphics.TBitmap;  X,Y,W,H: integer; DestRect,TargetRect: TRect;
begin

 W:=VPanel.ClientWidth;
 H:=VPanel.ClientHeight;

 glViewport( 0, 0, W*Size, H*Size );
 Redraw(0);

 DestRect.Left:=0;
 DestRect.Top:=0;
 DestRect.Right:=W;
 DestRect.Bottom:=H;


 ATarget:=Graphics.TBitmap.Create;
 ATarget.PixelFormat := pfDevice;
 ATarget.Width := W*Size;
 ATarget.Height := H*Size;

 SubTarget:=Graphics.TBitmap.Create;
 SubTarget.PixelFormat := pfDevice;
 SubTarget.Width := W;
 SubTarget.Height := H;

 GameTimer.Enabled:=False;
 for X:= 0 to (Size-1) do
   for Y:= 0 to (Size-1) do
     begin
       glViewport( -X*W, -Y*H, W*Size, H*Size );
       Redraw(0);
       glReadPixels( X*W, Y*H, W, H, GL_RGB, GL_BITMAP, @SubTarget );

       TargetRect.Left:=X*W;
       TargetRect.Top:=Y*H;
       TargetRect.Right:=W+X*W;
       TargetRect.Bottom:=H+Y*H;

       ATarget.Canvas.CopyRect(TargetRect,SubTarget.Canvas,DestRect);
     //  BitBlt(ATarget.Canvas.Handle, X*W, ( (Size-1)-Y)*H, W,H, DC, 0, 0, SRCCOPY);
     end;
 ATarget.SaveToFile('test.bmp');

 glViewport( 0, 0, W, H );
 Redraw(0);
 GameTimer.Enabled:=True;
end;