ithreadtimerscomponenteditor.pas

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

{*******************************************************}
{                                                       }
{       TiThreadTimersComponentEditor                   }
{                                                       }
{       Copyright (c) 1997,2003 Iocomp Software         }
{                                                       }
{*******************************************************}
{$I iInclude.inc}

{$ifdef iVCL}unit  iThreadTimersComponentEditor;{$endif}
{$ifdef iCLX}unit QiThreadTimersComponentEditor;{$endif}

interface

uses
  {$I iIncludeUsesForms.inc}

  {$IFDEF iVCL} iComponentEditorForm,  iTypes,  iThreadTimers,{$ENDIF}
  {$IFDEF iCLX}QiComponentEditorForm, QiTypes, QiThreadTimers,{$ENDIF}

  {$IFDEF iVCL}  StdCtrls,  ExtCtrls,  Controls,  ComCtrls, Classes,  iComponentEditorThemePanel,  iComponentEditorButtonPanel,  iEditorBasicComponents,  iOPCBrowserPanel,  iAboutPanel,
  iComponent, iVCLComponent, iCustomComponent, iCheckBox;{$ENDIF}
  {$IFDEF iCLX} QStdCtrls, QExtCtrls, QControls, QComCtrls, Classes, QiComponentEditorThemePanel, QiComponentEditorButtonPanel, QiEditorBasicComponents, QiOPCBrowserPanel, QiAboutPanel;{$ENDIF}

type
  TiThreadTimersComponentEditorForm = class(TiComponentEditorForm)
    PageControl: TiComponentEditorPageControl;
    GeneralTabSheet: TTabSheet;
    Enabled1CheckBox: TiComponentEditorCheckBox;
    Interval1Edit: TiComponentEditorEdit;
    Enabled2CheckBox: TiComponentEditorCheckBox;
    Interval2Edit: TiComponentEditorEdit;
    Enabled3CheckBox: TiComponentEditorCheckBox;
    Interval3Edit: TiComponentEditorEdit;
    Enabled4CheckBox: TiComponentEditorCheckBox;
    Interval4Edit: TiComponentEditorEdit;
    Enabled5CheckBox: TiComponentEditorCheckBox;
    Interval5Edit: TiComponentEditorEdit;
    Enabled6CheckBox: TiComponentEditorCheckBox;
    Interval6Edit: TiComponentEditorEdit;
    Enabled7CheckBox: TiComponentEditorCheckBox;
    Interval7Edit: TiComponentEditorEdit;
    Enabled8CheckBox: TiComponentEditorCheckBox;
    Interval8Edit: TiComponentEditorEdit;
    Enabled9CheckBox: TiComponentEditorCheckBox;
    Interval9Edit: TiComponentEditorEdit;
    AboutTabSheet: TTabSheet;
    iComponentEditorButtonPanel1: TiComponentEditorButtonPanel;
    ThemeTabSheet: TTabSheet;
    iComponentEditorThemePanel: TiComponentEditorThemePanel;
    ThreadPriority1ComboBox: TiComponentEditorComboBox;
    ThreadPriority2ComboBox: TiComponentEditorComboBox;
    ThreadPriority3ComboBox: TiComponentEditorComboBox;
    ThreadPriority4ComboBox: TiComponentEditorComboBox;
    ThreadPriority5ComboBox: TiComponentEditorComboBox;
    ThreadPriority6ComboBox: TiComponentEditorComboBox;
    ThreadPriority7ComboBox: TiComponentEditorComboBox;
    ThreadPriority8ComboBox: TiComponentEditorComboBox;
    ThreadPriority9ComboBox: TiComponentEditorComboBox;
    iAboutPanel1: TiAboutPanel;
    Label19: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    ThreadPolicyLinux1Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux2Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux3Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux4Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux5Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux6Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux7Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux8Edit: TiComponentEditorComboBox;
    ThreadPolicyLinux9Edit: TiComponentEditorComboBox;
    PolicyLinuxLabel: TLabel;
    ThreadPriorityLinux1ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux2ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux3ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux4ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux5ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux6ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux7ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux8ComboBox: TiComponentEditorEdit;
    ThreadPriorityLinux9ComboBox: TiComponentEditorEdit;
    PriorityLinuxLabel: TLabel;
  protected
    procedure CreateThemeInstance; override;
    procedure CopyPropertiesToForm     (Component: TWinControl); override;
    procedure CopyPropertiesToComponent(Component: TWinControl); override;
    procedure Loaded;                                            override;
  end;

var
  iThreadTimersComponentEditorForm: TiThreadTimersComponentEditorForm;

implementation

{$R *.dfm}
//****************************************************************************************************************************************************
procedure TiThreadTimersComponentEditorForm.Loaded;
begin
  inherited Loaded;
  {$IFDEF iCLX}
  PriorityLinuxLabel.Visible           := True;

  ThreadPriorityLinux1ComboBox.Visible := True;
  ThreadPriorityLinux2ComboBox.Visible := True;
  ThreadPriorityLinux3ComboBox.Visible := True;
  ThreadPriorityLinux4ComboBox.Visible := True;
  ThreadPriorityLinux5ComboBox.Visible := True;
  ThreadPriorityLinux6ComboBox.Visible := True;
  ThreadPriorityLinux7ComboBox.Visible := True;
  ThreadPriorityLinux8ComboBox.Visible := True;
  ThreadPriorityLinux9ComboBox.Visible := True;

  PolicyLinuxLabel.Visible             := True;

  ThreadPolicyLinux1Edit.Visible       := True;
  ThreadPolicyLinux2Edit.Visible       := True;
  ThreadPolicyLinux3Edit.Visible       := True;
  ThreadPolicyLinux4Edit.Visible       := True;
  ThreadPolicyLinux5Edit.Visible       := True;
  ThreadPolicyLinux6Edit.Visible       := True;
  ThreadPolicyLinux7Edit.Visible       := True;
  ThreadPolicyLinux8Edit.Visible       := True;
  ThreadPolicyLinux9Edit.Visible       := True;
  {$ENDIF}
end;
//****************************************************************************************************************************************************
procedure TiThreadTimersComponentEditorForm.CreateThemeInstance;
begin
  iThemeInstance := TiThreadTimers.Create(Self);
end;
//****************************************************************************************************************************************************