文件名称:tuxinxianshijiqiao
介绍说明--下载内容均来自于网络,请自行研究使用
图形显示技巧,这是其中一段代码
procedure TForm1.Button1Click(Sender: TObject)
var
newbmp:TBitmap
i,bmpheight,bmpwidth:integer //推拉
begin
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
end
procedure TForm1.Button1Click(Sender: TObject)
var
newbmp:TBitmap
i,bmpheight,bmpwidth:integer //推拉
begin
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
end
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 97288413tuxinxianshijiqiao.rar 列表 图形显示技巧\Project1.cfg 图形显示技巧\Project1.dof 图形显示技巧\Project1.dpr 图形显示技巧\Project1.exe 图形显示技巧\Project1.res 图形显示技巧\Unit1.dcu 图形显示技巧\Unit1.ddp 图形显示技巧\Unit1.dfm 图形显示技巧\Unit1.pas 图形显示技巧