iknobcomponenteditor.pas

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

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

{$ifdef iVCL}unit  iKnobComponentEditor;{$endif}
{$ifdef iCLX}unit QiKnobComponentEditor;{$endif}

interface

uses
  {$I iIncludeUsesForms.inc}

  {$IFDEF iVCL} iComponentEditorForm,  iTypes,  iKnob,{$ENDIF}
  {$IFDEF iCLX}QiComponentEditorForm, QiTypes, QiKnob,{$ENDIF}

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

type
  TiKnobComponentEditorForm = class(TiComponentEditorForm)
    PageControl: TiComponentEditorPageControl;
    GeneralTabSheet: TTabSheet;
    EnabledCheckBox: TiComponentEditorCheckBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    PositionEdit: TiComponentEditorEdit;
    PositionMaxEdit: TiComponentEditorEdit;
    PositionMinEdit: TiComponentEditorEdit;
    KeyStepSizeGroupBox: TGroupBox;
    Label6: TLabel;
    Label29: TLabel;
    CurrentMaxEdit: TiComponentEditorEdit;
    CurrentMinEdit: TiComponentEditorEdit;
    TransparentCheckBox: TiComponentEditorCheckBox;
    AutoScaleTabSheet: TTabSheet;
    Label46: TLabel;
    Label47: TLabel;
    AutoScaleEnabledCheckBox: TiComponentEditorCheckBox;
    AutoScaleDesiredTicksEdit: TiComponentEditorEdit;
    AutoScaleDesiredTicksUpDown: TiUpDown;
    AutoScaleMaxTicksEdit: TiComponentEditorEdit;
    AutoScaleMaxTicksUpDown: TiUpDown;
    AutoScaleStyleRadioGroup: TiComponentEditorRadioGroup;
    AboutTabSheet: TTabSheet;
    iComponentEditorButtonPanel1: TiComponentEditorButtonPanel;
    ThemeTabSheet: TTabSheet;
    iComponentEditorThemePanel: TiComponentEditorThemePanel;
    OPCTabSheet: TTabSheet;
    iOPCBrowserPanel: TiOPCBrowserPanel;
    CachedDrawingCheckBox: TiComponentEditorCheckBox;
    iAboutPanel1: TiAboutPanel;
    Label5: TLabel;
    Label7: TLabel;
    KeyArrowStepSizeEdit: TiComponentEditorEdit;
    KeyPageStepSizeEdit: TiComponentEditorEdit;
    Label31: TLabel;
    MouseWheelStepSizeEdit: TiComponentEditorEdit;
    DesignTabSheet: TTabSheet;
    iComponentEditorPageControl1: TiComponentEditorPageControl;
    DesignKnobTabSheet: TTabSheet;
    DesignIndicatorTabSheet: TTabSheet;
    DesignPositionTabSheet: TTabSheet;
    DesignTicksTabSheet: TTabSheet;
    DesignGeneralTabSheet: TTabSheet;
    Label17: TLabel;
    Label18: TLabel;
    KnobEdgeWidthUpDown: TiUpDown;
    KnobRadiusUpDown: TiUpDown;
    KnobStyleRadioGroup: TiComponentEditorRadioGroup;
    KnobEdgeWidthEdit: TiComponentEditorEdit;
    KnobRadiusEdit: TiComponentEditorEdit;
    Label2: TLabel;
    Label4: TLabel;
    Label11: TLabel;
    Label16: TLabel;
    IndicatorSizeUpDown: TiUpDown;
    IndicatorMarginUpDown: TiUpDown;
    IndicatorInactiveColorPicker: TiComponentEditorColorPicker;
    IndicatorActiveColorPicker: TiComponentEditorColorPicker;
    IndicatorStyleRadioGroup: TiComponentEditorRadioGroup;
    IndicatorSizeEdit: TiComponentEditorEdit;
    IndicatorMarginEdit: TiComponentEditorEdit;
    Label21: TLabel;
    Label22: TLabel;
    PositionDisplayPrecisionUpDown: TiUpDown;
    PositionDisplayFontPicker: TiComponentEditorFontPicker;
    PositionDisplayPrecisionEdit: TiComponentEditorEdit;
    PositionDisplayUnitsEdit: TiComponentEditorEdit;
    ShowPositionDisplayCheckBox: TiComponentEditorCheckBox;
    Label28: TLabel;
    TickMarginUpDown: TiUpDown;
    LabelsGroupBox: TGroupBox;
    Label15: TLabel;
    Label19: TLabel;
    TickLabelPrecisionUpDown: TiUpDown;
    TickLabelMarginUpDown: TiUpDown;
    ShowTickLabelsCheckBox: TiComponentEditorCheckBox;
    TickLabelFontPicker: TiComponentEditorFontPicker;
    TickLabelPrecisionEdit: TiComponentEditorEdit;
    TickLabelMarginEdit: TiComponentEditorEdit;
    MajorGroupBox: TGroupBox;
    Label20: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    TickMajorCountUpDown: TiUpDown;
    TickMajorLengthUpDown: TiUpDown;
    TickMajorColorPicker: TiComponentEditorColorPicker;
    ShowTicksMajorCheckBox: TiComponentEditorCheckBox;
    TickMajorCountEdit: TiComponentEditorEdit;
    TickMajorLengthEdit: TiComponentEditorEdit;
    MinorGroupBox: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    TickMinorCountUpDown: TiUpDown;
    TickMinorLengthUpDown: TiUpDown;
    TickMinorColorPicker: TiComponentEditorColorPicker;
    ShowTicksMinorCheckBox: TiComponentEditorCheckBox;
    TickMinorCountEdit: TiComponentEditorEdit;
    TickMinorLengthEdit: TiComponentEditorEdit;
    TickMinorAlignmentRadioGroup: TiComponentEditorRadioGroup;
    TickMarginEdit: TiComponentEditorEdit;
    OffsetGroupBox: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    OffsetXUpDown: TiUpDown;
    OffsetYUpDown: TiUpDown;
    OffsetXEdit: TiComponentEditorEdit;
    OffsetYEdit: TiComponentEditorEdit;
    Label3: TLabel;
    Label30: TLabel;
    OuterMarginUpDown: TiUpDown;
    BackGroundColorPicker: TiComponentEditorColorPicker;
    OuterMarginEdit: TiComponentEditorEdit;
    AutoSizeCheckBox: TiComponentEditorCheckBox;
    PrecisionStyleRadioGroup: TiComponentEditorRadioGroup;
    RotationGroupBox: TGroupBox;
    Label1: TLabel;
    Label8: TLabel;
    RotationStartDegreesEdit: TiComponentEditorComboBox;
    RotationMaxDegreesEdit: TiComponentEditorComboBox;
    Label76: TLabel;
    UpdateFrameRateUpDown: TiUpDown;
    UpdateFrameRateEdit: TiComponentEditorEdit;
    AutoFrameRateCheckBox: TiComponentEditorCheckBox;
    ShowFocusRectCheckBox: TiComponentEditorCheckBox;
  protected
    procedure CreateThemeInstance; override;
    procedure CopyPropertiesToForm     (Component: TWinControl); override;
    procedure CopyPropertiesToComponent(Component: TWinControl); override;
  end;

var
  iKnobComponentEditorForm: TiKnobComponentEditorForm;

implementation