Delphi 实现设备报警器闪烁报警效果

        设备报警器闪烁报警效果的设计要求，32个设备中每个设备都安装有一个报警器，记录设备周围的温湿度信息，设定一个温湿度的比较值，如果报警器的温湿度信息超出比较值，则进行报警显示并闪烁该设备的报警器图标，下图是报警的主画面，绿色为正常状态，红色表示报警状态，报警状态下是红色和黑色区域交替显示。

本实例采用动态绘图的方法进行报警器的判断，其中载入设备平面图，绘制好每个报警器，每次只要更新报警去内的区域颜色即可。

报警循环检测代码：

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:Byte;
  SumWD,SumSD:Single;
begin
  Timer1.Enabled:=False;
  
  for i:=1 to BjdCount do
  begin
     ReWSDState[i]:=DataModule1.ReadCGWSD(DaBJ,i);
  end;
  DaBJ[65]:=Format('%.1f', [SumWD/32])+' ℃';
  DaBJ[66]:=Format('%.1f', [SumSD/32])+' %';
  DrawBjqy(BjqyWidth,BjqyHeight);
  if bjCount>=1 then
  begin
    for i:=bjnode to BjdCount do
    begin
      if ReWSDSTmp[