istripchart.pas

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

    FPrinterMarginBottom          : Double;
    FPrinterMarginTop             : Double;
    FPrinterMarginLeft            : Double;
    FOnCursorIndexChange          : TNotifyEvent;
    FMaxBufferSize                : Integer;
    FMinBufferSize                : Integer;
    FPrinterCommentLinesFont      : TFont;
    FPrinterCommentLineSpacing    : Double;
    FCursorHideAllOtherChannels   : Boolean;
    FEnableDataDrawMinMax         : Boolean;
    FAutoScaleMinAdjustEnabled    : Boolean;
    FAutoScaleMaxAdjustEnabled    : Boolean;
    FDiscontinuousDataEnabled     : Boolean;
    FAutoScrollFirstStyle         : TiAutoScrollFirstStyle;
    FPrecisionStyle               : TiPrecisionStyle;
    FInterpolateMissingDataPoints : Boolean;
    FPrinterShowDialog            : Boolean;

    function GetLabelChannelCount                            : Integer;
    function GetChannelCount                                 : Integer;
    function GetIndexCount                                   : Integer;
    function GetChannelTitle       (Index: Integer)          : String;
    function GetChannelColor       (Index: Integer)          : TColor;
    function GetChannelLineStyle   (Index: Integer)          : TiChannelLineStyle;
    function GetChannelLineWidth   (Index: Integer)          : Integer;
    function GetChannelVisible     (Index: Integer)          : Boolean;
    function GetChannelData        (Channel, Index: Integer) : Double;
    function GetChannelUseFixedAxis(Index: Integer)          : Boolean;
    function GetIndexTime          (Index: Integer)          : Double;

    procedure SetXAxisMax                    (const Value: Double);
    procedure SetXAxisMin                    (const Value: Double);
    procedure SetXAxisDateTimeEnabled        (const Value: Boolean);
    procedure SetXAxisDateTimeFormatString   (const Value: String);
    procedure SetXAxisTickMajorCount         (const Value: Integer);
    procedure SetXAxisTickMinorCount         (const Value: Integer);
    procedure SetYAxisMax                    (const Value: Double);
    procedure SetYAxisMin                    (const Value: Double);
    procedure SetYAxisTickMajorCount         (const Value: Integer);
    procedure SetYAxisTickMinorCount         (const Value: Integer);
    procedure SetXAxisLabelFont              (const Value: TFont);
    procedure SetXAxisLabelMargin            (const Value: Integer);
    procedure SetXAxisMargin                 (const Value: Integer);
    procedure SetYAxisLabelFont              (const Value: TFont);
    procedure SetYAxisLabelMargin            (const Value: Integer);
    procedure SetYAxisMargin                 (const Value: Integer);
    procedure SetXAxisTickMajorLength        (const Value: Integer);
    procedure SetXAxisTickMinorLength        (const Value: Integer);
    procedure SetYAxisTickMajorLength        (const Value: Integer);
    procedure SetYAxisTickMinorLength        (const Value: Integer);
    procedure SetXAxisLabelPrecision         (const Value: Integer);
    procedure SetYAxisLabelPrecision         (const Value: Integer);
    procedure SetOuterMarginBottom           (const Value: Integer);
    procedure SetOuterMarginLeft             (const Value: Integer);
    procedure SetOuterMarginRight            (const Value: Integer);
    procedure SetOuterMarginTop              (const Value: Integer);
    procedure SetXAxisTickMajorColor         (const Value: TColor);
    procedure SetXAxisTickMinorColor         (const Value: TColor);
    procedure SetYAxisTickMajorColor         (const Value: TColor);
    procedure SetYAxisTickMinorColor         (const Value: TColor);
    procedure SetAxisGridColor               (const Value: TColor);
    procedure SetGridLineStyle               (const Value: TiChannelLineStyle);
    procedure SetShowGrid                    (const Value: Boolean);
    procedure SetShowLegend                  (const Value: Boolean);
    procedure SetLegendWidth                 (const Value: Integer);
    procedure SetLegendMargin                (const Value: Integer);
    procedure SetShowToolBar                 (const Value: Boolean);
    procedure SetLegendFont                  (const Value: TFont);
    procedure SetXAxisTitle                  (const Value: String);
    procedure SetXAxisTitleFont              (const Value: TFont);
    procedure SetXAxisTitleMargin            (const Value: Integer);
    procedure SetYAxisTitle                  (const Value: String);
    procedure SetYAxisTitleFont              (const Value: TFont);
    procedure SetYAxisTitleMargin            (const Value: Integer);
    procedure SetTitleText                   (const Value: String);
    procedure SetTitleFont                   (const Value: TFont);
    procedure SetTitleMargin                 (const Value: Integer);
    procedure SetAutoScrollEnabled           (const Value: Boolean);
    procedure SetAutoScrollType              (const Value: TiAutoScroll);
    procedure SetAutoScrollStepSize          (const Value: Double);
    procedure SetAutoScaleEnabled            (const Value: Boolean);
    procedure SetAutoScaleHysterisis         (const Value: Double);
    procedure SetToolBarActiveModeFont       (const Value: TFont);
    procedure SetToolBarInactiveModeFont     (const Value: TFont);
    procedure SetToolBarMode                 (const Value: TiStripChartMode);
    procedure SetCursorChannel               (const Value: Integer);
    procedure SetCursorColor                 (const Value: TColor);
    procedure SetCursorChannelBackGroundColor(const Value: TColor);
    procedure SetCursorChannelFontColor      (const Value: TColor);
    procedure SetXAxisShow                   (const Value: Boolean);

    procedure SetChannelColor                (Index: Integer; const Value: TColor);
    procedure SetChannelLineStyle            (Index: Integer; const Value: TiChannelLineStyle);
    procedure SetChannelTitle                (Index: Integer; const Value: String);
    procedure SetChannelLineWidth            (Index: Integer; const Value: Integer);
    procedure SetChannelVisible              (Index: Integer; const Value: Boolean);
    procedure SetChannelData                 (Channel, Index: Integer; const Value: Double);
    procedure SetChannelUseFixedAxis         (Index: Integer; const Value: Boolean);

    procedure SetGridBackGroundColor         (const Value: TColor);
    procedure SetMaxBufferSize               (const Value: Integer);
    procedure SetMinBufferSize               (const Value: Integer);
    procedure SetCursorIndex                 (const Value: Integer);
    procedure SetPrinterCommentLinesFont     (const Value: TFont);
    procedure SetCursorHideAllOtherChannels  (const Value: Boolean);
    procedure SetEnableDataDrawMinMax        (const Value: Boolean);
    function GetChannelMax                   (Index: Integer): Double;
    function GetChannelMean                  (Index: Integer): Double;
    function GetChannelMin                   (Index: Integer): Double;

    //Kylix TODO
    {$ifndef iCLX}
    function GetSnapShotPicture: TPicture;
    {$endif}
    
    function GetLabelChannelText(Channel, Index: Integer): String;
    function GetLabelYPosition           (Index: Integer): Double;
    function GetLabelChannelFontName     (Index: Integer): String;
    function GetLabelChannelFontSize     (Index: Integer): Integer;
    function GetLabelChannelFontColor    (Index: Integer): TColor;
    function GetLabelChannelFontBold     (Index: Integer): Boolean;
    function GetLabelChannelFontItalic   (Index: Integer): Boolean;
    function GetLabelChannelFontUnderLine(Index: Integer): Boolean;
    function GetLabelChannelFontStrikeOut(Index: Integer): Boolean;

    procedure SetLabelChannelText(Channel, Index: Integer; const Value: String);
    procedure SetLabelYPosition           (Index: Integer; const Value: Double);
    procedure SetLabelChannelFontName     (Index: Integer; const Value: String);
    procedure SetLabelChannelFontSize     (Index: Integer; const Value: Integer);
    procedure SetLabelChannelFontColor    (Index: Integer; const Value: TColor);
    procedure SetLabelChannelFontBold     (Index: Integer; const Value: Boolean);
    procedure SetLabelChannelFontItalic   (Index: Integer; const Value: Boolean);
    procedure SetLabelChannelFontUnderLine(Index: Integer; const Value: Boolean);
    procedure SetLabelChannelFontStrikeOut(Index: Integer; const Value: Boolean);

    procedure SetChannelControlLimitUpperShow     (Index: Integer; const Value: Boolean);
    procedure SetChannelControlLimitUpperValue    (Index: Integer; const Value: Double);
    procedure SetChannelControlLimitUpperColor    (Index: Integer; const Value: TColor);
    procedure SetChannelControlLimitUpperLineStyle(Index: Integer; const Value: TiChannelLineStyle);

    procedure SetChannelControlLimitLowerShow     (Index: Integer; const Value: Boolean);
    procedure SetChannelControlLimitLowerValue    (Index: Integer; const Value: Double);
    procedure SetChannelControlLimitLowerColor    (Index: Integer; const Value: TColor);
    procedure SetChannelControlLimitLowerLineStyle(Index: Integer; const Value: TiChannelLineStyle);

    procedure SetChannelWarningLimitUpperShow     (Index: Integer; const Value: Boolean);
    procedure SetChannelWarningLimitUpperValue    (Index: Integer; const Value: Double);
    procedure SetChannelWarningLimitUpperColor    (Index: Integer; const Value: TColor);
    procedure SetChannelWarningLimitUpperLineStyle(Index: Integer; const Value: TiChannelLineStyle);

    procedure SetChannelWarningLimitLowerShow     (Index: Integer; const Value: Boolean);
    procedure SetChannelWarningLimitLowerValue    (Index: Integer; const Value: Double);
    procedure SetChannelWarningLimitLowerColor    (Index: Integer; const Value: TColor);
    procedure SetChannelWarningLimitLowerLineStyle(Index: Integer; const Value: TiChannelLineStyle);

    function  GetChannelControlLimitUpperShow     (Index: Integer): Boolean;
    function  GetChannelControlLimitUpperValue    (Index: Integer): Double;
    function  GetChannelControlLimitUpperColor    (Index: Integer): TColor;
    function  GetChannelControlLimitUpperLineStyle(Index: Integer): TiChannelLineStyle;

    function  GetChannelControlLimitLowerShow     (Index: Integer): Boolean;
    function  GetChannelControlLimitLowerValue    (Index: Integer): Double;
    function  GetChannelControlLimitLowerColor    (Index: Integer): TColor;
    function  GetChannelControlLimitLowerLineStyle(Index: Integer): TiChannelLineStyle;

    function  GetChannelWarningLimitUpperShow     (Index: Integer): Boolean;
    function  GetChannelWarningLimitUpperValue    (Index: Integer): Double;
    function  GetChannelWarningLimitUpperColor    (Index: Integer): TColor;
    function  GetChannelWarningLimitUpperLineStyle(Index: Integer): TiChannelLineStyle;

    function  GetChannelWarningLimitLowerShow     (Index: Integer): Boolean;
    function  GetChannelWarningLimitLowerValue    (Index: Integer): Double;
    function  GetChannelWarningLimitLowerColor    (Index: Integer): TColor;
    function  GetChannelWarningLimitLowerLineStyle(Index: Integer): TiChannelLineStyle;

    procedure SetAutoScaleMaxAdjustEnabled(const Value: Boolean);
    procedure SetAutoScaleMinAdjustEnabled(const Value: Boolean);
    procedure SetDiscontinuousDataEnabled (const Value: Boolean);
    procedure SetPrecisionStyle(const Value: TiPrecisionStyle);
    procedure SetInterpolateMissingDataPoints(const Value: Boolean);
    procedure SetYAxisShow(const Value: Boolean);
    function GetChannelVisibleInLegend(Index: Integer): Boolean;
    procedure SetChannelVisibleInLegend(Index: Integer; const Value: Boolean);
    procedure SetYAxisLabelWidth(const Value: Integer);
    procedure SetYAxisLabelWidthFixed(const Value: Boolean);
    procedure SetYAxisReverseScale(const Value: Boolean);
    function GetChannelControlLimitLowerLineWidth(Index: Integer): Integer;
    function GetChannelControlLimitUpperLineWidth(Index: Integer): Integer;
    function GetChannelWarningLimitLowerLineWidth(Index: Integer): Integer;
    function GetChannelWarningLimitUpperLineWidth(Index: Integer): Integer;
    procedure SetChannelControlLimitLowerLineWidth(Index: Integer; const Value: Integer);
    procedure SetChannelControlLimitUpperLineWidth(Index: Integer; const Value: Integer);
    procedure SetChannelWarningLimitLowerLineWidth(Index: Integer; const Value: Integer);
    procedure SetChannelWarningLimitUpperLineWidth(Index: Integer; const Value: Integer);
  private
    function GetAddYChannel1Now: Double;
    procedure SetAddYChannel1Now(const Value: Double);
  protected
    procedure iWantSpecialKey(var CharCode: Word; var Result: Longint);            override;