ithreadtimers.pas

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

end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetInterval5(const Value: Integer);
var
  OldEvent  : TNotifyEvent;
  TempValue : Integer;
begin
  if Value < 1 then TempValue := 1 else TempValue := Value;

  if FEnabled5 then
    begin
      OldEvent := FTimer5.OnTimer;

      DestroyTimer(FTimer5);

      FTimer5           := CreateTimer(TempValue, OldEvent);
      FTimer5.Suspended := False;
    end
  else FTimer5.Interval := TempValue;
end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetInterval6(const Value: Integer);
var
  OldEvent  : TNotifyEvent;
  TempValue : Integer;
begin
  if Value < 1 then TempValue := 1 else TempValue := Value;

  if FEnabled6 then
    begin
      OldEvent := FTimer6.OnTimer;

      DestroyTimer(FTimer6);

      FTimer6           := CreateTimer(TempValue, OldEvent);
      FTimer6.Suspended := False;
    end
  else FTimer6.Interval := TempValue;
end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetInterval7(const Value: Integer);
var
  OldEvent  : TNotifyEvent;
  TempValue : Integer;
begin
  if Value < 1 then TempValue := 1 else TempValue := Value;

  if FEnabled7 then
    begin
      OldEvent := FTimer7.OnTimer;

      DestroyTimer(FTimer7);

      FTimer7           := CreateTimer(TempValue, OldEvent);
      FTimer7.Suspended := False;
    end
  else FTimer7.Interval := TempValue;
end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetInterval8(const Value: Integer);
var
  OldEvent  : TNotifyEvent;
  TempValue : Integer;
begin
  if Value < 1 then TempValue := 1 else TempValue := Value;

  if FEnabled8 then
    begin
      OldEvent := FTimer8.OnTimer;

      DestroyTimer(FTimer8);

      FTimer8           := CreateTimer(TempValue, OldEvent);
      FTimer8.Suspended := False;
    end
  else FTimer8.Interval := TempValue;
end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetInterval9(const Value: Integer);
var
  OldEvent  : TNotifyEvent;
  TempValue : Integer;
begin
  if Value < 1 then TempValue := 1 else TempValue := Value;

  if FEnabled9 then
    begin
      OldEvent := FTimer9.OnTimer;

      DestroyTimer(FTimer9);

      FTimer9           := CreateTimer(TempValue, OldEvent);
      FTimer9.Suspended := False;
    end
  else FTimer9.Interval := TempValue;
end;
//****************************************************************************************************************************************************
function TiThreadTimers.GetInterval1: Integer;begin Result := FTimer1.Interval;end;
function TiThreadTimers.GetInterval2: Integer;begin Result := FTimer2.Interval;end;
function TiThreadTimers.GetInterval3: Integer;begin Result := FTimer3.Interval;end;
function TiThreadTimers.GetInterval4: Integer;begin Result := FTimer4.Interval;end;
function TiThreadTimers.GetInterval5: Integer;begin Result := FTimer5.Interval;end;
function TiThreadTimers.GetInterval6: Integer;begin Result := FTimer6.Interval;end;
function TiThreadTimers.GetInterval7: Integer;begin Result := FTimer7.Interval;end;
function TiThreadTimers.GetInterval8: Integer;begin Result := FTimer8.Interval;end;
function TiThreadTimers.GetInterval9: Integer;begin Result := FTimer9.Interval;end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetOnTimer1(const Value: TNotifyEvent);begin FTimer1.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer2(const Value: TNotifyEvent);begin FTimer2.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer3(const Value: TNotifyEvent);begin FTimer3.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer4(const Value: TNotifyEvent);begin FTimer4.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer5(const Value: TNotifyEvent);begin FTimer5.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer6(const Value: TNotifyEvent);begin FTimer6.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer7(const Value: TNotifyEvent);begin FTimer7.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer8(const Value: TNotifyEvent);begin FTimer8.OnTimer := Value end;
procedure TiThreadTimers.SetOnTimer9(const Value: TNotifyEvent);begin FTimer9.OnTimer := Value end;
//****************************************************************************************************************************************************
function TiThreadTimers.GetOnTimer1: TNotifyEvent;begin Result := FTimer1.OnTimer;end;
function TiThreadTimers.GetOnTimer2: TNotifyEvent;begin Result := FTimer2.OnTimer;end;
function TiThreadTimers.GetOnTimer3: TNotifyEvent;begin Result := FTimer3.OnTimer;end;
function TiThreadTimers.GetOnTimer4: TNotifyEvent;begin Result := FTimer4.OnTimer;end;
function TiThreadTimers.GetOnTimer5: TNotifyEvent;begin Result := FTimer5.OnTimer;end;
function TiThreadTimers.GetOnTimer6: TNotifyEvent;begin Result := FTimer6.OnTimer;end;
function TiThreadTimers.GetOnTimer7: TNotifyEvent;begin Result := FTimer7.OnTimer;end;
function TiThreadTimers.GetOnTimer8: TNotifyEvent;begin Result := FTimer8.OnTimer;end;
function TiThreadTimers.GetOnTimer9: TNotifyEvent;begin Result := FTimer9.OnTimer;end;
//****************************************************************************************************************************************************
{$ifdef iVCL}
procedure TiThreadTimers.SetThreadPriority1(const Value: TThreadPriority);begin FTimer1.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority2(const Value: TThreadPriority);begin FTimer2.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority3(const Value: TThreadPriority);begin FTimer3.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority4(const Value: TThreadPriority);begin FTimer4.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority5(const Value: TThreadPriority);begin FTimer5.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority6(const Value: TThreadPriority);begin FTimer6.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority7(const Value: TThreadPriority);begin FTimer7.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority8(const Value: TThreadPriority);begin FTimer8.Priority := Value;end;
procedure TiThreadTimers.SetThreadPriority9(const Value: TThreadPriority);begin FTimer9.Priority := Value;end;
//****************************************************************************************************************************************************
function TiThreadTimers.GetThreadPriority1: TThreadPriority;begin Result := FTimer1.Priority;end;
function TiThreadTimers.GetThreadPriority2: TThreadPriority;begin Result := FTimer2.Priority;end;
function TiThreadTimers.GetThreadPriority3: TThreadPriority;begin Result := FTimer3.Priority;end;
function TiThreadTimers.GetThreadPriority4: TThreadPriority;begin Result := FTimer4.Priority;end;
function TiThreadTimers.GetThreadPriority5: TThreadPriority;begin Result := FTimer5.Priority;end;
function TiThreadTimers.GetThreadPriority6: TThreadPriority;begin Result := FTimer6.Priority;end;
function TiThreadTimers.GetThreadPriority7: TThreadPriority;begin Result := FTimer7.Priority;end;
function TiThreadTimers.GetThreadPriority8: TThreadPriority;begin Result := FTimer8.Priority;end;
function TiThreadTimers.GetThreadPriority9: TThreadPriority;begin Result := FTimer9.Priority;end;
{$endif}
//****************************************************************************************************************************************************
{$ifdef iCLX}
procedure TiThreadTimers.SetThreadPriorityWindows1(const Value: TiThreadPriority);begin FTimer1.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows2(const Value: TiThreadPriority);begin FTimer2.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows3(const Value: TiThreadPriority);begin FTimer3.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows4(const Value: TiThreadPriority);begin FTimer4.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows5(const Value: TiThreadPriority);begin FTimer5.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows6(const Value: TiThreadPriority);begin FTimer6.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows7(const Value: TiThreadPriority);begin FTimer7.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows8(const Value: TiThreadPriority);begin FTimer8.PriorityWindows := Value;end;
procedure TiThreadTimers.SetThreadPriorityWindows9(const Value: TiThreadPriority);begin FTimer9.PriorityWindows := Value;end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetThreadPriorityLinux1(const Value: Integer);begin FTimer1.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux2(const Value: Integer);begin FTimer2.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux3(const Value: Integer);begin FTimer3.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux4(const Value: Integer);begin FTimer4.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux5(const Value: Integer);begin FTimer5.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux6(const Value: Integer);begin FTimer6.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux7(const Value: Integer);begin FTimer7.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux8(const Value: Integer);begin FTimer8.PriorityLinux := Value;end;
procedure TiThreadTimers.SetThreadPriorityLinux9(const Value: Integer);begin FTimer9.PriorityLinux := Value;end;
//****************************************************************************************************************************************************
function TiThreadTimers.GetThreadPriorityWindows1: TiThreadPriority;begin Result := FTimer1.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows2: TiThreadPriority;begin Result := FTimer2.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows3: TiThreadPriority;begin Result := FTimer3.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows4: TiThreadPriority;begin Result := FTimer4.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows5: TiThreadPriority;begin Result := FTimer5.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows6: TiThreadPriority;begin Result := FTimer6.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows7: TiThreadPriority;begin Result := FTimer7.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows8: TiThreadPriority;begin Result := FTimer8.PriorityWindows;end;
function TiThreadTimers.GetThreadPriorityWindows9: TiThreadPriority;begin Result := FTimer9.PriorityWindows;end;
//****************************************************************************************************************************************************
function TiThreadTimers.GetThreadPriorityLinux1: Integer;begin Result := FTimer1.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux2: Integer;begin Result := FTimer2.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux3: Integer;begin Result := FTimer3.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux4: Integer;begin Result := FTimer4.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux5: Integer;begin Result := FTimer5.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux6: Integer;begin Result := FTimer6.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux7: Integer;begin Result := FTimer7.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux8: Integer;begin Result := FTimer8.PriorityLinux;end;
function TiThreadTimers.GetThreadPriorityLinux9: Integer;begin Result := FTimer9.PriorityLinux;end;
//****************************************************************************************************************************************************
procedure TiThreadTimers.SetThreadPolicyLinux1(const Value: TiThreadPolicy);begin FTimer1.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux2(const Value: TiThreadPolicy);begin FTimer2.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux3(const Value: TiThreadPolicy);begin FTimer3.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux4(const Value: TiThreadPolicy);begin FTimer4.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux5(const Value: TiThreadPolicy);begin FTimer5.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux6(const Value: TiThreadPolicy);begin FTimer6.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux7(const Value: TiThreadPolicy);begin FTimer7.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux8(const Value: TiThreadPolicy);begin FTimer8.PolicyLinux := Value;end;
procedure TiThreadTimers.SetThreadPolicyLinux9(const Value: TiThreadPolicy);begin FTimer9.PolicyLinux := Value;end;
//****************************************************************************************************************************************************
function TiThreadTimers.GetThreadPolicyLinux1: TiThreadPolicy;begin Result := FTimer1.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux2: TiThreadPolicy;begin Result := FTimer2.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux3: TiThreadPolicy;begin Result := FTimer3.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux4: TiThreadPolicy;begin Result := FTimer4.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux5: TiThreadPolicy;begin Result := FTimer5.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux6: TiThreadPolicy;begin Result := FTimer6.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux7: TiThreadPolicy;begin Result := FTimer7.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux8: TiThreadPolicy;begin Result := FTimer8.PolicyLinux;end;
function TiThreadTimers.GetThreadPolicyLinux9: TiThreadPolicy;begin Result := FTimer9.PolicyLinux;end;
{$endif}
//****************************************************************************************************************************************************
end.