unit1.pas

精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理技巧 模拟放大镜效果等待

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button7: TButton;
    Button15: TButton;
    procedure Button15Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
const
     Step=2000;
var
   Bitmap:TBitmap;
   X0,Y0:integer;
   MidX,MidY:integer;
   RatioX,RatioY:real;

{$R *.DFM}

// 清屏
procedure TForm1.Button15Click(Sender: TObject);
var
   I:Integer;
begin
     Bitmap:=TBitmap.Create;
     Bitmap.LoadFromFile('1.BMP');
     X0:=Form1.Width div 3;
     Y0:=Form1.Height div 3;
     RatioX:=Bitmap.Width/Step;
     RatioY:=Bitmap.Height/Step;
     for I:=0 to Step do
     begin
          MidX:=Round(RatioX*I*0.5);
          MidY:=Round(RatioY*I*0.5);
          BitBlt(Form1.Canvas.Handle,X0-MidX,Y0-MidY,Round(RatioX*I*2),Round(RatioY*I*2),Bitmap.Canvas.Handle,X0-MidX,Y0-MidY,whiteness);
     end;
     Bitmap.Free;
end;

// 从中心到四周
procedure TForm1.Button1Click(Sender: TObject);
var
   I:Integer;
begin
     Button15Click(Sender);
     Bitmap:=TBitmap.Create;
     Bitmap.LoadFromFile('1.BMP');
     X0:=Width div 3;
     Y0:=Height div 3;
     RatioX:=Bitmap.Width/Step;
     RatioY:=Bitmap.Height/Step;
     for I:=0 to Step do
     begin
          MidX:=Round(RatioX*I*0.5);
          MidY:=Round(RatioY*I*0.5);
          BitBlt(Form1.Canvas.Handle,X0-MidX,Y0-MidY,Round(RatioX*I*2),Round(RatioY*I*2),Bitmap.Canvas.Handle,X0-MidX,Y0-MidY,srccopy);
     end;
     Bitmap.Free;
end;

// 从左上角到右下角
procedure TForm1.Button3Click(Sender: TObject);
var
   I:Integer;
begin
     Button15Click(Sender);
     Bitmap:=TBitmap.Create;
     Bitmap.LoadFromFile('1.BMP');
     RatioX:=Bitmap.Width/Step;
     RatioY:=Bitmap.Height/Step;
     for I:=0 to Step do
     begin
          BitBlt(Form1.Canvas.Handle,0,0,Round(RatioX*I*2),Round(RatioY*I*2),Bitmap.Canvas.Handle,0,0,srccopy);
     end;
     Bitmap.Free;
end;

// 从左到右
procedure TForm1.Button7Click(Sender: TObject);
var
   I:Integer;
begin
     Button15Click(Sender);
     Bitmap:=TBitmap.Create;
     Bitmap.LoadFromFile('1.BMP');
     X0:=0;
     Y0:=0;
     RatioX:=Bitmap.Width/Step;
     RatioY:=Bitmap.Height/Step;
     for I:=0 to Step do
     begin
          MidX:=Round(RatioX*I);
          MidY:=Round(RatioY*I);
          BitBlt(Form1.Canvas.Handle,0,0,Round(RatioX*I*1),Height,Bitmap.Canvas.Handle,0,0,srccopy);
     end;
     Bitmap.Free;
end;



end.