unit1.~pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    new: TBitBtn;
    yuan: TBitBtn;
    shui: TBitBtn;
    chui: TBitBtn;
    bian: TBitBtn;
    exit: TBitBtn;
    Panel1: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure chuiClick(Sender: TObject);
    procedure bianClick(Sender: TObject);
    procedure shuiClick(Sender: TObject);
    procedure yuanClick(Sender: TObject);
    procedure newClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure exitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bitmap:tbitmap;
  i,numm:integer;
  rect1,rect2,rect3:trect;

implementation

{$R *.DFM}

{自动提示载入图形}
procedure TForm1.FormActivate(Sender: TObject);
begin
  bitmap:=tbitmap.create;//创建一个图形对象
  OpenPictureDialog1.filter:='Bitmap file(*.bmp)|*.bmp';//文件类型过滤
  form1.OpenPictureDialog1.Title:='打开图像文件';//打开对话框标题
  form1.OpenPictureDialog1.InitialDir:='C:\My Documents\My Pictures';//初始路径
  if OpenPictureDialog1.Execute then
  begin
    bitmap.loadfromfile(OpenPictureDialog1.filename);//导入图像
    Form1.Canvas.Draw(0,0, Bitmap);//在画布上画图像
  end;
end;

{实现垂直镜像}
procedure TForm1.chuiClick(Sender: TObject);
begin
  form1.repaint;//窗体重画
  for i:=0 to bitmap.height do//从画布顶部到底部
  begin
    with rect1 do
     begin
       left:=0;
       top:=i;
       right:=bitmap.width;//图像尺寸属性转换
       bottom:=i+1;
     end;
    with rect2 do
     begin
      left:=0;
      top:=(form1.height div 2)-i-1;
      right:=bitmap.width;
      bottom:=(form1.height div 2)-i;
     end;
    with rect3 do
     begin
      left:=0;
      top:=(form1.height div 2)+i-1;
      right:=bitmap.width;
      bottom:=(form1.height div 2)+i;
     end;
   canvas.copyrect(rect2,bitmap.canvas,rect1);
   canvas.copyrect(rect3,bitmap.canvas,rect1);//画布重画图像
  end;
end;

{变形的水平镜像}
procedure TForm1.bianClick(Sender: TObject);
begin
  form1.repaint;//窗体重画
  for i:=0 to bitmap.width do//从画布左端到右端
   begin
    with rect1 do
     begin
      left:=i;
      top:=0;
      right:=i+1;
      bottom:=bitmap.height;//图像尺寸属性转换
     end;
    with rect2 do
     begin
      left:=(form1.width div 2)-i-1;
      top:=i;
      right:=(form1.width div 2)-i;
      bottom:=bitmap.height+i;
     end;
    with rect3 do
     begin
      left:=(form1.width div 2)+i-1;
      top:=i;
      right:=(form1.width div 2)+i;
      bottom:=bitmap.height+i;
     end;
    canvas.copyrect(rect2,bitmap.canvas,rect1);
    canvas.copyrect(rect3,bitmap.canvas,rect1);
 end;
end;

{水 平 镜 像}
procedure TForm1.shuiClick(Sender: TObject);
begin
 form1.repaint;
  if bitmap.width>0 then numm:= form1.width div 2;
  for i:=0 to numm do
   begin
    bitblt(form1.canvas.handle,i,0,i,bitmap.height,
    bitmap.canvas.handle,bitmap.width-i,0,srccopy);//画布重画图像
   end;
end;

{原图显示}
procedure TForm1.yuanClick(Sender: TObject);
begin
   form1.repaint;//窗体重画
   Form1.Canvas.Draw(0,0, Bitmap);//在画布上画原始图像
end;

{导入新图像文件}
procedure TForm1.newClick(Sender: TObject);
begin
  OpenPictureDialog1.filter:='Bitmap file(*.bmp)|*.bmp';//文件格式过滤
  form1.OpenPictureDialog1.Title:='打开图像文件';//打开对话框标题
  form1.OpenPictureDialog1.InitialDir:='C:\My Documents\My Pictures';//导入文件初始路径
  if OpenPictureDialog1.Execute then
  begin
    bitmap.loadfromfile(OpenPictureDialog1.filename);//导入图像
    Form1.Canvas.Draw(0,0, Bitmap);//在画布上画图像
  end;
end;

{释放Bitmap对象}
procedure TForm1.FormDestroy(Sender: TObject);
begin
  bitmap.Free;//释放图像对象
end;

procedure TForm1.exitClick(Sender: TObject);
begin
  close;//关闭窗体，退出程序
end;

end.