qiplotcomponent.pas

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

    FOnBeforeLoadProperties                : TNotifyEvent;
    FOnAfterLoadData                       : TNotifyEvent;
    FOnAfterSaveData                       : TNotifyEvent;
    FOnAfterSaveProperties                 : TNotifyEvent;

    FOnAfterCloseEditor                    : TNotifyEvent;
    FOnAfterOpenEditor                     : TNotifyEvent;

    FOnBeforeZoomBox                       : TiPlotZoomBoxEvent;
    FOnBeforeDataCursorUpdate              : TiPlotObjectEvent;

    FOnAnnotationCoordinatesChange         : TiPlotObjectEvent;
    FOnAnnotationCoordinatesChangeFinished : TiPlotObjectEvent;

    FOnGotFocusChannel                     : TiPlotObjectEvent;
    FOnGotFocusLegend                      : TiPlotObjectEvent;
    FOnGotFocusDataCursor                  : TiPlotObjectEvent;
    FOnGotFocusDataView                    : TiPlotObjectEvent;
    FOnGotFocusXAxis                       : TiPlotObjectEvent;
    FOnGotFocusYAxis                       : TiPlotObjectEvent;
    FOnGotFocusAnnotation                  : TiPlotObjectEvent;

    FOnLostFocusXAxis                      : TiPlotObjectEvent;
    FOnLostFocusYAxis                      : TiPlotObjectEvent;
    FOnLostFocusChannel                    : TiPlotObjectEvent;
    FOnLostFocusDataCursor                 : TiPlotObjectEvent;
    FOnLostFocusLegend                     : TiPlotObjectEvent;
    FOnLostFocusDataView                   : TiPlotObjectEvent;
    FOnLostFocusAnnotation                 : TiPlotObjectEvent;

    FOnPopupMenuYAxis                      : TiPlotPopupMenuEvent;
    FOnPopupMenuChannel                    : TiPlotPopupMenuEvent;
    FOnPopupMenuDataCursor                 : TiPlotPopupMenuEvent;
    FOnPopupMenuDataView                   : TiPlotPopupMenuEvent;
    FOnPopupMenuXAxis                      : TiPlotPopupMenuEvent;
    FOnPopupMenuLegend                     : TiPlotPopupMenuEvent;
    FOnPopupMenuLimit                      : TiPlotPopupMenuEvent;
    FOnPopupMenuAnnotation                 : TiPlotPopupMenuEvent;

    FBackGroundGradientEnabled             : Boolean;
    FBackGroundGradientStartColor          : TColor;
    FBackGroundGradientStopColor           : TColor;
    FBackGroundGradientDirection           : TiFillDirection;

    FPaintingActive                        : Boolean;
    FOnDblClickDataPoint                   : TiPlotClickDataPointEvent;
    FDBLClickActive                        : Boolean;
    FLoadingSeparator                      : Char;
    FDataFileColumnSeparator               : TiPlotDataFileColumnSeparator;
    FDataFileFormat                        : TiPlotDataFileFormat;
    FLastPropertiesFileName                : String;
    FLastDataFileName                      : String;

    function GetDataViewZHorz              : Integer;
    function GetDataViewZVert              : Integer;
    function GetXYAxesReverse              : Boolean;
    function GetUserCanEditObjects         : Boolean;

    procedure SetDataViewZHorz               (const Value: Integer);
    procedure SetDataViewZVert               (const Value: Integer);
    procedure SetXYAxesReverse               (const Value: Boolean);
    procedure SetUserCanEditObjects          (const Value: Boolean);
    procedure SetHintsFont                   (const Value: TFont);

    procedure SetOuterMarginBottom           (const Value: Integer);
    procedure SetOuterMarginLeft             (const Value: Integer);
    procedure SetOuterMarginRight            (const Value: Integer);
    procedure SetOuterMarginTop              (const Value: Integer);
    procedure SetHintsHidePause              (const Value: Integer);
    procedure SetHintsPause                  (const Value: Integer);
    procedure SetHintsShow                   (const Value: Boolean);
    procedure SetTitleFont                   (const Value: TFont);
    procedure SetTitleMargin                 (const Value: Double);
    procedure SetTitleVisible                (const Value: Boolean);
    procedure SetTitleText                   (const Value: String);
    procedure SetLogBufferSize               (const Value: Integer);
    procedure SetLogFileName                 (const Value: String);
    procedure SetEditorFormStyle             (const Value: TiPlotFormStyle);
    procedure SetCopyToClipBoardFormat       (const Value: TiPlotExportFormat);
    procedure SetClipAnnotationsToAxes       (const Value: Boolean);
    procedure SetBackGroundGradientDirection (const Value: TiFillDirection);
    procedure SetBackGroundGradientEnabled   (const Value: Boolean);
    procedure SetBackGroundGradientStartColor(const Value: TColor);
    procedure SetBackGroundGradientStopColor (const Value: TColor);
    procedure SetDataFileFormat              (const Value: TiPlotDataFileFormat);
    procedure SetDataFileColumnSeparator     (const Value: TiPlotDataFileColumnSeparator);

    procedure SetAnnotationDefaultFont(const Value: TFont);

    function GetDataView   (Index: Integer): TiPlotDataView;
    function GetXAxis      (Index: Integer): TiPlotXAxis;
    function GetYAxis      (Index: Integer): TiPlotYAxis;
    function GetLegend     (Index: Integer): TiPlotLegend;
    function GetTable      (Index: Integer): TiPlotTable;
    function GetToolBar    (Index: Integer): TiPlotToolBar;
    function GetChannel    (Index: Integer): TiPlotChannelCustom;
    function GetAnnotation (Index: Integer): TiPlotAnnotation;
    function GetLimit      (Index: Integer): TiPlotLimit;
    function GetLabel      (Index: Integer): TiPlotLabel;
    function GetDataCursor (Index: Integer): TiPlotDataCursor;
    function GetTranslation(Index: Integer): TiPlotTranslationObject;

    function  GetZOrderMaxWidth     (Canvas: TCanvas; AList: TStringList; ZOrder : Integer)    : Integer;
    function  GetTotalRequiredWidth (Canvas: TCanvas; AList: TStringList)                      : Integer;
    function  GetAxesTouchesDataView(AList: TStringList; QuadSide: TiQuadSide): Boolean;
    procedure UpdateStacking(AList: TStringList);

    procedure KillHint;
    function GetMaxGaurd(Canvas: TCanvas; AList: TStringList; StartGaurd : Boolean): Integer;

    function  FindMouseObject(MouseData: TiPlotMouseData): TiPlotObject;
    procedure UpdateAxisPixels(var MouseData: TiPlotMouseData);

    function GetTitleFont        : TFont;
    function GetTitleMargin      : Double;
    function GetTitleText        : String;
    function GetTitleVisible     : Boolean;
    function GetSelectModeActive : Boolean;

    procedure SetSelectModeActive(const Value: Boolean);

    function GetChannelManager    : TiPlotChannelManager;
    function GetDataCursorManager : TiPlotDataCursorManager;
    function GetDataViewManager   : TiPlotDataViewManager;
    function GetLabelManager      : TiPlotLabelManager;
    function GetLayoutManager     : TiPlotLayoutManager;
    function GetLegendManager     : TiPlotLegendManager;
    function GetTableManager      : TiPlotTableManager;
    function GetLimitManager      : TiPlotLimitManager;
    function GetPlotObjectManager : TiPlotObjectManager;
    function GetToolBarManager    : TiPlotToolBarManager;
    function GetTranslationManager: TiPlotTranslationManager;
    function GetXAxisManager      : TiPlotXAxisManager;
    function GetYAxisManager      : TiPlotYAxisManager;
  protected
    procedure iWantSpecialKey(var CharCode: Word; var Result: Longint);            override;
    procedure iKeyDown       (var CharCode: Word; Shift: TShiftState);             override;

    procedure iMouseDown (Button: TMouseButton; Shift: TShiftState; X, Y: Integer         );          override;
    procedure iMouseUp   (Button: TMouseButton; Shift: TShiftState; X, Y: Integer         );          override;
    procedure iMouseMove (                      Shift: TShiftState; X, Y: Integer         );          override;
    function  iMouseWheel(WheelDelta: Integer;  Shift: TShiftState; const MousePos: TPoint): Boolean; override;
    procedure iDoubleClick;                                                                           override;

    {$ifdef iVCL}procedure WMCaptureChanged(var Message: TMessage); message WM_CAPTURECHANGED;{$endif}

    procedure iPaintTo(Canvas: TCanvas); override;

    procedure DrawOutSideObjects(Canvas: TCanvas);

    procedure MasterRemove    (Sender: TObject); virtual;
    procedure MasterChange    (Sender: TObject); virtual;
    procedure DataCursorChange(Sender: TObject);

    procedure ReadDataViewZHorz (Reader: TReader);
    procedure ReadDataViewZVert (Reader: TReader);
    procedure WriteDataViewZHorz(Writer: TWriter);
    procedure WriteDataViewZVert(Writer: TWriter);

    procedure ReadImageList0 (Stream: TStream);
    procedure ReadImageList1 (Stream: TStream);
    procedure ReadImageList2 (Stream: TStream);
    procedure WriteImageList0(Stream: TStream);
    procedure WriteImageList1(Stream: TStream);
    procedure WriteImageList2(Stream: TStream);

    procedure Loaded;                          override;
    procedure DefineProperties(Filer: TFiler); override;

    procedure AppendColumn(var BuildString: String; ColumnIndex: Integer; ColumnString : String);
    procedure SeperateColumns(LineString: String; const ColumnDataList: TStringList);
    function  GetNextRowString: String;

    procedure UpdateVisibleList(AList, VisibleList: TStringList);

    procedure BeforePropertyEditorLoad; virtual;
    procedure AfterPropertyEditorApply; virtual;

    procedure MasterAxisMouseLeft(Axis: TiPlotAxis; MouseData: TiPlotMouseData);
    procedure MasterAxisMouseMove(Axis: TiPlotAxis; MouseData: TiPlotMouseData);
    procedure MasterAxisMouseUp  (Axis: TiPlotAxis; MouseData: TiPlotMouseData);
    procedure MasterAxisKeyDown  (Axis: TiPlotAxis; var CharCode: Word; Shift: TShiftState);

    procedure DoObjectMouseDown  (Sender: TiPlotObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DoObjectMouseMove  (Sender: TiPlotObject;                       Shift: TShiftState; X, Y: Integer);
    procedure DoObjectMouseUp    (Sender: TiPlotObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DoObjectClick      (Sender:TiPlotObject);
    procedure DoDataPointClick   (Sender: TiPlotChannelCustom; Index: Integer);

    procedure DoAxesSpanChange                     (Sender: TiPlotAxis; OldValue, NewValue: Double);
    procedure DoAxesMinChange                      (Sender: TiPlotAxis; OldValue, NewValue: Double);
    procedure DoAxesMinSpanChange                  (Sender: TiPlotAxis; OldMin, OldSpan, NewMin, NewSpan: Double);
    procedure DoAxesCustomizeLabel                 (Sender: TiPlotAxis; Value: Double; var ALabel: String);
    procedure DoDataCursorCustomizeHint            (Sender: TiPlotDataCursor; var AText: String);
    procedure DoToolBarCustomizeHint               (Sender: TiPlotToolBar;    var AText: String);
    procedure DoToolBarButtonClick                 (Sender: TiPlotToolBar; ButtonType: TiPlotToolBarButtonType);
    procedure DoXAxisCustomizeHint                 (Sender: TiPlotXAxis;      var AText: String);
    procedure DoYAxisCustomizeHint                 (Sender: TiPlotYAxis;      var AText: String);
    procedure DoBeforeDataCursorUpdate             (Sender: TiPlotDataCursor);