iplotcomponenteditor.pas

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

    Label61: TLabel;
    Label62: TLabel;
    ChannelMarkersSizeUpDown: TiUpDown;
    Label168: TLabel;
    ChannelMarkersTurnOffLimitUpDown: TiUpDown;
    ChannelMarkersPenGroupBox: TGroupBox;
    Label56: TLabel;
    Label58: TLabel;
    Label60: TLabel;
    ChannelMarkersPenWidthUpDown: TiUpDown;
    ChannelMarkersPenStyleComboBox: TiComponentEditorComboBox;
    ChannelMarkersPenColorPicker: TiComponentEditorColorPicker;
    ChannelMarkersPenWidthEdit: TiComponentEditorEdit;
    ChannelMarkersPenUseChannelColorCheckBox: TiComponentEditorCheckBox;
    ChannelMarkersBrushGroupBox: TGroupBox;
    Label57: TLabel;
    Label59: TLabel;
    ChannelMarkersBrushStyleComboBox: TiComponentEditorComboBox;
    ChannelMarkersBrushColorPicker: TiComponentEditorColorPicker;
    ChannelMarkersBrushUseChannelColorCheckBox: TiComponentEditorCheckBox;
    ChannelMarkersSizeEdit: TiComponentEditorEdit;
    ChannelMarkersStyleComboBox: TiComponentEditorComboBox;
    ChannelMarkersShow: TiComponentEditorCheckBox;
    ChannelMarkersAllowIndividual: TiComponentEditorCheckBox;
    ChannelMarkersTurnOffLimitEdit: TiComponentEditorEdit;
    ChannelMarkersFontPicker: TiComponentEditorFontPicker;
    Label227: TLabel;
    XAxisAlignRefAxisNameComboBox: TiComponentEditorComboBox;
    Label228: TLabel;
    YAxisAlignRefAxisNameComboBox: TiComponentEditorComboBox;
    Label3: TLabel;
    Label5: TLabel;
    ChannelTraceLineWidthUpDown: TiUpDown;
    ChannelInterpolationStyleLabel: TLabel;
    ChannelTraceLineStyleComboBox: TiComponentEditorComboBox;
    ChannelTraceLineWidthEdit: TiComponentEditorEdit;
    ChannelTraceVisibleCheckBox: TiComponentEditorCheckBox;
    ChannelInterpolationStyleComboBox: TiComponentEditorComboBox;
    XAxisForceStackingCheckBox: TiComponentEditorCheckBox;
    YAxisForceStackingCheckBox: TiComponentEditorCheckBox;
    DataViewAxesControlGroupBox: TiComponentEditorGroupBox;
    Label237: TLabel;
    DataViewAxesControlWheelStyleComboBox: TiComponentEditorComboBox;
    DataViewAxesControlEnabledCheckBox: TiComponentEditorCheckBox;
    Label238: TLabel;
    DataViewAxesControlMouseStyleComboBox: TiComponentEditorComboBox;
    TablesLayoutTabSheet: TTabSheet;
    Label239: TLabel;
    Label240: TLabel;
    TableStartPercentEdit: TiComponentEditorEdit;
    TableStopPercentEdit: TiComponentEditorEdit;
    Label144: TLabel;
    DataFileColumnSeparatorComboBox: TiComponentEditorComboBox;
    Label63: TLabel;
    LegendColumnSpacingEdit: TiComponentEditorEdit;
    LegendFontPicker: TiComponentEditorFontPicker;
    LegendVisibleCheckbox: TiComponentEditorCheckBox;
    LegendEnabledCheckbox: TiComponentEditorCheckBox;
    LegendPopupEnabledCheckbox: TiComponentEditorCheckBox;
    LegendChannelNameGroupBox: TGroupBox;
    Label1: TLabel;
    Label241: TLabel;
    LegendChannelNameMaxWidthEdit: TiComponentEditorEdit;
    LegendChannelNameColorStyleComboBox: TiComponentEditorComboBox;
    Label243: TLabel;
    ChannelHighLowEnabledCheckBox: TiComponentEditorCheckBox;
    ChannelHighLowStyleComboBox: TiComponentEditorComboBox;
    iComponentEditorPageControl2: TiComponentEditorPageControl;
    ChannelHighLowOpenCloseTabSheet: TTabSheet;
    ChannelHighLowOpenGroupBox: TGroupBox;
    Label231: TLabel;
    Label232: TLabel;
    Label233: TLabel;
    ChannelHighLowOpenColorPicker: TiComponentEditorColorPicker;
    ChannelHighLowOpenWidthEdit: TiComponentEditorEdit;
    ChannelHighLowOpenShowCheckBox: TiComponentEditorCheckBox;
    ChannelHighLowOpenHeightEdit: TiComponentEditorEdit;
    ChannelHighLowOpenWidthPicker: TiComponentEditorValueConverterPicker;
    ChannelHighLowOpenHeightPicker: TiComponentEditorValueConverterPicker;
    ChannelHighLowCloseGroupBox: TGroupBox;
    Label234: TLabel;
    Label235: TLabel;
    Label236: TLabel;
    ChannelHighLowCloseColorPicker: TiComponentEditorColorPicker;
    ChannelHighLowCloseWidthEdit: TiComponentEditorEdit;
    ChannelHighLowCloseShowCheckBox: TiComponentEditorCheckBox;
    ChannelHighLowCloseHeightEdit: TiComponentEditorEdit;
    ChannelHighLowCloseWidthPicker: TiComponentEditorValueConverterPicker;
    ChannelHighLowCloseHeightPicker: TiComponentEditorValueConverterPicker;
    ChannelHighLowBarGroupBox: TGroupBox;
    Label229: TLabel;
    Label230: TLabel;
    ChannelHighLowBarColorPicker: TiComponentEditorColorPicker;
    ChannelHighLowBarWidthEdit: TiComponentEditorEdit;
    ChannelHighLowBarWidthPicker: TiComponentEditorValueConverterPicker;
    TabSheet18: TTabSheet;
    Label242: TLabel;
    Label244: TLabel;
    Label245: TLabel;
    ChannelHighLowShadowColorPicker: TiComponentEditorColorPicker;
    ChannelHighLowBullishColorPicker: TiComponentEditorColorPicker;
    ChannelHighLowBearishColorPicker: TiComponentEditorColorPicker;
    Label52: TLabel;
    Label102: TLabel;
    XAxisLabelFontPicker: TiComponentEditorFontPicker;
    XAxisLabelVisibleCheckBox: TiComponentEditorCheckBox;
    XAxisLabelMarginEdit: TiComponentEditorEdit;
    XAxisLabelSeparationEdit: TiComponentEditorEdit;
    Label246: TLabel;
    XAxisLabelRotationComboBox: TiComponentEditorComboBox;
    Label14: TLabel;
    Label24: TLabel;
    Label34: TLabel;
    YAxisLabelPrecisionUpDown: TiUpDown;
    Label35: TLabel;
    Label53: TLabel;
    Label92: TLabel;
    Label93: TLabel;
    Bevel6: TBevel;
    YAxisLabelPrecisionEdit: TiComponentEditorEdit;
    YAxisDateTimeFormatComboBox: TiComponentEditorComboBox;
    YAxisLabelFormatStyleComboBox: TiComponentEditorComboBox;
    YAxisLabelPrecisionStyleComboBox: TiComponentEditorComboBox;
    YAxisLabelFontPicker: TiComponentEditorFontPicker;
    YAxisLabelVisibleCheckBox: TiComponentEditorCheckBox;
    YAxisLabelMarginEdit: TiComponentEditorEdit;
    YAxisLabelMinLengthEdit: TiComponentEditorEdit;
    YAxisLabelSeparationEdit: TiComponentEditorEdit;
    YAxisLabelMinLengthAutoAdjustCheckBox: TiComponentEditorCheckBox;
    Label247: TLabel;
    YAxisLabelRotationComboBox: TiComponentEditorComboBox;
    ToolBarShowPreviewButtonCheckBox: TiComponentEditorCheckBox;
    XAxisTitleRotatedCheckBox: TiComponentEditorCheckBox;
    YAxisTitleRotatedCheckBox: TiComponentEditorCheckBox;
    iOPCBrowserPanel: TiOPCBrowserPanel;
    procedure FormActivate(Sender: TObject);
    procedure ChannelListBoxClick(Sender: TObject);
    procedure ChannelChange(Sender: TObject);
    procedure iChannelAddButtonClick(Sender: TObject);
    procedure ChannelRemoveButtonClick(Sender: TObject);
    procedure iComponentEditorFormCreate(Sender: TObject);
    procedure XAxesAddButtonClick(Sender: TObject);
    procedure XAxisRemoveButtonClick(Sender: TObject);
    procedure XAxisListBoxClick(Sender: TObject);
    procedure ChannelListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure XAxisListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure ModifiedEvent(Sender: TObject);
    procedure iComponentEditorFormDestroy(Sender: TObject);
    procedure YAxesAddButtonClick(Sender: TObject);
    procedure YAxisRemoveButtonClick(Sender: TObject);
    procedure YAxisListBoxClick(Sender: TObject);
    procedure YAxisListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure XAxisChange(Sender: TObject);
    procedure YAxisChange(Sender: TObject);
    procedure XAxisNameComboBoxDropDown(Sender: TObject);
    procedure YAxisNameComboBoxDropDown(Sender: TObject);
    procedure LegendListBoxClick(Sender: TObject);
    procedure LegendListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure LegendChange(Sender: TObject);
    procedure ToolBarListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure ToolBarListBoxClick(Sender: TObject);
    procedure ToolBarChange(Sender: TObject);
    procedure DataViewListBoxClick(Sender: TObject);
    procedure DataViewListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure DataViewChange(Sender: TObject);
    procedure ControlPropertiesSavePickerChange(Sender: TObject);
    procedure ControlPropertiesOpenPickerChange(Sender: TObject);
    procedure ChannelPropertiesSavePickerChange(Sender: TObject);
    procedure ChannelPropertiesOpenPickerChange(Sender: TObject);
    procedure ChannelLogFileNamePickerChange(Sender: TObject);
    procedure iPlotLayoutViewerChange(Sender: TObject);
    procedure ControlLogFileNamePickerChange(Sender: TObject);
    procedure DataCursorListBoxClick(Sender: TObject);
    procedure DataCursorListBoxGetData(const Index: Integer;  var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure iDataCursorAddButtonClick(Sender: TObject);
    procedure DataCursorRemoveButtonClick(Sender: TObject);
    procedure ChannelNameComboBoxDropDown(Sender: TObject);
    procedure DataCursorChange(Sender: TObject);
    procedure LimitListBoxClick(Sender: TObject);
    procedure LimitListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure LimitChange(Sender: TObject);
    procedure iLimitAddButtonClick(Sender: TObject);
    procedure LimitRemoveButtonClick(Sender: TObject);
    procedure TranslationListBoxClick(Sender: TObject);
    procedure TranslationChange(Sender: TObject);
    procedure iTranslationAddButtonClick(Sender: TObject);
    procedure TranslationListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure TranslationClearAllButtonClick(Sender: TObject);
    procedure TranslationRemoveButtonClick(Sender: TObject);
    procedure TranslationSavePickerChange(Sender: TObject);
    procedure iTranslationOpenPickerChange(Sender: TObject);
    procedure LabelChange(Sender: TObject);
    procedure iLabelAddButtonClick(Sender: TObject);
    procedure LabelRemoveButtonClick(Sender: TObject);
    procedure LabelListBoxClick(Sender: TObject);
    procedure LabelListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure TitleChange(Sender: TObject);
    procedure DataViewGridXAxisNameComboBoxDropDown(Sender: TObject);
    procedure DataViewGridYAxisNameComboBoxDropDown(Sender: TObject);
    procedure LayoutPopupMenuPopup(Sender: TObject);
    procedure XYAxesReverseMenuItemClick(Sender: TObject);
    procedure AddXAxisMenuItemClick(Sender: TObject);
    procedure AddYAxisMenuItemClick(Sender: TObject);
    procedure AddLabelMenuItemClick(Sender: TObject);
    procedure DeleteMenuItemClick(Sender: TObject);
    procedure VisibleMenuItemClick(Sender: TObject);
    procedure DataCursorChannelNameComboBoxDropDown(Sender: TObject);
    procedure iPlotLayoutViewerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure XAxisCursorCopyDefaultButtonClick(Sender: TObject);
    procedure XAxisLegendCopyDefaultButtonClick(Sender: TObject);
    procedure YAxisCursorCopyDefaultButtonClick(Sender: TObject);
    procedure YAxisLegendCopyDefaultButtonClick(Sender: TObject);
    procedure EditMenuItemClick(Sender: TObject);
    procedure ControlLogFileNameEditUpdate(Sender: TObject);
    procedure TableChange(Sender: TObject);
    procedure TableListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure TableListBoxClick(Sender: TObject);
    procedure iTableAddButtonClick(Sender: TObject);
    procedure TableRemoveButtonClick(Sender: TObject);
  private
    FMaster               : TiPlotMasterManager;
    FLastToolBarIndex     : Integer;
    FLastLegendIndex      : Integer;
    FLastXAxisIndex       : Integer;
    FLastYAxisIndex       : Integer;
    FLastDataViewIndex    : Integer;
    FLastChannelIndex     : Integer;
    FLastDataCursorIndex  : Integer;
    FLastLimitIndex       : Integer;
    FLastTranslationIndex : Integer;
    FLastLabelIndex       : Integer;
    FLastTableIndex       : Integer;
    FTransferring         : Boolean;
    FRightClickObject     : TiPlotLayoutObject;
  protected
    procedure UpdateAll;
    procedure UpdateToolBarEdit;
    procedure UpdateLegendEdit;
    procedure UpdateTableEdit;
    procedure UpdateXAxesEdit;
    procedure UpdateYAxesEdit;
    procedure UpdateDataViewEdit;
    procedure UpdateChannelEdit;
    procedure UpdateDataCursorEdit;
    procedure UpdateLimitEdit;
    procedure UpdateTranslationEdit;
    procedure UpdateLabelEdit;

    procedure MasterChange(Sender : TObject);
    procedure MasterInsert(Sender : TObject);
    procedure MasterRemove(Sender : TObject);

    procedure CreateThemeInstance; override;

    procedure CopyPropertiesToForm     (Component: TWinControl); override;
    procedure CopyPropertiesToComponent(Component: TWinControl); override;
  public
  end;

var
  iPlotComponentEditorForm: TiPlotComponentEditorForm;

implementation

uses
{$IFDEF iVCL} iPlotComponent,  iPlot,  iXYPlot,  iPlotAxis,  iPlotLegend,  iPlotToolBar,  iPlotChannelCustom,  iPlotChannel,  iXYPlotChannel,  iPlotTable,{$ENDIF}
{$IFDEF iCLX}QiPlotComponent, QiPlot, QiXYPlot, QiPlotAxis, QiPlotLegend, QiPlotToolBar, QiPlotChannelCustom, QiPlotChannel, QiXYPlotChannel, QiPlotTable,{$ENDIF}

{$IFDEF iVCL}  iOPCComputerSelector, iOPCServerSelector, iOPCItemSelector,{$ENDIF}

{$IFDEF iVCL}  iPlotDataView,  iPlotLimit,  iPlotLabel,  iPlotDataCursor,  iPlotTranslation;{$ENDIF}
{$IFDEF iCLX} QiPlotDataView, QiPlotLimit, QiPlotLabel, QiPlotDataCursor, QiPlotTranslation;{$ENDIF}


type