daima.txt

delphi开发的一个文书理解系统

 bmp:TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color:=clBlack;
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('didang.bmp');
  Form1.ClientWidth:=823;//bmp.Width;
  Form1.ClientHeight:=519;//bmp.Height;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  RectDest,RectSrc:TRect;
  StepX,StepY:Real;

begin
  Form1.Canvas.Brush.Color:=clBlack;
  Form1.Canvas.FillRect(form1.ClientRect);
  Button1.Visible:=False;
  StepX:=bmp.Width/500;
  StepY:=bmp.Height/500;
  for i:=0 to 500 do
  begin
        RectSrc.Left:=0;
        RectSrc.Top:=bmp.Height-Round(i*StepY);
        RectSrc.Right:=Round(i*StepX);
        RectSrc.Bottom:=bmp.Height;
        RectDest.Left:=0;
        RectDest.Top:=bmp.Height-Round(i*StepY);
        RectDest.Right:=Round(i*StepX);
        RectDest.Bottom:=bmp.Height;
        Form1.Canvas.CopyRect(RectDest,bmp.Canvas,RectSrc);
  end;
   button1.visible:=True;
end;
end.