unit1.~pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Shape1: TShape;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Start:boolean;
implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if start then
    begin
    Randomize;
    form1.shape1.Brush.Color:=RGB(random(255),random(255),random(255));
    Randomize;
    //随机设置画笔模式
    case random(8) of
      0:form1.Shape1.Brush.Style:=bsSolid;
      1:form1.Shape1.Brush.Style:=bsBdiagonal;
      2:form1.Shape1.Brush.Style:=bsVertical;
      3:form1.Shape1.Brush.Style:=bsFdiagonal;
      4:form1.Shape1.Brush.Style:=bsDiagCross;
      5:form1.Shape1.Brush.Style:=bsCross;
      6:form1.Shape1.Brush.Style:=bsHorizontal;
      7:form1.Shape1.Brush.Style:=bsClear;
    end;
    randomize;
    form1.Shape1.pen.Color:=RGB(random(255),random(255),random(255));
    randomize;
    form1.shape1.pen.width:=random(10)+1;
    randomize;
    //随机设置绘图模式
    case random(16) of
      0:form1.shape1.pen.mode:=pmBlack;
      1:form1.shape1.pen.mode:=pmNotxor;
      2:form1.shape1.pen.mode:=pmXor;
      3:form1.shape1.pen.mode:=pmNotMask;
      4:form1.shape1.pen.mode:=pmNotMerge;
      5:form1.shape1.pen.mode:=pmMerge;
      6:form1.shape1.pen.mode:=pmMaskNotPen;
      7:form1.shape1.pen.mode:=pmMaskPenNot;
      8:form1.shape1.pen.mode:=pmMaskNotPen;
      9:form1.shape1.pen.mode:= pmMergePenNot;
      10:form1.shape1.pen.mode:=pmMergeNotpen;
      11:form1.shape1.pen.mode:=pmNotCopy;
      12:form1.shape1.pen.mode:=pmCopy;
      13:form1.shape1.pen.mode:=pmNot;
      14:form1.shape1.pen.mode:=pmNop;
      15:form1.shape1.pen.mode:=pmwhite;
    end;
    Randomize;
    //随机设置绘图风格
    case random(7) of
      0:form1.shape1.Pen.Style:=psSolid;
      1:form1.shape1.Pen.Style:=psDash;
      2:form1.shape1.Pen.Style:=psDot;
      3:form1.shape1.Pen.Style:=psDashDot;
      4:form1.shape1.Pen.Style:=psDashDotDot;
      5:form1.shape1.Pen.Style:=psClear;
      6:form1.shape1.Pen.Style:=psInsideFrame;
    end;
    randomize;
    //设置Shape控件的形状，共有6种形状可选
    case random(7) of
      0:form1.shape1.shape:=stRectangle;
      1:form1.shape1.shape:=stSquare;
      2:form1.shape1.shape:=stRoundRect;
      3:form1.shape1.shape:=stRoundSquare;
      4:form1.shape1.shape:=stEllipse;
      5:form1.shape1.shape:=stCircle;
    end;
   end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  start:=true;//图形动画开始
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  start:=false;//图形动画停止
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Close;
end;

end.