var
FImage,MyBitMap:TBitMap;
MyRect:TRect; MyBitMap:=TBitMap.Create;
MyBitMap.Width:=MyRect.Right-MyRect.Left;
MyBitMap.Height:=MyRect.Bottom-MyRect.Top;
MyBitMap.Canvas.CopyRect(Rect(0,0,MyBitMap.Width,MyBitMap.Height),FImage.Canvas,MyRect);
MyBitMap.Free;
FImage,MyBitMap:TBitMap;
MyRect:TRect; MyBitMap:=TBitMap.Create;
MyBitMap.Width:=MyRect.Right-MyRect.Left;
MyBitMap.Height:=MyRect.Bottom-MyRect.Top;
MyBitMap.Canvas.CopyRect(Rect(0,0,MyBitMap.Width,MyBitMap.Height),FImage.Canvas,MyRect);
MyBitMap.Free;
解决方案 »
- 多镜头拍摄的立体图像处理
- sql语句嵌入在delphi中会出错,在查询分析器中却可以运行
- DCOM,连接服务器的问题
- 為什麼我每次新增Append一筆記錄。就提示不能插入一空值到指定字段裡。
- 困惑,WM_TIMER消息的处理是阻塞的吗?
- 请教一个关于API的问题,高手请进!高分奉上!在线等啊!急!急!急!急!急!急!急!急!急!急!急!急!
- 看起来很难的问题,不知道您能不能解决...
- 怎样才能修改英文控件中的英文,详见内容
- VirtualAllocEx方式注入如何使用参数?
- 如何在delphi中控制条码打印机?
- richedit控件有没有直接读入文件或保存文件的方法?
- 我感到头痛的问题,还必须解决!!,大家来看看吧
适当再加点设置、保存的代码就行了。