itimers.pas

iocopm3.04源码,一套很好的工控开发工具

                      begin
                        FHandle1 := QTimer_create(nil, nil);
                        FHook1 := QTimer_hook_create(FHandle1);
                        QTimer_timeout_Event(Timeout) := TimerCallBack1;
                        QTimer_hook_hook_timeout(FHook1, Timeout);
                      end;
                      QTimer_start(FHandle1, FInterval1, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled2(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled2 <> Value then
    begin
      FEnabled2 := Value;
      {$ifndef iCLX}
      case FEnabled2 of
        False : if FHandle2 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle2);
                    FHandle2 := 0;
                  end;
        True  : if FHandle2 =  0 then FHandle2 := SetTimer(FWindowHandle, 2, FInterval2, nil);
      end;
      {$else}
      case FEnabled2 of
        False : if Assigned(FHandle2) then QTimer_stop(FHandle2);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle2) then
                      begin
                        FHandle2 := QTimer_create(nil, nil);
                        FHook2 := QTimer_hook_create(FHandle2);
                        QTimer_timeout_Event(Timeout) := TimerCallBack2;
                        QTimer_hook_hook_timeout(FHook2, Timeout);
                      end;
                      QTimer_start(FHandle2, FInterval2, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled3(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled3 <> Value then
    begin
      FEnabled3 := Value;
      {$ifndef iCLX}
      case FEnabled3 of
        False : if FHandle3 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle3);
                    FHandle3 := 0;
                  end;
        True  : if FHandle3 =  0 then FHandle3 := SetTimer(FWindowHandle, 3, FInterval3, nil);
      end;
      {$else}
      case FEnabled3 of
        False : if Assigned(FHandle3) then QTimer_stop(FHandle3);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle3) then
                      begin
                        FHandle3 := QTimer_create(nil, nil);
                        FHook3 := QTimer_hook_create(FHandle3);
                        QTimer_timeout_Event(Timeout) := TimerCallBack3;
                        QTimer_hook_hook_timeout(FHook3, Timeout);
                      end;
                      QTimer_start(FHandle3, FInterval3, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled4(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled4 <> Value then
    begin
      FEnabled4 := Value;
      {$ifndef iCLX}
      case FEnabled4 of
        False : if FHandle4 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle4);
                    FHandle4 := 0;
                  end;
        True  : if FHandle4 =  0 then FHandle4 := SetTimer(FWindowHandle, 4, FInterval4, nil);
      end;
      {$else}
      case FEnabled4 of
        False : if Assigned(FHandle4) then QTimer_stop(FHandle4);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle4) then
                      begin
                        FHandle4 := QTimer_create(nil, nil);
                        FHook4 := QTimer_hook_create(FHandle4);
                        QTimer_timeout_Event(Timeout) := TimerCallBack4;
                        QTimer_hook_hook_timeout(FHook4, Timeout);
                      end;
                      QTimer_start(FHandle4, FInterval4, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled5(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled5 <> Value then
    begin
      FEnabled5 := Value;
      {$ifndef iCLX}
      case FEnabled5 of
        False : if FHandle5 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle5);
                    FHandle5 := 0;
                  end;
        True  : if FHandle5 =  0 then FHandle5 := SetTimer(FWindowHandle, 5, FInterval5, nil);
      end;
      {$else}
      case FEnabled5 of
        False : if Assigned(FHandle5) then QTimer_stop(FHandle5);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle5) then
                      begin
                        FHandle5 := QTimer_create(nil, nil);
                        FHook5 := QTimer_hook_create(FHandle5);
                        QTimer_timeout_Event(Timeout) := TimerCallBack5;
                        QTimer_hook_hook_timeout(FHook5, Timeout);
                      end;
                      QTimer_start(FHandle5, FInterval5, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled6(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled6 <> Value then
    begin
      FEnabled6 := Value;
      {$ifndef iCLX}
      case FEnabled6 of
        False : if FHandle6 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle6);
                    FHandle6 := 0;
                  end;
        True  : if FHandle6 =  0 then FHandle6 := SetTimer(FWindowHandle, 6, FInterval6, nil);
      end;
      {$else}
      case FEnabled6 of
        False : if Assigned(FHandle6) then QTimer_stop(FHandle6);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle6) then
                      begin
                        FHandle6 := QTimer_create(nil, nil);
                        FHook6 := QTimer_hook_create(FHandle6);
                        QTimer_timeout_Event(Timeout) := TimerCallBack6;
                        QTimer_hook_hook_timeout(FHook6, Timeout);
                      end;
                      QTimer_start(FHandle6, FInterval6, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled7(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled7 <> Value then
    begin
      FEnabled7 := Value;
      {$ifndef iCLX}
      case FEnabled7 of
        False : if FHandle7 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle7);
                    FHandle7 := 0;
                  end;
        True  : if FHandle7 =  0 then FHandle7 := SetTimer(FWindowHandle, 7, FInterval7, nil);
      end;
      {$else}
      case FEnabled7 of
        False : if Assigned(FHandle7) then QTimer_stop(FHandle7);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle7) then
                      begin
                        FHandle7 := QTimer_create(nil, nil);
                        FHook7 := QTimer_hook_create(FHandle7);
                        QTimer_timeout_Event(Timeout) := TimerCallBack7;
                        QTimer_hook_hook_timeout(FHook7, Timeout);
                      end;
                      QTimer_start(FHandle7, FInterval7, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled8(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled8 <> Value then
    begin
      FEnabled8 := Value;
      {$ifndef iCLX}
      case FEnabled8 of
        False : if FHandle8 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle8);
                    FHandle8 := 0;
                  end;
        True  : if FHandle8 =  0 then FHandle8 := SetTimer(FWindowHandle, 8, FInterval8, nil);
      end;
      {$else}
      case FEnabled8 of
        False : if Assigned(FHandle8) then QTimer_stop(FHandle8);
        True  : if not (csDesigning in ComponentState) then
                  begin
                    if not Assigned(FHandle8) then
                      begin
                        FHandle8 := QTimer_create(nil, nil);
                        FHook8 := QTimer_hook_create(FHandle8);
                        QTimer_timeout_Event(Timeout) := TimerCallBack8;
                        QTimer_hook_hook_timeout(FHook8, Timeout);
                      end;
                      QTimer_start(FHandle8, FInterval8, False);
                  end;
      end;
      {$endif}
    end;
end;
//****************************************************************************************************************************************************
procedure TiTimers.SetEnabled9(const Value: Boolean);
{$ifdef iCLX}
var
  Timeout : TMethod;
{$endif}
begin
  if FEnabled9 <> Value then
    begin
      FEnabled9 := Value;
      {$ifndef iCLX}
      case FEnabled9 of
        False : if FHandle9 <> 0 then
                  begin
                    KillTimer(FWindowHandle, FHandle9);
                    FHandle9 := 0;
                  end;
        True  : if FHandle9 =  0 then FHandle9 := SetTimer(FWindowHandle, 9, FInterval9, nil);
      end;