模拟Windows任务管理器CPU使用率的动态折线图-农夫山泉

Delphi的TCanvas类可以实现各种复杂的图形输出功能，基于近期项目的需求，利用它实现了一个很炫的动态折线图（模拟了资源管理器中CPU使用率的折线图），可以直观地展现出数值的实时变化情况。

这段代码里边有几个核心的地方：

• 首先是为了缓解刷新时画布闪烁，利用了双缓冲的原理；
• 其次结合队列，保证了数据的顺序压入；
• 还有就是一些简单的数组算法。

最终的效果如下：

单元代码如下：

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls,Contnrs;

 

const

  {* 网格间隔 *}

  GridSpace = ;

  {* 移动步长（能够被间隔整除） *}

  MoveStep = ;

  {* Y轴最大值（最大刻度） *}

  MaxY = ;

 

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Button1: TButton;

    Image1: TImage;

    procedure DrawPL(Shower:TImage);

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  {* 网格竖线X坐标数组 *}

  GridXPArr: array of Integer;

  {* 点坐标数组 *}

  PointLst: array of TPoint;

  {* 数值队列 *}

  YPQueue: TQueue;

  {* 数值指针 *}

  PYValue: PInteger;

  {* 网格偏移量 *}

  X: Word;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var

  YValue:Integer;

begin

  Randomize;

  YValue := Random();

  //新Y坐标点按顺序压入队列

  New(PYValue);

  PYValue^ := YValue;

  YPQueue.Push(PYValue);

end;

 

procedure TForm1.DrawPL(Shower:TImage);

var

  Bit: TBitmap;

  i: Integer;

  PW,PH: Integer;

  YValue:Integer;

begin

  //偏移量计算

  Inc(X);

  if X = GridSpace div MoveStep then

  X := ;

  //初始化画布（双缓冲）

  Bit := TBitmap.Create;

  try

    PW := Shower.Width;

    PH := Shower.Height;

    Bit.Width := PW;

    Bit.Height := PH;

    //初始化网格竖线X坐标数组长度为宽/间隔+1

    SetLength(GridXPArr,PW div GridSpace + );

    with Bit.Canvas do

    begin

      Brush.Color := clBlack;

      Brush.Style := bsSolid;

      Rectangle(,,PW,PH);

      Pen.Color := $;

      //画网格，根据偏移量实现动态效果

      for i :=  to PW div GridSpace +  do

      begin

        GridXPArr[i] := GridSpace * i - X * MoveStep;

        MoveTo(GridXPArr[i],);

        LineTo(GridXPArr[i],PH);

      end;

      for i :=  to PH div GridSpace do

      begin

        MoveTo(,GridSpace * i);

        LineTo(PW,GridSpace * i);

      end;

      //画折线

      Pen.Color := clLime;

      YValue := ;

      //如果队列中有新的Y坐标点，则输出

      if YPQueue.Count >  then

      begin

        PYValue := YPQueue.Pop;

        YValue := PYValue^;

        Dispose(PYValue);

      end;

      //画笔移动到起点位置

      MoveTo(,PH);

      //每执行一次函数，Y坐标向前移动一位，并连线各个点

      for i :=  to Length(PointLst) -  do

      begin

        PointLst[i].Y := PointLst[i + ].Y;

        LineTo(PointLst[i+].X,PointLst[i+].Y);

      end;

      //按比例更新最后一位坐标点

      PointLst[Length(PointLst)-].X := PW;

      PointLst[Length(PointLst)-].Y := PH - (YValue  * PH div MaxY);

      //打印信息（可根据需要调整显示位置和内容）

      Brush.Style:=bsClear;

      Font.Color:=clYellow;

      TextOut(,,'数值:'+inttostr(YValue));

    end;

    Shower.Canvas.Draw(,,Bit);

  finally

    Bit.Free;

  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

var

  i:Integer;

begin

  YPQueue := TQueue.Create;

  //初始化坐标点个数为宽/步长+1

  SetLength(PointLst,Image1.Width div MoveStep + );

  //初始化坐标点为X轴基线位置

  for i :=  to Length(PointLst) -  do

  begin

    PointLst[i].X := i*MoveStep;

    PointLst[i].Y := Image1.Height;

  end;

end;

 

procedure TForm1.FormDestroy(Sender: TObject);

begin

  YPQueue.Free;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin

  DrawPL(Image1);

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  DrawPL(Image1);

end;

 

end.