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

... uses clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var B: TBitmap;
begin
 B:=TBitmap.Create;
 B.Width := Groupbox1.Width;
 B.Height := Groupbox1.Height;
 Groupbox1.PaintTo(B.Canvas,0,0);
// B.SaveToFile('E:\x.bmp');
 Clipboard.Assign(B);
end;					

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

uses math;
{$R *.dfm}

Procedure SetCanvasZoomAndRotation(ACanvas:TCanvas;Zoom:Double;Angle:Double;CenterpointX,CenterpointY:Double);
var
    form : tagXFORM;
    Winkel:Double;

begin
      Winkel := DegToRad(Angle);
      SetGraphicsMode(ACanvas.Handle, GM_ADVANCED);
      SetMapMode(ACanvas.Handle,MM_ANISOTROPIC);
      form.eM11 := Zoom * cos( Winkel);
      form.eM12 := Zoom *Sin( Winkel)  ;
      form.eM21 := Zoom * (-sin( Winkel));
      form.eM22 := Zoom * cos( Winkel) ;
      form.eDx := CenterpointX;
      form.eDy := CenterpointY;
      SetWorldTransform(ACanvas.Handle,form);
end;