圖形顯示技巧,這是其中一段代碼
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
標(biāo)簽：
procedure
Tbitmap
TObject
Button
上傳時間：
2016-01-18
上傳用戶：comua
