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

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 -Graphical display techniques, this is one piece of code procedure TForm1.Button1Click (Sender: TObject) var newbmp: TBitmap i, bmpheight, bmpwidth: integer// push-pull 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 (120100, newbmp) end newbmp.free end