unit1.~pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  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;
        Form3.Canvas.CopyRect(RectDest,bmp.Canvas,RectSrc);
  end;
   button1.visible:=True;
end;
end.