newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do begin
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;其中这一句 报错
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
谁知道如何解决吗
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do begin
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;其中这一句 报错
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
谁知道如何解决吗
解决方案 »
- DBGRID读取EXCEL 后刷新的问题,麻烦看看。。谢谢
- 怎样用DELPHI作扫描端口的程序?
- 自己开发的组件如何相应滚动条信息?谢谢。
- dbgrideh 中以哪种方式实现 动态模糊方式调取数据
- 怎样获得鼠标在屏幕上的坐标
- 雍正皇帝支持者进来签名!
- 简单的问题
- 我初学做报表,用quickrep做的报表怎么打成长为20厘米,宽为10厘米的报表?
- 有谁发现了Delphi6的控件,来这儿交流一下。
- 如何利用资源文件存取jpg格式文件
- 写Form.Onshow事件时出现很奇怪的错误,很多人都说没见过
- 我的spliter使用起来一切正常,可就是当鼠标指上去的时候不会变光标...为什么呀,是不是BUG,你们遇到过么?
//合并到一行。。代码没问题,可能是你放的格式不对。
newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;