procedure TForm1.BtnStartClick(Sender：TObject)； begin 　ScreenCapture1.start； //开始截图 end； 　//当截取屏幕成功时，此事件发生 　procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)； begin 　//调整滚动窗口的大小以适应截获图像的大小

绘制一个多边形,实现以下变换:a) 按字母U或u进行旋转轴的切换：旋转轴为垂直于屏幕的直线，过当前窗口中心或者过物体中心（通过按U/u在两种可能中切换）。改变旋转轴后的变换是在以前发生所有变换的基础上累加进行的。b) 按字母R或r, 物体绕旋转轴分别旋转一个小角度d0或者-d0。 c) 按向上、下、左、或右方向键，物体相对于屏幕向上、下、左、或右平移固定长度L0。d) 按S或s实现物体绕自身中心放大为原来的k或1/k倍，其中k>1为放缩因子。e) 如果按字母i或I, 则取消之前b,c,