islidingcompasscomponenteditor.pas

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

var
  iSlidingCompassComponentEditorForm: TiSlidingCompassComponentEditorForm;

implementation

{$R *.dfm}
//****************************************************************************************************************************************************
procedure TiSlidingCompassComponentEditorForm.CreateThemeInstance;
begin
  iThemeInstance := TiSlidingCompass.Create(Self);
end;
//****************************************************************************************************************************************************
procedure TiSlidingCompassComponentEditorForm.CopyPropertiesToForm(Component: TWinControl);
var
  iSlidingCompass : TiSlidingCompass;
begin
  iSlidingCompass := Component as TiSlidingCompass;
  //--------------------------- General ------------------------------------------------------------------------
  ReverseScaleCheckBox.AsBoolean               := iSlidingCompass.ReverseScale;
  CachedDrawingCheckBox.AsBoolean              := iSlidingCompass.CachedDrawing;
  TransparentCheckBox.AsBoolean                := iSlidingCompass.Transparent;
  OrientationRadioGroup.AsInteger              := ord(iSlidingCompass.Orientation);
  PointerOrientationRadioGroup.AsInteger       := ord(iSlidingCompass.PointerOrientation);
  BorderStyleRadioGroup.AsInteger              := ord(iSlidingCompass.BorderStyle);
  BackGroundColorPicker.Color                  := iSlidingCompass.BackGroundColor;
  AutoFrameRateCheckBox.AsBoolean              := iSlidingCompass.AutoFrameRate;
  UpdateFrameRateEdit.AsInteger                := iSlidingCompass.UpdateFrameRate;

  OuterMarginLeftEdit.AsInteger                := iSlidingCompass.OuterMarginLeft;
  OuterMarginTopEdit.AsInteger                 := iSlidingCompass.OuterMarginTop;
  OuterMarginRightEdit.AsInteger               := iSlidingCompass.OuterMarginRight;
  OuterMarginBottomEdit.AsInteger              := iSlidingCompass.OuterMarginBottom;

  TitleTextEdit.AsString                       := iSlidingCompass.TitleText;
  TitleMarginEdit.AsFloat                      := iSlidingCompass.TitleMargin;
  TitleAlignmentRadioGroup.AsInteger           := ord(iSlidingCompass.TitleAlignment);
  //--------------------------- Pointer ------------------------------------------------------------------------
  Pointer1PositionEdit.AsFloat                 := iSlidingCompass.Pointer1Position;
  Pointer1SizeEdit.AsInteger                   := iSlidingCompass.Pointer1Size;
  Pointer1ColorPicker.Color                    := iSlidingCompass.Pointer1Color;
  Pointer1StyleRadioGroup.AsInteger            := ord(iSlidingCompass.Pointer1Style);
  Pointer1LineWidthEdit.AsInteger              := iSlidingCompass.Pointer1LineWidth;
  Pointer1LineColorPicker.Color                := iSlidingCompass.Pointer1LineColor;

  Pointer2PositionEdit.AsFloat                 := iSlidingCompass.Pointer2Position;
  Pointer2SizeEdit.AsInteger                   := iSlidingCompass.Pointer2Size;
  Pointer2ColorPicker.Color                    := iSlidingCompass.Pointer2Color;
  Pointer2StyleRadioGroup.AsInteger            := ord(iSlidingCompass.Pointer2Style);
  Pointer2LineWidthEdit.AsInteger              := iSlidingCompass.Pointer2LineWidth;
  Pointer2LineColorPicker.Color                := iSlidingCompass.Pointer2LineColor;
  //---------------------------  Scale -------------------------------------------------------------------------
  ScaleSpanEdit.AsFloat                        := iSlidingCompass.ScaleSpan;
  ScaleAntiAliasedEnabledCheckBox.AsBoolean    := iSlidingCompass.ScaleAntiAliasEnabled;
  ScaleShadowEnabledCheckBox.AsBoolean         := iSlidingCompass.ScaleShadowEnabled;
  ScaleAlignStyleRadioGroup.AsInteger          := ord(iSlidingCompass.ScaleAlignStyle);
  ScaleOrientationRadioGroup.AsInteger         := ord(iSlidingCompass.ScaleOrientation);
  ScaleShadowColorPicker.Color                 := iSlidingCompass.ScaleShadowColor;
  ScaleBackGroundColorPicker.Color             := iSlidingCompass.ScaleBackgroundColor;
  //--------------------------- Ticks --------------------------------------------------------------------------
  TickMajorCountEdit.AsInteger                 := iSlidingCompass.TickMajorCount;
  TickMajorLengthEdit.AsInteger                := iSlidingCompass.TickMajorLength;
  TickMajorWidthEdit.AsInteger                 := iSlidingCompass.TickMajorWidth;
  TickMajorColorPicker.Color                   := iSlidingCompass.TickMajorColor;
  TickMajorLabelMarginEdit.AsFloat             := iSlidingCompass.TickMajorLabelMargin;
  TickMajorLabelPrecisionEdit.AsInteger        := iSlidingCompass.TickMajorLabelPrecision;

  ShowMidTicksCheckBox.AsBoolean               := iSlidingCompass.ShowMidTicks;
  TickMidLengthEdit.AsInteger                  := iSlidingCompass.TickMidLength;
  TickMidWidthEdit.AsInteger                   := iSlidingCompass.TickMidWidth;
  TickMidColorPicker.Color                     := iSlidingCompass.TickMidColor;
  ShowMidTickLabelsCheckBox.AsBoolean          := iSlidingCompass.ShowMidTickLabels;
  TickMidLabelMarginEdit.AsFloat               := iSlidingCompass.TickMidLabelMargin;
  TickMidLabelPrecisionEdit.AsInteger          := iSlidingCompass.TickMidLabelPrecision;

  TickMinorCountEdit.AsInteger                 := iSlidingCompass.TickMinorCount;
  TickMinorLengthEdit.AsInteger                := iSlidingCompass.TickMinorLength;
  TickMinorWidthEdit.AsInteger                 := iSlidingCompass.TickMinorWidth;
  TickMinorColorPicker.Color                   := iSlidingCompass.TickMinorColor;

  TitleFontPicker.Font.Assign         (iSlidingCompass.TitleFont);
  TickMajorLabelFontPicker.Font.Assign(iSlidingCompass.TickMajorLabelFont);
  TickMidLabelFontPicker.Font.Assign  (iSlidingCompass.TickMidLabelFont);

  UpLoadOPCProperties(iSlidingCompass, iOPCBrowserPanel);
end;
//****************************************************************************************************************************************************
procedure TiSlidingCompassComponentEditorForm.CopyPropertiesToComponent(Component: TWinControl);
var
  iSlidingCompass : TiSlidingCompass;
begin
  iSlidingCompass := Component as TiSlidingCompass;
  //--------------------------- General ------------------------------------------------------------------------
  iSlidingCompass.ReverseScale            := ReverseScaleCheckBox.AsBoolean;
  iSlidingCompass.CachedDrawing           := CachedDrawingCheckBox.AsBoolean;
  iSlidingCompass.Transparent             := TransparentCheckBox.AsBoolean;
  iSlidingCompass.Orientation             := TiOrientation(OrientationRadioGroup.AsInteger);
  iSlidingCompass.PointerOrientation      := TiOrientationSide(PointerOrientationRadioGroup.AsInteger);
  iSlidingCompass.BorderStyle             := TiBevelStyle(BorderStyleRadioGroup.AsInteger);
  iSlidingCompass.BackGroundColor         := BackGroundColorPicker.Color;
  iSlidingCompass.AutoFrameRate           := AutoFrameRateCheckBox.AsBoolean;
  iSlidingCompass.UpdateFrameRate         := UpdateFrameRateEdit.AsInteger;

  iSlidingCompass.OuterMarginLeft         := OuterMarginLeftEdit.AsInteger;
  iSlidingCompass.OuterMarginTop          := OuterMarginTopEdit.AsInteger;
  iSlidingCompass.OuterMarginRight        := OuterMarginRightEdit.AsInteger;
  iSlidingCompass.OuterMarginBottom       := OuterMarginBottomEdit.AsInteger;

  iSlidingCompass.TitleText               := TitleTextEdit.AsString;
  iSlidingCompass.TitleMargin             := TitleMarginEdit.AsFloat;
  iSlidingCompass.TitleAlignment          := TiAlignmentSideVertical(TitleAlignmentRadioGroup.AsInteger);
  //--------------------------- Pointer ------------------------------------------------------------------------
  iSlidingCompass.Pointer1Position        := Pointer1PositionEdit.AsFloat;
  iSlidingCompass.Pointer1Size            := Pointer1SizeEdit.AsInteger;
  iSlidingCompass.Pointer1Color           := Pointer1ColorPicker.Color;
  iSlidingCompass.Pointer1Style           := TiSlidingScalePointerStyle(Pointer1StyleRadioGroup.AsInteger);
  iSlidingCompass.Pointer1LineWidth       := Pointer1LineWidthEdit.AsInteger;
  iSlidingCompass.Pointer1LineColor       := Pointer1LineColorPicker.Color;

  iSlidingCompass.Pointer2Position        := Pointer2PositionEdit.AsFloat;
  iSlidingCompass.Pointer2Size            := Pointer2SizeEdit.AsInteger;
  iSlidingCompass.Pointer2Color           := Pointer2ColorPicker.Color;
  iSlidingCompass.Pointer2Style           := TiSlidingScalePointerStyle(Pointer2StyleRadioGroup.AsInteger);
  iSlidingCompass.Pointer2LineWidth       := Pointer2LineWidthEdit.AsInteger;
  iSlidingCompass.Pointer2LineColor       := Pointer2LineColorPicker.Color;
  //---------------------------  Scale -------------------------------------------------------------------------
  iSlidingCompass.ScaleSpan               := ScaleSpanEdit.AsFloat;
  iSlidingCompass.ScaleAntiAliasEnabled   := ScaleAntiAliasedEnabledCheckBox.AsBoolean;
  iSlidingCompass.ScaleShadowEnabled      := ScaleShadowEnabledCheckBox.AsBoolean;
  iSlidingCompass.ScaleAlignStyle         := TiScaleAlignStyle(ScaleAlignStyleRadioGroup.AsInteger);
  iSlidingCompass.ScaleOrientation        := TiOrientationSide(ScaleOrientationRadioGroup.AsInteger);
  iSlidingCompass.ScaleShadowColor        := ScaleShadowColorPicker.Color;
  iSlidingCompass.ScaleBackgroundColor    := ScaleBackGroundColorPicker.Color;
  //--------------------------- Ticks --------------------------------------------------------------------------
  iSlidingCompass.TickMajorCount          := TickMajorCountEdit.AsInteger;
  iSlidingCompass.TickMajorLength         := TickMajorLengthEdit.AsInteger;
  iSlidingCompass.TickMajorWidth          := TickMajorWidthEdit.AsInteger;
  iSlidingCompass.TickMajorColor          := TickMajorColorPicker.Color;
  iSlidingCompass.TickMajorLabelMargin    := TickMajorLabelMarginEdit.AsFloat;
  iSlidingCompass.TickMajorLabelPrecision := TickMajorLabelPrecisionEdit.AsInteger;

  iSlidingCompass.ShowMidTicks            := ShowMidTicksCheckBox.AsBoolean;
  iSlidingCompass.TickMidLength           := TickMidLengthEdit.AsInteger;
  iSlidingCompass.TickMidWidth            := TickMidWidthEdit.AsInteger;
  iSlidingCompass.TickMidColor            := TickMidColorPicker.Color;
  iSlidingCompass.ShowMidTickLabels       := ShowMidTickLabelsCheckBox.AsBoolean;
  iSlidingCompass.TickMidLabelMargin      := TickMidLabelMarginEdit.AsFloat;
  iSlidingCompass.TickMidLabelPrecision   := TickMidLabelPrecisionEdit.AsInteger;

  iSlidingCompass.TickMinorCount          := TickMinorCountEdit.AsInteger;
  iSlidingCompass.TickMinorLength         := TickMinorLengthEdit.AsInteger;
  iSlidingCompass.TickMinorWidth          := TickMinorWidthEdit.AsInteger;
  iSlidingCompass.TickMinorColor          := TickMinorColorPicker.Color;

  iSlidingCompass.TitleFont.Assign         (TitleFontPicker.Font);
  iSlidingCompass.TickMajorLabelFont.Assign(TickMajorLabelFontPicker.Font);
  iSlidingCompass.TickMidLabelFont.Assign  (TickMidLabelFontPicker.Font);

  DownLoadOPCProperties(iSlidingCompass, iOPCBrowserPanel);
end;
//****************************************************************************************************************************************************
end.