istripchartcomponenteditor.pas

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

  XAxisTickMajorCountEdit.AsInteger              := iStripChart.XAxisTickMajorCount;
  XAxisTickMajorLengthEdit.AsInteger             := iStripChart.XAxisTickMajorLength;

  XAxisTickMinorColorPicker.Color                := iStripChart.XAxisTickMinorColor;
  XAxisTickMinorCountEdit.AsInteger              := iStripChart.XAxisTickMinorCount;
  XAxisTickMinorLengthEdit.AsInteger             := iStripChart.XAxisTickMinorLength;

  XAxisTickLabelMarginEdit.AsInteger             := iStripChart.XAxisLabelMargin;
  XAxisTickLabelPrecisionEdit.AsInteger          := iStripChart.XAxisLabelPrecision;

  XAxisDateTimeEnabled.AsBoolean                 := iStripChart.XAxisDateTimeEnabled;
  XAxisDateTimeFormatStringComboBox.AsString     := iStripChart.XAxisDateTimeFormatString;
  //------------ YAxis -------------------------------------------------------------------------------------------------------------------------------
  YAxisMaxEdit.AsFloat                           := iStripChart.YAxisMax;
  YAxisMinEdit.AsFloat                           := iStripChart.YAxisMin;
  YAxisMarginEdit.AsInteger                      := iStripChart.YAxisMargin;
  YAxisShowCheckBox.AsBoolean                    := iStripChart.YAxisShow;
  YAxisReverseScaleCheckBox.AsBoolean            := iStripChart.YAxisReverseScale;

  YAxisTitleEdit.AsString                        := iStripChart.YAxisTitle;
  YAxisTitleMarginEdit.AsInteger                 := iStripChart.YAxisTitleMargin;

  YAxisTickMajorColorPicker.Color                := iStripChart.YAxisTickMajorColor;
  YAxisTickMajorCountEdit.AsInteger              := iStripChart.YAxisTickMajorCount;
  YAxisTickMajorLengthEdit.AsInteger             := iStripChart.YAxisTickMajorLength;

  YAxisTickMinorColorPicker.Color                := iStripChart.YAxisTickMinorColor;
  YAxisTickMinorCountEdit.AsInteger              := iStripChart.YAxisTickMinorCount;
  YAxisTickMinorLengthEdit.AsInteger             := iStripChart.YAxisTickMinorLength;

  YAxisTickLabelMarginEdit.AsInteger             := iStripChart.YAxisLabelMargin;
  YAxisTickLabelPrecisionEdit.AsInteger          := iStripChart.YAxisLabelPrecision;
  YAxisLabelWidthEdit.AsInteger                  := iStripChart.YAxisLabelWidth;
  YAxisLabelWidthFixedCheckBox.AsBoolean         := iStripChart.YAxisLabelWidthFixed;
  //--------- LegendGrid -----------------------------------------------------------------------------------------------------------------------------
  ShowLegendCheckBox.AsBoolean                   := iStripChart.ShowLegend;
  LegendMarginEdit.AsInteger                     := iStripChart.LegendMargin;
  LegendWidthEdit.AsInteger                      := iStripChart.LegendWidth;

  ShowGridCheckBox.AsBoolean                     := iStripChart.ShowGrid;
  GridLineStyleRadioGroup.AsInteger              := ord(iStripChart.GridLineStyle);
  AxisGridColorPicker.Color                      := iStripChart.AxisGridColor;
  GridBackGroundColorPicker.Color                := iStripChart.GridBackGroundColor;
  //-------------- ToolBarCursor ---------------------------------------------------------------------------------------------------------------------
  ShowToolBarCheckBox.AsBoolean                  := iStripChart.ShowToolBar;
  ToolBarModeRadioGroup.AsInteger                := ord(iStripChart.ToolBarMode);

  RestoreXYAxisOnPlotModeCheckBox.AsBoolean      := iStripChart.RestoreXYAxisOnPlotMode;

  CursorHideAllOtherChannelsCheckBox.AsBoolean   := iStripChart.CursorHideAllOtherChannels;
  CursorChannelEdit.AsInteger                    := iStripChart.CursorChannel;
  CursorColorPicker.Color                        := iStripChart.CursorColor;
  CursorChannelBackGroundColorPicker.Color       := iStripChart.CursorChannelBackGroundColor;
  CursorChannelFontColorPicker.Color             := iStripChart.CursorChannelFontColor;
  //----------- Printer ------------------------------------------------------------------------------------------------------------------------------
  {$ifdef iVCL}PrinterOrientationRadioGroup.AsInteger := ord(iStripChart.PrinterOrientation);{$endif}
  PrinterMarginLeftEdit.AsFloat                  := iStripChart.PrinterMarginLeft;
  PrinterMarginTopEdit.AsFloat                   := iStripChart.PrinterMarginTop;
  PrinterMarginRightEdit.AsFloat                 := iStripChart.PrinterMarginRight;
  PrinterMarginBottomEdit.AsFloat                := iStripChart.PrinterMarginBottom;
  PrinterShowDialogCheckBox.AsBoolean            := iStripChart.PrinterShowDialog;
  PrinterCommentLineSpacingEdit.AsFloat          := iStripChart.PrinterCommentLineSpacing;
  //--------------------------------------------------------------------------------------------------------------------------------------------------
  TitleFontPicker.Font.Assign              (iStripChart.TitleFont);
  XAxisTitleFontPicker.Font.Assign         (iStripChart.XAxisTitleFont);
  XAxisLabelFontPicker.Font.Assign         (iStripChart.XAxisLabelFont);
  YAxisTitleFontPicker.Font.Assign         (iStripChart.YAxisTitleFont);
  YAxisLabelFontPicker.Font.Assign         (iStripChart.YAxisLabelFont);
  LegendFontPicker.Font.Assign             (iStripChart.LegendFont);
  ToolBarActiveModeFontPicker.Font.Assign  (iStripChart.ToolBarActiveModeFont);
  ToolBarInactiveModeFontPicker.Font.Assign(iStripChart.ToolBarInactiveModeFont);
  PrinterCommentLinesFontPicker.Font.Assign(iStripChart.PrinterCommentLinesFont);

  if ChannelListBox.Items.Count  > FLastChannelIndex  then ChannelListBox.ItemIndex  := FLastChannelIndex;
  UpdateChannelEdit;
end;
//****************************************************************************************************************************************************
procedure TiStripChartComponentEditorForm.CopyPropertiesToComponent(Component: TWinControl);
var
  iStripChart    : TiStripChart;
  iChannelObject : TiStripChartChannelObject;
  x              : Integer;
begin
  iStripChart := Component as TiStripChart;

  iStripChart.RemoveAllChannels;

  for x := 0 to ChannelListBox.Items.Count - 1 do
    begin
      iChannelObject := ChannelListBox.Items.Objects[x] as TiStripChartChannelObject;
      iStripChart.AddChannel(iChannelObject.Title, iChannelObject.Color, iChannelObject.LineStyle, iChannelObject.LineWidth);
    end;
  //--------- General --------------------------------------------------------------------------------------------------------------------------------
  iStripChart.BackGroundColor              := BackGroundColorPicker.Color;

  iStripChart.MaxBufferSize                := MaxBufferSizeEdit.AsInteger;
  iStripChart.MinBufferSize                := MinBufferSizeEdit.AsInteger;

  iStripChart.TitleText                    := TitleEdit.AsString;
  iStripChart.TitleMargin                  := TitleMarginEdit.AsInteger;

  iStripChart.EnableDataDrawMinMax         := EnableDataDrawMinMaxCheckBox.AsBoolean;
  iStripChart.DiscontinuousDataEnabled     := DiscontinuousDataEnabledCheckBox.AsBoolean;
  iStripChart.InterpolateMissingDataPoints := InterpolateMissingDataPointsCheckBox.AsBoolean;
  iStripChart.AutoFrameRate                := AutoFrameRateCheckBox.AsBoolean;
  iStripChart.UpdateFrameRate              := UpdateFrameRateEdit.AsInteger;

  iStripChart.BorderStyle                  := TiBevelStyle(BorderStyleRadioGroup.AsInteger);
  iStripChart.PrecisionStyle               := TiPrecisionStyle(PrecisionStyleRadioGroup.AsInteger);

  iStripChart.OuterMarginLeft              := OuterMarginLeftEdit.AsInteger;
  iStripChart.OuterMarginTop               := OuterMarginTopEdit.AsInteger;
  iStripChart.OuterMarginRight             := OuterMarginRightEdit.AsInteger;
  iStripChart.OuterMarginBottom            := OuterMarginBottomEdit.AsInteger;
  //--------- AutoScroll/Scale -----------------------------------------------------------------------------------------------------------------------
  iStripChart.AutoScaleEnabled             := AutoScaleCheckBox.AsBoolean;
  iStripChart.AutoScaleMaxAdjustEnabled    := AutoScaleMaxAdjustEnabledCheckBox.AsBoolean;
  iStripChart.AutoScaleMinAdjustEnabled    := AutoScaleMinAdjustEnabledCheckBox.AsBoolean;

  iStripChart.AutoScaleHysterisis          := AutoScaleHysterisisEdit.AsFloat;

  iStripChart.AutoScrollEnabled            := AutoScrollEnabledCheckBox.AsBoolean;
  iStripChart.AutoScrollType               := TiAutoScroll(AutoScrollTypeRadioGroup.AsInteger);
  iStripChart.AutoScrollStepSize           := AutoScrollStepSizeEdit.AsFloat;
  iStripChart.AutoScrollFirstStyle         := TiAutoScrollFirstStyle(AutoScrollFirstStyleRadioGroup.AsInteger);
  //------------ XAxis -------------------------------------------------------------------------------------------------------------------------------
  iStripChart.XAxisMax                     := XAxisMaxEdit.AsFloat;
  iStripChart.XAxisMin                     := XAxisMinEdit.AsFloat;
  iStripChart.XAxisMargin                  := XAxisMarginEdit.AsInteger;
  iStripChart.XAxisShow                    := XAxisShowCheckBox.AsBoolean;

  iStripChart.XAxisTitle                   := XAxisTitleEdit.AsString;
  iStripChart.XAxisTitleMargin             := XAxisTitleMarginEdit.AsInteger;

  iStripChart.XAxisTickMajorColor          := XAxisTickMajorColorPicker.Color;
  iStripChart.XAxisTickMajorCount          := XAxisTickMajorCountEdit.AsInteger;
  iStripChart.XAxisTickMajorLength         := XAxisTickMajorLengthEdit.AsInteger;

  iStripChart.XAxisTickMinorColor          := XAxisTickMinorColorPicker.Color;
  iStripChart.XAxisTickMinorCount          := XAxisTickMinorCountEdit.AsInteger;
  iStripChart.XAxisTickMinorLength         := XAxisTickMinorLengthEdit.AsInteger;

  iStripChart.XAxisLabelMargin             := XAxisTickLabelMarginEdit.AsInteger;
  iStripChart.XAxisLabelPrecision          := XAxisTickLabelPrecisionEdit.AsInteger;

  iStripChart.XAxisDateTimeEnabled         := XAxisDateTimeEnabled.AsBoolean;
  iStripChart.XAxisDateTimeFormatString    := XAxisDateTimeFormatStringComboBox.AsString;
  //---------- YAxis ---------------------------------------------------------------------------------------------------------------------------------
  iStripChart.YAxisMax                     := YAxisMaxEdit.AsFloat;
  iStripChart.YAxisMin                     := YAxisMinEdit.AsFloat;
  iStripChart.YAxisMargin                  := YAxisMarginEdit.AsInteger;
  iStripChart.YAxisShow                    := YAxisShowCheckBox.AsBoolean;
  iStripChart.YAxisReverseScale            := YAxisReverseScaleCheckBox.AsBoolean;

  iStripChart.YAxisTitle                   := YAxisTitleEdit.AsString;
  iStripChart.YAxisTitleMargin             := YAxisTitleMarginEdit.AsInteger;

  iStripChart.YAxisTickMajorColor          := YAxisTickMajorColorPicker.Color;
  iStripChart.YAxisTickMajorCount          := YAxisTickMajorCountEdit.AsInteger;
  iStripChart.YAxisTickMajorLength         := YAxisTickMajorLengthEdit.AsInteger;

  iStripChart.YAxisTickMinorColor          := YAxisTickMinorColorPicker.Color;
  iStripChart.YAxisTickMinorCount          := YAxisTickMinorCountEdit.AsInteger;
  iStripChart.YAxisTickMinorLength         := YAxisTickMinorLengthEdit.AsInteger;

  iStripChart.YAxisLabelMargin             := YAxisTickLabelMarginEdit.AsInteger;
  iStripChart.YAxisLabelPrecision          := YAxisTickLabelPrecisionEdit.AsInteger;
  iStripChart.YAxisLabelWidth              := YAxisLabelWidthEdit.AsInteger;
  iStripChart.YAxisLabelWidthFixed         := YAxisLabelWidthFixedCheckBox.AsBoolean;
  //--------- LegendGrid -----------------------------------------------------------------------------------------------------------------------------
  iStripChart.ShowLegend                   := ShowLegendCheckBox.AsBoolean;
  iStripChart.LegendMargin                 := LegendMarginEdit.AsInteger;
  iStripChart.LegendWidth                  := LegendWidthEdit.AsInteger;

  iStripChart.ShowGrid                     := ShowGridCheckBox.AsBoolean;
  iStripChart.GridLineStyle                := TiChannelLineStyle(GridLineStyleRadioGroup.AsInteger);
  iStripChart.AxisGridColor                := AxisGridColorPicker.Color;
  iStripChart.GridBackGroundColor          := GridBackGroundColorPicker.Color;
  //-------------- ToolBarCursor ---------------------------------------------------------------------------------------------------------------------
  iStripChart.ShowToolBar                  := ShowToolBarCheckBox.AsBoolean;
  iStripChart.ToolBarMode                  := TiStripChartMode(ToolBarModeRadioGroup.AsInteger);

  iStripChart.RestoreXYAxisOnPlotMode      := RestoreXYAxisOnPlotModeCheckBox.AsBoolean;

  iStripChart.CursorHideAllOtherChannels   := CursorHideAllOtherChannelsCheckBox.AsBoolean;
  iStripChart.CursorChannel                := CursorChannelEdit.AsInteger;
  iStripChart.CursorColor                  := CursorColorPicker.Color;
  iStripChart.CursorChannelBackGroundColor := CursorChannelBackGroundColorPicker.Color;
  iStripChart.CursorChannelFontColor       := CursorChannelFontColorPicker.Color;
  //----------- Printer ------------------------------------------------------------------------------------------------------------------------------
  {$ifdef iVCL}iStripChart.PrinterOrientation           := TPrinterOrientation(PrinterOrientationRadioGroup.ItemIndex);{$endif}
  iStripChart.PrinterMarginLeft            := PrinterMarginLeftEdit.AsFloat;
  iStripChart.PrinterMarginTop             := PrinterMarginTopEdit.AsFloat;
  iStripChart.PrinterMarginRight           := PrinterMarginRightEdit.AsFloat;
  iStripChart.PrinterMarginBottom          := PrinterMarginBottomEdit.AsFloat;
  iStripChart.PrinterShowDialog            := PrinterShowDialogCheckBox.AsBoolean;
  iStripChart.PrinterCommentLineSpacing    := PrinterCommentLineSpacingEdit.AsFloat;
  //--------------------------------------------------------------------------------------------------------------------------------------------------
  iStripChart.TitleFont.Assign              (TitleFontPicker.Font);
  iStripChart.XAxisTitleFont.Assign         (XAxisTitleFontPicker.Font);
  iStripChart.XAxisLabelFont.Assign         (XAxisLabelFontPicker.Font);
  iStripChart.YAxisTitleFont.Assign         (YAxisTitleFontPicker.Font);
  iStripChart.YAxisLabelFont.Assign         (YAxisLabelFontPicker.Font);
  iStripChart.LegendFont.Assign             (LegendFontPicker.Font);
  iStripChart.ToolBarActiveModeFont.Assign  (ToolBarActiveModeFontPicker.Font);
  iStripChart.ToolBarInactiveModeFont.Assign(ToolBarInactiveModeFontPicker.Font);
  iStripChart.PrinterCommentLinesFont.Assign(PrinterCommentLinesFontPicker.Font);
  
  FLastChannelIndex  := ChannelListBox.ItemIndex;
end;
//****************************************************************************************************************************************************
end.