qiplotcomponent.pas

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

    property DataView   [Index:Integer] : TiPlotDataView          read GetDataView;
    property DataCursor [Index:Integer] : TiPlotDataCursor        read GetDataCursor;
    property Channel    [Index:Integer] : TiPlotChannelCustom     read GetChannel;
    property Annotation [Index:Integer] : TiPlotAnnotation        read GetAnnotation;
    property Limit      [Index:Integer] : TiPlotLimit             read GetLimit;
    property Labels     [Index:Integer] : TiPlotLabel             read GetLabel;
    property Translation[Index:Integer] : TiPlotTranslationObject read GetTranslation;

    property PaintingActive             : Boolean                 read FPaintingActive;
    property LastPropertiesFileName     : String                  read FLastPropertiesFileName;
    property LastDataFileName           : String                  read FLastDataFileName;
  published
    property DataViewZHorz                         : Integer                            read GetDataViewZHorz                       write SetDataViewZHorz;
    property DataViewZVert                         : Integer                            read GetDataViewZVert                       write SetDataViewZVert;
    property XYAxesReverse                         : Boolean                            read GetXYAxesReverse                       write SetXYAxesReverse          default False;
    property UserCanEditObjects                    : Boolean                            read GetUserCanEditObjects                  write SetUserCanEditObjects     default True;
    property UserCanAddRemoveChannels              : Boolean                            read FUserCanAddRemoveChannels              write FUserCanAddRemoveChannels default False;

    property OuterMarginLeft                       : Integer                            read FOuterMarginLeft                       write SetOuterMarginLeft    default 5;
    property OuterMarginTop                        : Integer                            read FOuterMarginTop                        write SetOuterMarginTop     default 5;
    property OuterMarginRight                      : Integer                            read FOuterMarginRight                      write SetOuterMarginRight   default 5;
    property OuterMarginBottom                     : Integer                            read FOuterMarginBottom                     write SetOuterMarginBottom  default 5;

    property PrintOrientation                      : TPrinterOrientation                read FPrintOrientation                      write FPrintOrientation     default poLandscape;
    property PrintMarginLeft                       : Double                             read FPrintMarginLeft                       write FPrintMarginLeft;
    property PrintMarginTop                        : Double                             read FPrintMarginTop                        write FPrintMarginTop;
    property PrintMarginRight                      : Double                             read FPrintMarginRight                      write FPrintMarginRight;
    property PrintMarginBottom                     : Double                             read FPrintMarginBottom                     write FPrintMarginBottom;
    property PrintShowDialog                       : Boolean                            read FPrintShowDialog                       write FPrintShowDialog      default True;
    property PrintDocumentName                     : String                             read FPrintDocumentName                     write FPrintDocumentName;
    property PrinterName                           : String                             read FPrinterName                           write FPrinterName;

    property HintsPause                            : Integer                            read FHintsPause                            write SetHintsPause         default 500;
    property HintsHidePause                        : Integer                            read FHintsHidePause                        write SetHintsHidePause     default 2500;
    property HintsShow                             : Boolean                            read FHintsShow                             write SetHintsShow          default True;
    property HintsFont                             : TFont                              read FHintsFont                             write SetHintsFont;

    property EditorFormStyle                       : TiPlotFormStyle                    read FEditorFormStyle                       write SetEditorFormStyle;

    property CopyToClipBoardFormat                 : TiPlotExportFormat                 read FCopyToClipBoardFormat                 write SetCopyToClipBoardFormat;

    property TitleVisible                          : Boolean                            read GetTitleVisible                        write SetTitleVisible       default True;
    property TitleText                             : String                             read GetTitleText                           write SetTitleText;
    property TitleFont                             : TFont                              read GetTitleFont                           write SetTitleFont;
    property TitleMargin                           : Double                             read GetTitleMargin                         write SetTitleMargin;

    property LogFileName                           : String                             read FLogFileName                           write SetLogFileName;
    property LogBufferSize                         : Integer                            read FLogBufferSize                         write SetLogBufferSize      default 0;
    property LoggingActive                         : Boolean                            read FLoggingActive;

    property OnMouseDownXAxis                      : TiPlotObjectMouseEvent             read FOnMouseDownXAxis                     write FOnMouseDownXAxis;
    property OnMouseDownYAxis                      : TiPlotObjectMouseEvent             read FOnMouseDownYAxis                     write FOnMouseDownYAxis;
    property OnMouseDownDataView                   : TiPlotObjectMouseEvent             read FOnMouseDownDataView                  write FOnMouseDownDataView;
    property OnMouseDownLegend                     : TiPlotObjectMouseEvent             read FOnMouseDownLegend                    write FOnMouseDownLegend;
    property OnMouseDownChannel                    : TiPlotObjectMouseEvent             read FOnMouseDownChannel                   write FOnMouseDownChannel;
    property OnMouseDownLimit                      : TiPlotObjectMouseEvent             read FOnMouseDownLimit                     write FOnMouseDownLimit;
    property OnMouseDownDataCursor                 : TiPlotObjectMouseEvent             read FOnMouseDownDataCursor                write FOnMouseDownDataCursor;
    property OnMouseDownAnnotation                 : TiPlotObjectMouseEvent             read FOnMouseDownAnnotation                write FOnMouseDownAnnotation;

    property OnMouseMoveXAxis                      : TiPlotObjectMouseMoveEvent         read FOnMouseMoveXAxis                     write FOnMouseMoveXAxis;
    property OnMouseMoveYAxis                      : TiPlotObjectMouseMoveEvent         read FOnMouseMoveYAxis                     write FOnMouseMoveYAxis;
    property OnMouseMoveDataView                   : TiPlotObjectMouseMoveEvent         read FOnMouseMoveDataView                  write FOnMouseMoveDataView;
    property OnMouseMoveLegend                     : TiPlotObjectMouseMoveEvent         read FOnMouseMoveLegend                    write FOnMouseMoveLegend;
    property OnMouseMoveChannel                    : TiPlotObjectMouseMoveEvent         read FOnMouseMoveChannel                   write FOnMouseMoveChannel;
    property OnMouseMoveLimit                      : TiPlotObjectMouseMoveEvent         read FOnMouseMoveLimit                     write FOnMouseMoveLimit;
    property OnMouseMoveDataCursor                 : TiPlotObjectMouseMoveEvent         read FOnMouseMoveDataCursor                write FOnMouseMoveDataCursor;
    property OnMouseMoveAnnotation                 : TiPlotObjectMouseMoveEvent         read FOnMouseMoveAnnotation                write FOnMouseMoveAnnotation;

    property OnMouseUpXAxis                        : TiPlotObjectMouseEvent             read FOnMouseUpXAxis                       write FOnMouseUpXAxis;
    property OnMouseUpYAxis                        : TiPlotObjectMouseEvent             read FOnMouseUpYAxis                       write FOnMouseUpYAxis;
    property OnMouseUpDataView                     : TiPlotObjectMouseEvent             read FOnMouseUpDataView                    write FOnMouseUpDataView;
    property OnMouseUpLegend                       : TiPlotObjectMouseEvent             read FOnMouseUpLegend                      write FOnMouseUpLegend;
    property OnMouseUpChannel                      : TiPlotObjectMouseEvent             read FOnMouseUpChannel                     write FOnMouseUpChannel;
    property OnMouseUpLimit                        : TiPlotObjectMouseEvent             read FOnMouseUpLimit                       write FOnMouseUpLimit;
    property OnMouseUpDataCursor                   : TiPlotObjectMouseEvent             read FOnMouseUpDataCursor                  write FOnMouseUpDataCursor;
    property OnMouseUpAnnotation                   : TiPlotObjectMouseEvent             read FOnMouseUpAnnotation                  write FOnMouseUpAnnotation;

    property OnClickXAxis                          : TiPlotObjectEvent                  read FOnClickXAxis                          write FOnClickXAxis;
    property OnClickYAxis                          : TiPlotObjectEvent                  read FOnClickYAxis                          write FOnClickYAxis;
    property OnClickDataView                       : TiPlotObjectEvent                  read FOnClickDataView                       write FOnClickDataView;
    property OnClickLegend                         : TiPlotObjectEvent                  read FOnClickLegend                         write FOnClickLegend;
    property OnClickChannel                        : TiPlotObjectEvent                  read FOnClickChannel                        write FOnClickChannel;
    property OnClickLimit                          : TiPlotObjectEvent                  read FOnClickLimit                          write FOnClickLimit;
    property OnClickDataCursor                     : TiPlotObjectEvent                  read FOnClickDataCursor                     write FOnClickDataCursor;
    property OnClickDataPoint                      : TiPlotClickDataPointEvent          read FOnClickDataPoint                      write FOnClickDataPoint;
    property OnClickAnnotation                     : TiPlotObjectEvent                  read FOnClickAnnotation                     write FOnClickAnnotation;

    property OnDblClickXAxis                       : TiPlotObjectEvent                  read FOnDblClickXAxis                       write FOnDblClickXAxis;
    property OnDblClickYAxis                       : TiPlotObjectEvent                  read FOnDblClickYAxis                       write FOnDblClickYAxis;
    property OnDblClickDataView                    : TiPlotObjectEvent                  read FOnDblClickDataView                    write FOnDblClickDataView;
    property OnDblClickLegend                      : TiPlotObjectEvent                  read FOnDblClickLegend                      write FOnDblClickLegend;
    property OnDblClickChannel                     : TiPlotObjectEvent                  read FOnDblClickChannel                     write FOnDblClickChannel;
    property OnDblClickLimit                       : TiPlotObjectEvent                  read FOnDblClickLimit                       write FOnDblClickLimit;
    property OnDblClickDataCursor                  : TiPlotObjectEvent                  read FOnDblClickDataCursor                  write FOnDblClickDataCursor;
    property OnDblClickDataPoint                   : TiPlotClickDataPointEvent          read FOnDblClickDataPoint                   write FOnDblClickDataPoint;
    property OnDblClickAnnotation                  : TiPlotObjectEvent                  read FOnDblClickAnnotation                  write FOnDblClickAnnotation;

    property OnDataCursorChange                    : TiPlotObjectEvent                  read FOnDataCursorChange                    write FOnDataCursorChange;

    property OnXAxisMinChange                      : TiPlotObjectDoubleValueChangeEvent read FOnXAxisMinChange                      write FOnXAxisMinChange;
    property OnXAxisSpanChange                     : TiPlotObjectDoubleValueChangeEvent read FOnXAxisSpanChange                     write FOnXAxisSpanChange;
    property OnXAxisMinSpanChange                  : TiPlotAxesMinSpanChangeEvent       read FOnXAxisMinSpanChange                  write FOnXAxisMinSpanChange;

    property OnYAxisSpanChange                     : TiPlotObjectDoubleValueChangeEvent read FOnYAxisSpanChange                     write FOnYAxisSpanChange;
    property OnYAxisMinChange                      : TiPlotObjectDoubleValueChangeEvent read FOnYAxisMinChange                      write FOnYAxisMinChange;
    property OnYAxisMinSpanChange                  : TiPlotAxesMinSpanChangeEvent       read FOnYAxisMinSpanChange                  write FOnYAxisMinSpanChange;

    property OnXAxisCustomizeLabel                 : TiPlotAxesCustomizeLabelEvent      read FOnXAxisCustomizeLabel                 write FOnXAxisCustomizeLabel;
    property OnYAxisCustomizeLabel                 : TiPlotAxesCustomizeLabelEvent      read FOnYAxisCustomizeLabel                 write FOnYAxisCustomizeLabel;

    property OnDataCursorCustomizeHint             : TiPlotObjectCustomizeTextEvent     read FOnDataCursorCustomizeHint             write FOnDataCursorCustomizeHint;
    property OnXAxisCustomizeHint                  : TiPlotObjectCustomizeTextEvent     read FOnXAxisCustomizeHint                  write FOnXAxisCustomizeHint;
    property OnYAxisCustomizeHint                  : TiPlotObjectCustomizeTextEvent     read FOnYAxisCustomizeHint                  write FOnYAxisCustomizeHint;
    property OnToolBarCustomizeHint                : TiPlotObjectCustomizeTextEvent     read FOnToolBarCustomizeHint                write FOnToolBarCustomizeHint;

    property OnLimitLine1PositionChange            : TiPlotObjectDoubleValueChangeEvent read FOnLimitLine1PositionChange            write FOnLimitLine1PositionChange;
    property OnLimitLine2PositionChange            : TiPlotObjectDoubleValueChangeEvent read FOnLimitLine2PositionChange            write FOnLimitLine2PositionChange;

    property OnBeforePrint                         : TNotifyEvent                       read FOnBeforePrint                         write FOnBeforePrint;
    property OnAfterPrint                          : TNotifyEvent                       read FOnAfterPrint                          write FOnAfterPrint;

    property OnGotFocusChannel                     : TiPlotObjectEvent                  read FOnGotFocusChannel                     write FOnGotFocusChannel;
    property OnGotFocusXAxis                       : TiPlotObjectEvent                  read FOnGotFocusXAxis                       write FOnGotFocusXAxis;
    property OnGotFocusYAxis                       : TiPlotObjectEvent                  read FOnGotFocusYAxis                       write FOnGotFocusYAxis;
    property OnGotFocusDataCursor                  : TiPlotObjectEvent                  read FOnGotFocusDataCursor                  write FOnGotFocusDataCursor;
    property OnGotFocusDataView                    : TiPlotObjectEvent                  read FOnGotFocusDataView                    write FOnGotFocusDataView;
    property OnGotFocusLegend                      : TiPlotObjectEvent                  read FOnGotFocusLegend                      write FOnGotFocusLegend;
    property OnGotFocusAnnotation                  : TiPlotObjectEvent                  read FOnGotFocusAnnotation                  write FOnGotFocusAnnotation;

    property OnLostFocusChannel                    : TiPlotObjectEvent                  read FOnLostFocusChannel                    write FOnLostFocusChannel;
    property OnLostFocusXAxis                      : TiPlotObjectEvent                  read FOnLostFocusXAxis                      write FOnLostFocusXAxis;
    property OnLostFocusYAxis                      : TiPlotObjectEvent                  read FOnLostFocusYAxis                      write FOnLostFocusYAxis;
    property OnLostFocusDataCursor                 : TiPlotObjectEvent                  read FOnLostFocusDataCursor                 write FOnLostFocusDataCursor;
    property OnLostFocusDataView                   : TiPlotObjectEvent                  read FOnLostFocusDataView                   write FOnLostFocusDataView;
    property OnLostFocusLegend                     : TiPlotObjectEvent                  read FOnLostFocusLegend                     write FOnLostFocusLegend;
    property OnLostFocusAnnotation                 : TiPlotObjectEvent                  read FOnLostFocusAnnotation                 write FOnLostFocusAnnotation;

    property OnPopupMenuChannel                    : TiPlotPopupMenuEvent               read FOnPopupMenuChannel                    write FOnPopupMenuChannel;
    property OnPopupMenuXAxis                      : TiPlotPopupMenuEvent               read FOnPopupMenuXAxis                      write FOnPopupMenuXAxis;
    property OnPopupMenuYAxis                      : TiPlotPopupMenuEvent               read FOnPopupMenuYAxis                      write FOnPopupMenuYAxis;
    property OnPopupMenuDataCursor                 : TiPlotPopupMenuEvent               read FOnPopupMenuDataCursor                 write FOnPopupMenuDataCursor;
    property OnPopupMenuDataView                   : TiPlotPopupMenuEvent               read FOnPopupMenuDataView                   write FOnPopupMenuDataView;
    property OnPopupMenuLegend                     : TiPlotPopupMenuEvent               read FOnPopupMenuLegend                     write FOnPopupMenuLegend;
    property OnPopupMenuLimit                      : TiPlotPopupMenuEvent               read FOnPopupMenuLimit                      write FOnPopupMenuLimit;
    property OnPopupMenuAnnotation                 : TiPlotPopupMenuEvent               read FOnPopupMenuAnnotation                 write FOnPopupMenuAnnotation;

    property OnBeforeLoadProperties                : TNotifyEvent                       read FOnBeforeLoadProperties                write FOnBeforeLoadProperties;
    property OnAfterLoadProperties                 : TNotifyEvent                       read FOnAfterLoadProperties                 write FOnAfterLoadProperties;
    property OnAfterSaveProperties                 : TNotifyEvent                       read FOnAfterSaveProperties                 write FOnAfterSaveProperties;

    property OnAfterLoadData                       : TNotifyEvent                       read FOnAfterLoadData                       write FOnAfterLoadData;
    property OnAfterSaveData                       : TNotifyEvent                       read FOnAfterSaveData                       write FOnAfterSaveData;

    property OnAfterOpenEditor                     : TNotifyEvent                       read FOnAfterOpenEditor                     write FOnAfterOpenEditor;
    property OnAfterCloseEditor                    : TNotifyEvent                       read FOnAfterCloseEditor                    write FOnAfterCloseEditor;

    property OnBeforeZoomBox                       : TiPlotZoomBoxEvent                 read FOnBeforeZoomBox                       write FOnBeforeZoomBox;
    property OnToolBarButtonClick                  : TiPlotToolBarButtonEvent           read FOnToolBarButtonClick                  write FOnToolBarButtonClick;

    property OnBeforeDataCursorUpdate              : TiPlotObjectEvent                  read FOnBeforeDataCursorUpdate              write FOnBeforeDataCursorUpdate;

    property OnAnnotationCoordinatesChange         : TiPlotObjectEvent                  read FOnAnnotationCoordinatesChange         write FOnAnnotationCoordinatesChange;
    property OnAnnotationCoordinatesChangeFinished : TiPlotObjectEvent                  read FOnAnnotationCoordinatesChangeFinished write FOnAnnotationCoordinatesChangeFinished;

    property AnnotationDefaultFont                 : TFont                              read FAnnotationDefaultFont                 write SetAnnotationDefaultFont;
    property AnnotationDefaultBrushStlye           : TBrushStyle                        read FAnnotationDefaultBrushStlye           write FAnnotationDefaultBrushStlye;
    property AnnotationDefaultBrushColor           : TColor                             read FAnnotationDefaultBrushColor           write FAnnotationDefaultBrushColor;
    property AnnotationDefaultPenStlye             : TPenStyle                          read FAnnotationDefaultPenStlye             write FAnnotationDefaultPenStlye;
    property AnnotationDefaultPenColor             : TColor                             read FAnnotationDefaultPenColor             write FAnnotationDefaultPenColor;
    property AnnotationDefaultPenWidth             : Integer                            read FAnnotationDefaultPenWidth             write FAnnotationDefaultPenWidth;

    property ClipAnnotationsToAxes                 : Boolean                            read FClipAnnotationsToAxes                 write SetClipAnnotationsToAxes;

    property BackGroundGradientEnabled             : Boolean                            read FBackGroundGradientEnabled             write SetBackGroundGradientEnabled;
    property BackGroundGradientDirection           : TiFillDirection                    read FBackGroundGradientDirection           write SetBackGroundGradientDirection;
    property BackGroundGradientStartColor          : TColor                             read FBackGroundGradientStartColor          write SetBackGroundGradientStartColor;
    property BackGroundGradientStopColor           : TColor                             read FBackGroundGradientStopColor           write SetBackGroundGradientStopColor;

    property DataFileColumnSeparator               : TiPlotDataFileColumnSeparator      read FDataFileColumnSeparator               write SetDataFileColumnSeparator;
    property DataFileFormat                        : TiPlotDataFileFormat               read FDataFileFormat                        write SetDataFileFormat;

    property BackGroundColor default clBlack;
    property BorderStyle     default ibsLowered;
    property Align;
    property AutoFrameRate   default True;
    property Anchors;
    property Constraints;
    property TabStop;
    property TabOrder;
    property OnResize;
  end;

implementation

type
  TiPlotObjectAccess        = class(TiPlotObject       ) end;
  TiPlotLayoutAccess        = class(TiPlotLayoutObject ) end;
  TiPlotChannelCustomAccess = class(TiPlotChannelCustom) end;
  TiPlotChannelAccess       = class(TiPlotChannel      ) end;