📄 iploteditor.pas
字号:
YAxisLegendCopyDefaultButton: TiComponentEditorButton;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Label105: TLabel;
EditMenuItem: TMenuItem;
BackGroundTabSheet: TTabSheet;
Label75: TLabel;
BackGroundColorPicker: TiComponentEditorColorPicker;
BackGroundGradientGroupBox: TGroupBox;
BackGroundGradientEnabledCheckBox: TiComponentEditorCheckBox;
Label206: TLabel;
BackGroundGradientStartColorPicker: TiComponentEditorColorPicker;
Label207: TLabel;
BackGroundGradientStopColorPicker: TiComponentEditorColorPicker;
Label208: TLabel;
BackGroundGradientDirectionComboBox: TiComponentEditorComboBox;
Label209: TLabel;
DataCursorPointerPenWidthUpDown: TiUpDown;
DataCursorPointerPenWidthEdit: TiComponentEditorEdit;
TablesTabSheet: TTabSheet;
TablePageControl: TiComponentEditorPageControl;
TablesGeneralTabSheet: TTabSheet;
TableListBox: TiComponentEditorListBox;
iTableAddButton: TButton;
TableRemoveButton: TButton;
TableMarginGroupBox: TGroupBox;
TableLeftMarginEdit: TiComponentEditorEdit;
TableTopMarginEdit: TiComponentEditorEdit;
TableBottomMarginEdit: TiComponentEditorEdit;
TableRightMarginEdit: TiComponentEditorEdit;
TableVisibleCheckbox: TiComponentEditorCheckBox;
TableEnabledCheckbox: TiComponentEditorCheckBox;
TablePopupEnabledCheckbox: TiComponentEditorCheckBox;
TablesGridTabSheet: TTabSheet;
TableGridBackgroundGroupBox: TGroupBox;
Label210: TLabel;
TableGridBackGroundTransparentCheckBox: TiComponentEditorCheckBox;
TableGridBackgroundColorPicker: TiComponentEditorColorPicker;
TableLinesGroupBox: TGroupBox;
Label211: TLabel;
TableGridLinesShowCheckBox: TiComponentEditorCheckBox;
TableGridLinesColorPicker: TiComponentEditorColorPicker;
TableDataGroupBox: TGroupBox;
TableDataFontPicker: TiComponentEditorFontPicker;
TableColumnTitlesGroupBox: TGroupBox;
TableColumnTitlesFontPicker: TiComponentEditorFontPicker;
TableColumnTitlesVisibleCheckBox: TiComponentEditorCheckBox;
Label212: TLabel;
TableColumnSpacingEdit: TiComponentEditorEdit;
Label213: TLabel;
TableRowSpacingEdit: TiComponentEditorEdit;
Label214: TLabel;
TableNameEdit: TiComponentEditorEdit;
Label215: TLabel;
TableRowsMaxEdit: TiComponentEditorEdit;
ChannelMarkersFontPicker: TiComponentEditorFontPicker;
Label216: TLabel;
XAxisAlignRefAxisNameComboBox: TiComponentEditorComboBox;
Label217: TLabel;
YAxisAlignRefAxisNameComboBox: TiComponentEditorComboBox;
ChannelInterpolationStyleLabel: TLabel;
ChannelInterpolationStyleComboBox: TiComponentEditorComboBox;
XAxisForceStackingCheckBox: TiComponentEditorCheckBox;
YAxisForceStackingCheckBox: TiComponentEditorCheckBox;
DataViewAxesControlGroupBox: TiComponentEditorGroupBox;
Label237: TLabel;
Label238: TLabel;
DataViewAxesControlWheelStyleComboBox: TiComponentEditorComboBox;
DataViewAxesControlEnabledCheckBox: TiComponentEditorCheckBox;
DataViewAxesControlMouseStyleComboBox: TiComponentEditorComboBox;
TablesLayoutTabSheet: TTabSheet;
Label226: TLabel;
Label227: TLabel;
TableStartPercentEdit: TiComponentEditorEdit;
TableStopPercentEdit: TiComponentEditorEdit;
Label144: TLabel;
FileColumnSeparatorComboBox: TiComponentEditorComboBox;
LegendChannelNameGroupBox: TGroupBox;
Label114: TLabel;
LegendChannelNameMaxWidthEdit: TiComponentEditorEdit;
Label228: TLabel;
LegendChannelNameColorStyleComboBox: TiComponentEditorComboBox;
Label243: TLabel;
ChannelHighLowEnabledCheckBox: TiComponentEditorCheckBox;
ChannelHighLowStyleComboBox: TiComponentEditorComboBox;
iComponentEditorPageControl1: TiComponentEditorPageControl;
ChannelHighLowOpenCloseTabSheet: TTabSheet;
TabSheet18: TTabSheet;
Label242: TLabel;
ChannelHighLowShadowColorPicker: TiComponentEditorColorPicker;
ChannelHighLowOpenGroupBox: TGroupBox;
Label231: TLabel;
Label232: TLabel;
Label233: TLabel;
ChannelHighLowOpenColorPicker: TiComponentEditorColorPicker;
ChannelHighLowOpenWidthEdit: TiComponentEditorEdit;
ChannelHighLowOpenShowCheckBox: TiComponentEditorCheckBox;
ChannelHighLowOpenHeightEdit: TiComponentEditorEdit;
ChannelHighLowOpenWidthPicker: TiComponentEditorValueConverterPicker;
ChannelHighLowOpenHeightPicker: TiComponentEditorValueConverterPicker;
ChannelHighLowCloseGroupBox: TGroupBox;
Label234: TLabel;
Label235: TLabel;
Label236: TLabel;
ChannelHighLowCloseColorPicker: TiComponentEditorColorPicker;
ChannelHighLowCloseWidthEdit: TiComponentEditorEdit;
ChannelHighLowCloseShowCheckBox: TiComponentEditorCheckBox;
ChannelHighLowCloseHeightEdit: TiComponentEditorEdit;
ChannelHighLowCloseWidthPicker: TiComponentEditorValueConverterPicker;
ChannelHighLowCloseHeightPicker: TiComponentEditorValueConverterPicker;
ChannelHighLowBarGroupBox: TGroupBox;
Label229: TLabel;
Label230: TLabel;
ChannelHighLowBarColorPicker: TiComponentEditorColorPicker;
ChannelHighLowBarWidthEdit: TiComponentEditorEdit;
ChannelHighLowBarWidthPicker: TiComponentEditorValueConverterPicker;
Label218: TLabel;
ChannelHighLowBullishColorPicker: TiComponentEditorColorPicker;
Label219: TLabel;
ChannelHighLowBearishColorPicker: TiComponentEditorColorPicker;
Label220: TLabel;
XAxisLabelRotationComboBox: TiComponentEditorComboBox;
Label221: TLabel;
YAxisLabelRotationComboBox: TiComponentEditorComboBox;
ToolBarShowPreviewButtonCheckBox: TiComponentEditorCheckBox;
XAxisTitleRotatedCheckBox: TiComponentEditorCheckBox;
YAxisTitleRotatedCheckBox: TiComponentEditorCheckBox;
procedure ChannelListBoxClick(Sender: TObject);
procedure ChannelChange(Sender: TObject);
procedure iChannelAddButtonClick(Sender: TObject);
procedure ChannelRemoveButtonClick(Sender: TObject);
procedure XAxesAddButtonClick(Sender: TObject);
procedure XAxisRemoveButtonClick(Sender: TObject);
procedure XAxisListBoxClick(Sender: TObject);
procedure ChannelListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure XAxisListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure YAxesAddButtonClick(Sender: TObject);
procedure YAxisRemoveButtonClick(Sender: TObject);
procedure YAxisListBoxClick(Sender: TObject);
procedure YAxisListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure XAxisChange(Sender: TObject);
procedure YAxisChange(Sender: TObject);
procedure XAxisNameComboBoxDropDown(Sender: TObject);
procedure YAxisNameComboBoxDropDown(Sender: TObject);
procedure LegendListBoxClick(Sender: TObject);
procedure LegendListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure LegendChange(Sender: TObject);
procedure ToolBarListBoxClick(Sender: TObject);
procedure ToolBarListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure ToolBarChange(Sender: TObject);
procedure DataViewListBoxClick(Sender: TObject);
procedure DataViewListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure DataViewChange(Sender: TObject);
procedure GeneralChanged(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ChannelLogActivateButtonClick(Sender: TObject);
procedure ChannelLogDeactivateButtonClick(Sender: TObject);
procedure ControlPropertiesOpenPickerChange(Sender: TObject);
procedure ControlPropertiesSavePickerChange(Sender: TObject);
procedure ControlDataSavePickerChange(Sender: TObject);
procedure ControlDataOpenPickerChange(Sender: TObject);
procedure ChannelPropertiesSavePickerChange(Sender: TObject);
procedure ChannelPropertiesOpenPickerChange(Sender: TObject);
procedure ChannelDataSavePickerChange(Sender: TObject);
procedure ChannelDataOpenPickerChange(Sender: TObject);
procedure ChannelLogFileNamePickerChange(Sender: TObject);
procedure ControlLogFileNamePickerChange(Sender: TObject);
procedure ControlLogActivateButtonClick(Sender: TObject);
procedure ControlLogDeactivateButtonClick(Sender: TObject);
procedure ChannelStatsRefreshButtonClick(Sender: TObject);
procedure ChannelNameComboBoxDropDown(Sender: TObject);
procedure DataCursorChange(Sender: TObject);
procedure DataCursorListBoxClick(Sender: TObject);
procedure DataCursorListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure iDataCursorAddButtonClick(Sender: TObject);
procedure DataCursorRemoveButtonClick(Sender: TObject);
procedure LimitChange(Sender: TObject);
procedure LimitListBoxClick(Sender: TObject);
procedure LimitListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure iLimitAddButtonClick(Sender: TObject);
procedure LimitRemoveButtonClick(Sender: TObject);
procedure LabelChange(Sender: TObject);
procedure LabelListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure LabelListBoxClick(Sender: TObject);
procedure iLabelAddButtonClick(Sender: TObject);
procedure LabelRemoveButtonClick(Sender: TObject);
procedure TitleChange(Sender: TObject);
procedure DataViewGridXAxisNameComboBoxDropDown(Sender: TObject);
procedure DataViewGridYAxisNameComboBoxDropDown(Sender: TObject);
procedure iPlotLayoutViewerChange(Sender: TObject);
procedure ControlAnnotationSavePickerChange(Sender: TObject);
procedure ControlAnnotationOpenPickerChange(Sender: TObject);
procedure iCustomEditorFormClose(Sender: TObject; var Action: TCloseAction);
procedure LayoutPopupMenuPopup(Sender: TObject);
procedure AddXAxisMenuItemClick(Sender: TObject);
procedure AddYAxisMenuItemClick(Sender: TObject);
procedure AddLabelMenuItemClick(Sender: TObject);
procedure DeleteMenuItemClick(Sender: TObject);
procedure XYAxesReverseMenuItemClick(Sender: TObject);
procedure VisibleMenuItemClick(Sender: TObject);
procedure DataCursorChannelNameComboBoxDropDown(Sender: TObject);
procedure iPlotLayoutViewerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure XAxisCursorCopyDefaultButtonClick(Sender: TObject);
procedure XAxisLegendCopyDefaultButtonClick(Sender: TObject);
procedure YAxisCursorCopyDefaultButtonClick(Sender: TObject);
procedure YAxisLegendCopyDefaultButtonClick(Sender: TObject);
procedure EditMenuItemClick(Sender: TObject);
procedure TableListBoxClick(Sender: TObject);
procedure TableListBoxGetData(const Index: Integer; var DrawColorBox: Boolean; var AColor: TColor; var AText: String);
procedure iTableAddButtonClick(Sender: TObject);
procedure TableRemoveButtonClick(Sender: TObject);
procedure TableChange(Sender: TObject);
private
FOnGeneralChange : TNotifyEvent;
FIsClosing : Boolean;
FRightClickObject : TiPlotLayoutObject;
procedure DisableAllEditControlsStartingWith(Value: String);
procedure EnableAllEditControlsStartingWith(Value: String);
procedure ChannelStatsClear;
procedure RefreshChannelStats;
protected
{$IFDEF iVCL}procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;{$endif}
public
Master : TiPlotMasterManager;
PlotComponent : TWinControl;
destructor Destroy; override;
property OnGeneralChange : TNotifyEvent read FOnGeneralChange write FOnGeneralChange;
procedure UpdateToolBarEdit;
procedure UpdateLegendEdit;
procedure UpdateTableEdit;
procedure UpdateXAxesEdit;
procedure UpdateYAxesEdit;
procedure UpdateChannelEdit;
procedure UpdateDataViewEdit;
procedure UpdateDataCursorEdit;
procedure UpdateLimitEdit;
procedure UpdateLabelEdit;
procedure UpdateAll;
property IsClosing : Boolean read FIsClosing;
procedure SetFormTranslationMethod(Value: TFormTranslationMethod);
end;
implementation
uses
{$IFDEF iVCL} iPlotAxis, iPlotLegend, iPlotTable, iPlotToolBar, iPlotChannelCustom, iPlotChannel, iPlotLimit, iXYPlotChannel, iPlotDataView, iPlotLabel, iPlotDataCursor, iPlotComponent, iPlotDataNullList;{$endif}
{$ifdef iCLX} QiPlotAxis, QiPlotLegend, QiPlotTable, QiPlotToolBar, QiPlotChannelCustom, QiPlotChannel, QiPlotLimit, QiXYPlotChannel, QiPlotDataView, QiPlotLabel, QiPlotDataCursor, QiPlotComponent, QiPlotDataNullList;{$endif}
{$R *.dfm}
//****************************************************************************************************************************************************
procedure TiPlotEditorForm.FormCreate(Sender: TObject);
begin
{$IFDEF iVCL}BorderStyle := bsDialog; {$endif}
{$IFDEF iCLX}BorderStyle := fbsDialog; {$endif}
end;
//****************************************************************************************************************************************************
destructor TiPlotEditorForm.Destroy;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -