iangularloggaugecomponenteditor.pas

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

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

{$ifdef iVCL}unit  iAngularLogGaugeComponentEditor;{$endif}
{$ifdef iCLX}unit QiAngularLogGaugeComponentEditor;{$endif}

interface

uses
  {$I iIncludeUsesForms.inc}

  {$IFDEF iVCL} iComponentEditorForm,  iTypes,  iAngularLogGauge,  iGaugePointer,{$ENDIF}
  {$IFDEF iCLX}QiComponentEditorForm, QiTypes, QiAngularLogGauge, QiGaugePointer,{$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, QiRadioGroup, QiComponent, QiCLXComponent, QiCustomComponent, QiCheckBox;{$ENDIF}

type
  TiAngularLogGaugeComponentEditorForm = class(TiComponentEditorForm)
    PageControl: TiComponentEditorPageControl;
    GeneralTabSheet: TTabSheet;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    PositionEdit: TiComponentEditorEdit;
    PositionMaxEdit: TiComponentEditorEdit;
    PositionMinEdit: TiComponentEditorEdit;
    DesignTabSheet: TTabSheet;
    Label43: TLabel;
    Label44: TLabel;
    CurrentMaxEdit: TiComponentEditorEdit;
    CurrentMinEdit: TiComponentEditorEdit;
    TransparentCheckBox: TiComponentEditorCheckBox;
    AboutTabSheet: TTabSheet;
    iComponentEditorButtonPanel1: TiComponentEditorButtonPanel;
    ThemeTabSheet: TTabSheet;
    iComponentEditorThemePanel: TiComponentEditorThemePanel;
    OPCTabSheet: TTabSheet;
    iOPCBrowserPanel: TiOPCBrowserPanel;
    CachedDrawingCheckBox: TiComponentEditorCheckBox;
    iAboutPanel1: TiAboutPanel;
    iComponentEditorPageControl1: TiComponentEditorPageControl;
    DesignSectionsTabSheet: TTabSheet;
    DesignGeneralTabSheet: TTabSheet;
    DesignArcHubTabSheet: TTabSheet;
    DesignPointersTabSheet: TTabSheet;
    DesignTicksTabSheet: TTabSheet;
    DesignLabelsTabSheet: TTabSheet;
    Label10: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    SectionCountUpDown: TiUpDown;
    SectionColor1Picker: TiComponentEditorColorPicker;
    SectionColor2Picker: TiComponentEditorColorPicker;
    SectionColor3Picker: TiComponentEditorColorPicker;
    SectionColor4Picker: TiComponentEditorColorPicker;
    SectionColor5Picker: TiComponentEditorColorPicker;
    SectionEnd1Edit: TiComponentEditorEdit;
    SectionEnd2Edit: TiComponentEditorEdit;
    SectionCountEdit: TiComponentEditorEdit;
    SectionEnd3Edit: TiComponentEditorEdit;
    SectionEnd4Edit: TiComponentEditorEdit;
    DesignMinMaxTabSheet: TTabSheet;
    ShowInnerArcRadiusCheckBox: TiComponentEditorCheckBox;
    ShowOuterArcRadiusCheckBox: TiComponentEditorCheckBox;
    Label3: TLabel;
    BackGroundColorPicker: TiComponentEditorColorPicker;
    OffsetGroupBox: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    OffsetXUpDown: TiUpDown;
    OffsetYUpDown: TiUpDown;
    OffsetXEdit: TiComponentEditorEdit;
    OffsetYEdit: TiComponentEditorEdit;
    BorderStyleRadioGroup: TiComponentEditorRadioGroup;
    ArcGroupBox: TGroupBox;
    Label29: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    ArcRadiusUpDown: TiUpDown;
    ArcRangeDegreesUpDown: TiUpDown;
    ArcStartDegreesUpDown: TiUpDown;
    ArcRadiusEdit: TiComponentEditorEdit;
    ArcRangeDegreesEdit: TiComponentEditorEdit;
    ArcStartDegreesEdit: TiComponentEditorEdit;
    HubGroupBox: TGroupBox;
    Label36: TLabel;
    Label45: TLabel;
    HubSizeUpDown: TiUpDown;
    HubColorPicker: TiComponentEditorColorPicker;
    HubSizeEdit: TiComponentEditorEdit;
    ShowHubCheckBox: TiComponentEditorCheckBox;
    iPointerListBox: TiComponentEditorListBox;
    iPointerAddButton: TButton;
    PointerRemoveButton: TButton;
    PointersGeneralPageControl: TiComponentEditorPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label4: TLabel;
    PointerMarginUpDown: TiUpDown;
    PointerSizeUpDown: TiUpDown;
    Label9: TLabel;
    Label50: TLabel;
    PointerMarginEdit: TiComponentEditorEdit;
    PointerSizeEdit: TiComponentEditorEdit;
    PointerStyleRadioGroup: TiComponentEditorRadioGroup;
    PointerColorPicker: TiComponentEditorColorPicker;
    PointerPositionEdit: TiComponentEditorEdit;
    Label28: TLabel;
    TickMarginUpDown: TiUpDown;
    LabelsGroupBox: TGroupBox;
    Label15: TLabel;
    Label19: TLabel;
    TickLabelPrecisionUpDown: TiUpDown;
    TickLabelMarginUpDown: TiUpDown;
    TickLabelFontPicker: TiComponentEditorFontPicker;
    TickLabelPrecisionEdit: TiComponentEditorEdit;
    TickLabelMarginEdit: TiComponentEditorEdit;
    TickLabelStyleRadioGroup: TiComponentEditorRadioGroup;
    MinorGroupBox: TGroupBox;
    Label25: TLabel;
    Label27: TLabel;
    TickMinorLengthUpDown: TiUpDown;
    TickMinorColorPicker: TiComponentEditorColorPicker;
    TickMinorLengthEdit: TiComponentEditorEdit;
    TickMinorAlignmentRadioGroup: TiComponentEditorRadioGroup;
    TickMarginEdit: TiComponentEditorEdit;
    MajorGroupBox: TGroupBox;
    Label20: TLabel;
    Label24: TLabel;
    TickMajorLengthUpDown: TiUpDown;
    TickMajorColorPicker: TiComponentEditorColorPicker;
    TickMajorLengthEdit: TiComponentEditorEdit;
    Label1GroupBox: TGroupBox;
    Label37: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    Label1OffsetXUpDown: TiUpDown;
    Label1OffsetYUpDown: TiUpDown;
    Label1AlignHorizontalRadioGroup: TiComponentEditorRadioGroup;
    Label1AlignVerticalRadioGroup: TiComponentEditorRadioGroup;
    Label1OffsetXEdit: TiComponentEditorEdit;
    Label1OffsetYEdit: TiComponentEditorEdit;
    Label1FontPicker: TiComponentEditorFontPicker;
    Label1TextEdit: TiComponentEditorEdit;
    ShowLabel1CheckBox: TiComponentEditorCheckBox;
    Label2GroupBox: TGroupBox;
    Label39: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label2OffsetXUpDown: TiUpDown;
    Label2OffsetYUpDown: TiUpDown;
    Label2AlignHorizontalRadioGroup: TiComponentEditorRadioGroup;
    Label2AlignVerticalRadioGroup: TiComponentEditorRadioGroup;
    Label2OffsetXEdit: TiComponentEditorEdit;
    Label2OffsetYEdit: TiComponentEditorEdit;
    Label2FontPicker: TiComponentEditorFontPicker;
    Label2TextEdit: TiComponentEditorEdit;
    ShowLabel2CheckBox: TiComponentEditorCheckBox;
    Label2: TLabel;
    Label11: TLabel;
    MinMaxPointerSizeUpDown: TiUpDown;
    MinMaxPointerMarginUpDown: TiUpDown;
    MinMaxPointerSizeEdit: TiComponentEditorEdit;
    MinMaxPointerMarginEdit: TiComponentEditorEdit;
    MaxGroupBox: TGroupBox;
    Label7: TLabel;
    MaxPointerColorPicker: TiComponentEditorColorPicker;
    ShowMaxPointerCheckBox: TiComponentEditorCheckBox;
    MinGroupBox: TGroupBox;
    Label8: TLabel;
    MinPointerColorPicker: TiComponentEditorColorPicker;
    ShowMinPointerCheckBox: TiComponentEditorCheckBox;
    MinMaxPointerStyleRadioGroup: TiComponentEditorRadioGroup;
    MinMaxFixedCheckBox: TiComponentEditorCheckBox;
    MinMaxUserCanMoveCheckBox: TiComponentEditorCheckBox;
    Label76: TLabel;
    UpdateFrameRateUpDown: TiUpDown;
    UpdateFrameRateEdit: TiComponentEditorEdit;
    AutoFrameRateCheckBox: TiComponentEditorCheckBox;
    PointerVisibleCheckBox: TiComponentEditorCheckBox;
    procedure PointerChange(Sender: TObject);
    procedure iPointerAddButtonClick(Sender: TObject);
    procedure PointerRemoveButtonClick(Sender: TObject);
    procedure iPointerListBoxClick(Sender: TObject);
    procedure iPointerListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
    procedure PositionEditChange(Sender: TObject);
    procedure iComponentEditorFormCreate(Sender: TObject);
    procedure iComponentEditorFormDestroy(Sender: TObject);
  private
    FPointerManager   : TiGaugePointerManager;
    FLastPointerIndex : Integer;
  protected
    procedure CreateThemeInstance; override;
    procedure CopyPropertiesToForm     (Component: TWinControl); override;
    procedure CopyPropertiesToComponent(Component: TWinControl); override;

    procedure InsertEvent(Sender: TObject);
    procedure RemoveEvent(Sender: TObject);
    procedure ChangeEvent(Sender: TObject);

    procedure UpdatePointers;
  end;

var
  iAngularLogGaugeComponentEditorForm: TiAngularLogGaugeComponentEditorForm;

implementation

{$R *.dfm}
//****************************************************************************************************************************************************
procedure TiAngularLogGaugeComponentEditorForm.CreateThemeInstance;
begin
  iThemeInstance := TiAngularLogGauge.Create(Self);
end;
//****************************************************************************************************************************************************
procedure TiAngularLogGaugeComponentEditorForm.CopyPropertiesToForm(Component: TWinControl);
var
  iAngularLogGauge : TiAngularLogGauge;
  x                : Integer;
begin
  iAngularLogGauge := Component as TiAngularLogGauge;

  //-------------- General --------------------------------------------------------------------------------------------------------------------
  PositionEdit.AsFloat                      := iAngularLogGauge.Position;
  PositionMaxEdit.AsFloat                   := iAngularLogGauge.PositionMax;
  PositionMinEdit.AsFloat                   := iAngularLogGauge.PositionMin;
  CurrentMaxEdit.AsFloat                    := iAngularLogGauge.CurrentMax;
  CurrentMinEdit.AsFloat                    := iAngularLogGauge.CurrentMin;
  ShowInnerArcRadiusCheckBox.AsBoolean      := iAngularLogGauge.ShowInnerArcRadius;
  ShowOuterArcRadiusCheckBox.AsBoolean      := iAngularLogGauge.ShowOuterArcRadius;
  BackGroundColorPicker.Color               := iAngularLogGauge.BackGroundColor;
  AutoFrameRateCheckBox.AsBoolean           := iAngularLogGauge.AutoFrameRate;
  UpdateFrameRateEdit.AsInteger             := iAngularLogGauge.UpdateFrameRate;

  BorderStyleRadioGroup.AsInteger           := ord(iAngularLogGauge.BorderStyle);

  ArcRadiusEdit.AsInteger                   := iAngularLogGauge.ArcRadius;
  ArcRangeDegreesEdit.AsInteger             := iAngularLogGauge.ArcRangeDegrees;
  ArcStartDegreesEdit.AsInteger             := iAngularLogGauge.ArcStartDegrees;

  OffsetXEdit.AsInteger                     := iAngularLogGauge.OffsetX;
  OffsetYEdit.AsInteger                     := iAngularLogGauge.OffsetY;

  ShowHubCheckBox.AsBoolean                 := iAngularLogGauge.ShowHub;
  HubSizeEdit.AsInteger                     := iAngularLogGauge.HubSize;
  HubColorPicker.Color                      := iAngularLogGauge.HubColor;
  CachedDrawingCheckBox.AsBoolean           := iAngularLogGauge.CachedDrawing;
  TransparentCheckBox.AsBoolean             := iAngularLogGauge.Transparent;
  //-------------- Pointers -------------------------------------------------------------------------------------------------------------------
  MinMaxPointerSizeEdit.AsInteger           := iAngularLogGauge.MinMaxPointerSize;
  MinMaxPointerMarginEdit.AsInteger         := iAngularLogGauge.MinMaxPointerMargin;
  MinMaxFixedCheckBox.AsBoolean             := iAngularLogGauge.MinMaxFixed;
  MinMaxUserCanMoveCheckBox.AsBoolean       := iAngularLogGauge.MinMaxUserCanMove;
  MinMaxPointerStyleRadioGroup.AsInteger    := ord(iAngularLogGauge.MinMaxPointerStyle);

  ShowMaxPointerCheckBox.AsBoolean          := iAngularLogGauge.ShowMaxPointer;
  MaxPointerColorPicker.Color               := iAngularLogGauge.MaxPointerColor;

  ShowMinPointerCheckBox.AsBoolean          := iAngularLogGauge.ShowMinPointer;
  MinPointerColorPicker.Color               := iAngularLogGauge.MinPointerColor;
  //-------------- Ticks ----------------------------------------------------------------------------------------------------------------------
  TickMarginEdit.AsInteger                  := iAngularLogGauge.TickMargin;