qiprofessionalpropertyeditorsreg.pas

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

{$I iInclude.inc}

{$ifdef iVCL}unit  iProfessionalPropertyEditorsReg;{$endif}
{$ifdef iCLX}unit QiProfessionalPropertyEditorsReg;{$endif}

interface

uses
{$I iIncludeUses.inc}
{$IFDEF iVCL}{$IFDEF COMPILER_6_UP}DesignIntf, DesignEditors,{$ELSE}Dsgnintf,{$ENDIF} iComponentEditor,{$ENDIF}
{$IFDEF iCLX}DesignIntf, DesignEditors,                                              QiComponentEditor,{$ENDIF}

{$ifdef iVCL}
  iAngularLogGauge,         iAngularLogGaugeComponentEditor,
  iCompass,                 iCompassComponentEditor,
  iDualCompass,             iDualCompassComponentEditor,
  iImageDisplay,            iImageDisplayComponentEditor,
  iKeyBoard,                iKeyBoardComponentEditor,
  iLCDMatrix,               iLCDMatrixComponentEditor,
  iLedArrow,                iLedArrowComponentEditor,
  iLedDiamond,              iLedDiamondComponentEditor,
  iLedMatrix,               iLedMatrixComponentEditor,
  iLogGauge,                iLogGaugeComponentEditor,
  iMotor,                   iMotorComponentEditor,
  iObjectCanvas,            iObjectCanvasComponentEditor,
  iPanel,                   iPanelComponentEditor,
  iPercentBar,              iPercentBarComponentEditor,
  iPhonePad,                iPhonePadComponentEditor,
  iPieChart,                iPieChartComponentEditor,
  iPipe,                    iPipeComponentEditor,
  iPipeJoint,               iPipeJointComponentEditor,
  iRotationDisplay,         iRotationDisplayComponentEditor,
  iSevenSegmentClockSMPTE,  iSevenSegmentClockSMPTEComponentEditor,
  iSlidingCompass,          iSlidingCompassComponentEditor,
  iSlidingScale,            iSlidingScaleComponentEditor,
  iSpectrumDisplay,         iSpectrumDisplayComponentEditor,
  iSwitchLever,             iSwitchLeverComponentEditor,
  iSwitchQuad,              iSwitchQuadComponentEditor,
  iSwitchRocker,            iSwitchRockerComponentEditor,
  iSwitchRocker3Way,        iSwitchRocker3WayComponentEditor,
  iTank,                    iTankComponentEditor,
  iThreadTimers,            iThreadTimersComponentEditor,
  iTimers,                  iTimersComponentEditor,
  iValve,                   iValveComponentEditor;
{$endif}

{$ifdef iCLX}
  QiAngularLogGauge,         QiAngularLogGaugeComponentEditor,
  QiCompass,                 QiCompassComponentEditor,
  QiDualCompass,             QiDualCompassComponentEditor,
  QiImageDisplay,            QiImageDisplayComponentEditor,
  QiKeyBoard,                QiKeyBoardComponentEditor,
  QiLCDMatrix,               QiLCDMatrixComponentEditor,
  QiLedArrow,                QiLedArrowComponentEditor,
  QiLedDiamond,              QiLedDiamondComponentEditor,
  QiLedMatrix,               QiLedMatrixComponentEditor,
  QiLogGauge,                QiLogGaugeComponentEditor,
  QiMotor,                   QiMotorComponentEditor,
  QiObjectCanvas,            QiObjectCanvasComponentEditor,
  QiPanel,                   QiPanelComponentEditor,
  QiPercentBar,              QiPercentBarComponentEditor,
  QiPhonePad,                QiPhonePadComponentEditor,
  QiPieChart,                QiPieChartComponentEditor,
  QiPipe,                    QiPipeComponentEditor,
  QiPipeJoint,               QiPipeJointComponentEditor,
  QiRotationDisplay,         QiRotationDisplayComponentEditor,
  QiSevenSegmentClockSMPTE,  QiSevenSegmentClockSMPTEComponentEditor,
  QiSlidingCompass,          QiSlidingCompassComponentEditor,
  QiSlidingScale,            QiSlidingScaleComponentEditor,
  QiSpectrumDisplay,         QiSpectrumDisplayComponentEditor,
  QiSwitchLever,             QiSwitchLeverComponentEditor,
  QiSwitchQuad,              QiSwitchQuadComponentEditor,
  QiSwitchRocker,            QiSwitchRockerComponentEditor,
  QiSwitchRocker3Way,        QiSwitchRocker3WayComponentEditor,
  QiTank,                    QiTankComponentEditor,
  QiThreadTimers,            QiThreadTimersComponentEditor,
  QiTimers,                  QiTimersComponentEditor,
  QiValve,                   QiValveComponentEditor;
{$endif}

type
  TiAngularLogGaugeComponentEditor         = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiCompassComponentEditor                 = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiDualCompassComponentEditor             = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiImageDisplayComponentEditor            = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiKeyBoardComponentEditor                = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiLCDMatrixComponentEditor               = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiLedArrowComponentEditor                = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiLedDiamondComponentEditor              = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiLedMatrixComponentEditor               = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiLogGaugeComponentEditor                = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiMotorComponentEditor                   = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;
  TiObjectCanvasComponentEditor            = class(TiComponentEditor) procedure ExecuteVerb(Index : Integer); override; end;