qiplotcomponent.pas

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

    procedure DoLimitLine1PositionChange           (Sender: TiPlotLimit; OldValue, NewValue: Double);
    procedure DoLimitLine2PositionChange           (Sender: TiPlotLimit; OldValue, NewValue: Double);
    procedure DoAnnotationCoordinatesChange        (Sender: TiPlotAnnotation);
    procedure DoAnnotationCoordinatesChangeFinished(Sender: TiPlotAnnotation);

    procedure DoObjectGotFocus (Sender: TiPlotObject);
    procedure DoObjectLostFocus(Sender: TiPlotObject);
    procedure DoPopUpMenuEvent (Sender: TiPlotObject; var Cancel: Boolean; ScreenX, ScreenY: Integer);

    procedure DoPrintChart;

    procedure ClearAxesCollisionList;
    procedure ClearLayerList;
    procedure AddLayerObject(LayerString: String; PlotObject: TiPlotObject);

    procedure AddAxesCollisionItem(ARect: TRect);
    function  AddAxesCollisionDetectionItem(ARect: TRect): Boolean;

    procedure MousePointerSet(ACursor : TCursor);

    procedure CalcLayout(Canvas: TCanvas);

    procedure HintTimer(Sender : TObject);

    property SelectModeActive : Boolean                      read GetSelectModeActive write SetSelectModeActive;

    property Master : TiPlotMasterManager                    read FMaster;

    function GetStreamRowString(Stream: TStream): String;
    function GetStreamSingle   (Stream: TStream): Single;

    function GetSavingSeparator: Char;

    procedure SaveDataToFileText           (FileName: String);
    procedure SaveDataToFileCompactInterval(FileName: String);

    function ValueIsEmpty       (Value: Double): Boolean;
    function ValueIsNull        (Value: Double): Boolean;
    function ValueIsNotDataPoint(Value: Double): Boolean;

    function GetEmptyValue   : Double;
    function GetNullValue    : Double;
    function GetNotDataPoint : Double;

    property ObjectManager        : TiPlotObjectManager      read GetPlotObjectManager;
    property ToolBarManager       : TiPlotToolBarManager     read GetToolBarManager;
    property LegendManager        : TiPlotLegendManager      read GetLegendManager;
    property TableManager         : TiPlotTableManager       read GetTableManager;
    property XAxisManager         : TiPlotXAxisManager       read GetXAxisManager;
    property YAxisManager         : TiPlotYAxisManager       read GetYAxisManager;
    property ChannelManager       : TiPlotChannelManager     read GetChannelManager;
    property DataViewManager      : TiPlotDataViewManager    read GetDataViewManager;
    property DataCursorManager    : TiPlotDataCursorManager  read GetDataCursorManager;
    property LimitManager         : TiPlotLimitManager       read GetLimitManager;
    property LabelManager         : TiPlotLabelManager       read GetLabelManager;
    property TranslationManager   : TiPlotTranslationManager read GetTranslationManager;
    property LayoutManager        : TiPlotLayoutManager      read GetLayoutManager;

    property ImageList0           : TImageList               read FImageList0;
    property ImageList1           : TImageList               read FImageList1;
    property ImageList2           : TImageList               read FImageList2;

    procedure LoadXYData;
    procedure LoadLogData;
    procedure LoadCompactInterval(Stream : TStream);
    procedure WriteLog;

    procedure ImageListLoadFromBitmap(ImageListIndex: Integer; ABitmap: TBitmap);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy;                    override;

    procedure SavePropertiesToFile    (FileName: String); override;
    procedure LoadPropertiesFromFile  (FileName: String); override;

    procedure SaveDataToFile          (FileName: String);
    procedure LoadDataFromFile        (FileName: String);

    procedure SaveAnnotationsToFile   (FileName: String);
    procedure LoadAnnotationsFromFile (FileName: String);

    procedure SaveTranslationsToFile  (FileName: String);
    procedure LoadTranslationsFromFile(FileName: String);

    procedure ImageListClear               (ImageListIndex: Integer);
    procedure ImageListAdd                 (ImageListIndex: Integer; ABitmap: TBitmap);
    procedure ImageListLoadFromResourceID  (ImageListIndex: Integer; Instance: Cardinal; ResID: Integer);
    procedure ImageListLoadFromResourceName(ImageListIndex: Integer; Instance: Cardinal; ResName: String);

    procedure PrintChart;
    procedure PreviewChart;
    procedure CopyToClipBoard;
    procedure Save;
    function  GetSnapShotPicture: TPicture;

    procedure DisableLayoutManager;
    procedure EnableLayoutManager;

    procedure DisableAllTracking;
    procedure EnableAllTracking;

    procedure LogActivate(Append: Boolean);
    procedure LogDeactivate;

    procedure ClearAllData;

    procedure ReCalcLayout;

    procedure RemoveAllToolBars;    virtual;
    procedure RemoveAllLegends;     virtual;
    procedure RemoveAllTables;      virtual;
    procedure RemoveAllXAxes;       virtual;
    procedure RemoveAllYAxes;       virtual;
    procedure RemoveAllDataViews;   virtual;
    procedure RemoveAllDataCursors; virtual;
    procedure RemoveAllChannels;    virtual;
    procedure RemoveAllAnnotations; virtual;
    procedure RemoveAllLimits;      virtual;
    procedure RemoveAllLabels;      virtual;
    procedure RemoveAllTranslations;virtual;

    procedure DeleteToolBar    (Index: Integer); virtual;
    procedure DeleteLegend     (Index: Integer); virtual;
    procedure DeleteTable      (Index: Integer); virtual;
    procedure DeleteXAxis      (Index: Integer); virtual;
    procedure DeleteYAxis      (Index: Integer); virtual;
    procedure DeleteDataView   (Index: Integer); virtual;
    procedure DeleteDataCursor (Index: Integer); virtual;
    procedure DeleteChannel    (Index: Integer); virtual;
    procedure DeleteAnnotation (Index: Integer); virtual;
    procedure DeleteLimit      (Index: Integer); virtual;
    procedure DeleteLabel      (Index: Integer); virtual;
    procedure DeleteTranslation(Index: Integer); virtual;

    function GetToolBarByName   (Value: String): TiPlotToolBar;
    function GetLegendByName    (Value: String): TiPlotLegend;
    function GetTableByName     (Value: String): TiPlotTable;
    function GetXAxisByName     (Value: String): TiPlotXAxis;
    function GetYAxisByName     (Value: String): TiPlotYAxis;
    function GetDataViewByName  (Value: String): TiPlotDataView;
    function GetDataCursorByName(Value: String): TiPlotDataCursor;
    function GetChannelByName   (Value: String): TiPlotChannelCustom;
    function GetLimitByName     (Value: String): TiPlotLimit;
    function GetLabelByName     (Value: String): TiPlotLabel;
    function GetAnnotationByName(Value: String): TiPlotAnnotation;

    function GetChannelIndexByName   (Value : String): Integer;
    function GetXAxisIndexByName     (Value : String): Integer;
    function GetYAxisIndexByName     (Value : String): Integer;
    function GetDataViewIndexByName  (Value : String): Integer;
    function GetToolBarIndexByName   (Value : String): Integer;
    function GetLegendIndexByName    (Value : String): Integer;
    function GetAnnotationIndexByName(Value : String): Integer;
    function GetDataCursorIndexByName(Value : String): Integer;
    function GetLabelIndexByName     (Value : String): Integer;
    function GetLimitIndexByName     (Value : String): Integer;
    function GetTableIndexByName     (Value : String): Integer;

    function GetTranslationOriginalString   (Index: Integer): String;
    function GetTranslationReplacementString(Index: Integer): String;

    procedure TransferChannelData(SourceChannelIndex, DestinationChannelIndex, StartIndex, StopIndex: Integer);

    function GetNow: Double;

    function AddChannel     : Integer; virtual;
    function AddDataView    : Integer; virtual;
    function AddDataCursor  : Integer; virtual;
    function AddXAxis       : Integer; virtual;
    function AddYAxis       : Integer; virtual;
    function AddLegend      : Integer; virtual;
    function AddTable       : Integer; virtual;
    function AddToolBar     : Integer; virtual;
    function AddAnnotation  : Integer; virtual;
    function AddLimit       : Integer; virtual;
    function AddLabel       : Integer; virtual;

    function AddTranslation(OriginalString, ReplacementString: String) : Integer;

    procedure AddDataArray(XValue: Double; Data : Variant);

    function ChannelCount     : Integer;
    function DataViewCount    : Integer;
    function DataCursorCount  : Integer;
    function XAxisCount       : Integer;
    function YAxisCount       : Integer;
    function LegendCount      : Integer;
    function TableCount       : Integer;
    function ToolBarCount     : Integer;
    function AnnotationCount  : Integer;
    function LimitCount       : Integer;
    function LabelCount       : Integer;
    function TranslationCount : Integer;

    property ToolBar    [Index:Integer] : TiPlotToolBar           read GetToolBar;
    property Legend     [Index:Integer] : TiPlotLegend            read GetLegend;
    property Table      [Index:Integer] : TiPlotTable             read GetTable;
    property XAxis      [Index:Integer] : TiPlotXAxis             read GetXAxis;
    property YAxis      [Index:Integer] : TiPlotYAxis             read GetYAxis;