Description: 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
To Search:
- [wo] - This document is used to call the functi
- [SRL] - vb executable program, there is a surfac
File list (Check if you may need any files):
Download