图形显示技巧,这是其中一段代码

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