teechartpro.pas

BCB第三方组件

{*********************************************}
{ TeeChart Pro                                }
{ Copyright (c) 1996-2007 by Steema Software  }
{                                             }
{ Component Registration Unit                 }
{                                             }
{ Functions:                                  }
{          TCountTeeFunction                  }
{          TCurveFittingTeeFunction           }
{          TAverageTeeFunction                }
{          TMovingAverageTeeFunction          }
{          TExpMovAveFunction                 }
{          TExpAverageTeeFunction             }
{          TMomentumTeeFunction               }
{          TRSITeeFunction                    }
{          TStdDeviationTeeFunction           }
{          TMACDFunction                      }
{          TRootMeanSquareFunction            }
{          TCumulative                        }
{          TCompressFunction                  }
{          TCrossPointsFunction               }
{          TSmoothPointsFunction              }
{          TCLVFunction                       }
{          TOBVFunction                       }
{          TPVOFunction                       }
{          TSARFunction                       }
{                                             }
{ Series:                                     }
{          TCandleSeries                      }
{          TVolumeSeries                      }
{          TSurfaceSeries                     }
{          TContourSeries                     }
{          TWaterFallSeries                   }
{          TErrorBarSeries                    }
{          TPolarSeries                       }
{          TBezierSeries                      }
{          TPoint3DSeries                     }
{          TDonutSeries                       }
{          TBoxPlotSeries                     }
{          THistogramSeries                   }
{          TSmithSeries                       }
{          TPyramidSeries                     }
{          TMapSeries                         }
{          TPointFigureSeries                 }
{          TGaugeSeries                       }
{          TTowerSeries                       }
{          TVector3DSeries                    }
{          TVolumePipeSeries                  }
{          THighLowLineSeries                 }
{          TWorldSeries (GIS / Mapping)       }
{          TOrgSeries (Organization Charts)   }
{          TTagCloudSeries (Cloud of tags)    }
{          TNumericGauge (LED / LCD gauge)    }
{          TLinearGauge                       }                     
{          TCircularGauge                     }
{                                             }
{ Tools:                                      }
{          TCursorTool                        }
{          TDragMarksTool                     }
{          TDrawLineTool                      }
{          THintsTool                         }
{          TRotateTool                        }
{          TAxisArrowTool                     }
{          TColorLineTool                     }
{          TColorBandTool                     }
{          TImageTool                         }
{          TPageNumTool                       }
{          TDragPointTool                     }
{          TExtraLegendTool                   }
{          TSeriesAnimationTool               }
{          TGanttTool                         }
{          TGridBandTool                      }
{          TPieTool                           }
{          TLightTool                         }
{          TLegendScrollBar                   }
{          TSurfaceNearestTool                }
{          TSelectorTool                      }
{          TClipSeriesTool                    }
{          TSeriesBandTool                    }
{          TDataTableTool                     }
{          TSeriesStatsTool                   }
{          TVideoTool                         }
{          TVideoPlayerTool                   }
{          TAntiAliasTool                     }
{          TBannerTool                        }
{          TMagnifyTool                       }
{          TLegendPaletteTool                 }
{          TText3DTool                        }
{          TSubChartTool                      }
{          TLinkTool                          }
{          TFibonacciTool                     }
{                                             }
{ Other:                                      }
{          TTeeCommander                      }
{          TChartEditor                       }
{          TChartPreviewer                    }
{          TChartScrollBar                    }
{          TChartListBox                      }
{          TSeriesDataSet*                    }
{          TChartGalleryPanel                 }
{          TTeePreviewPanel                   }
{          TChartGrid                         }
{          TChartGridNavigator                }
{          TChartPageNavigator                }
{          TChartWebSource                    }
{          TSeriesTextSource                  }
{          TTeeInspector                      }
{          TTeeXMLSource                      }
{          TTeeExcelSource                    }
{          TImageFiltered                     }
{          TChartBook                         }
{          TImportChart                       }
{                                             }
{          Alternate Gallery                  }
{                                             }
{ Sample Series:                              }
{          TMyPointSeries                     }
{          TBar3DSeries                       }
{          TBigCandleSeries                   }
{          TImagePointSeries                  }
{          TDeltaPoint                        }
{          TImageBarSeries                    }
{          TWindRoseSeries                    }
{          TClockSeries                       }
{          TBarJoinSeries                     }
{          TCalendarSeries                    }
{                                             }
{ TeeChart Actions (for Delphi 4 and up)      }
{          *Many*                             }
{                                             }
{ * TSeriesDataSet not available in           }
{   STANDARD versions of Delphi/CBuilder      }
{                                             }
{*********************************************}
unit TeeChartPro;
{$I TeeDefs.inc}

interface

procedure Register;

Procedure TeeSetLanguage(English:Boolean);

implementation

{$IFDEF CLR}
{.$DEFINE TEENOSERIESDESIGN}
{$ENDIF}

{$IFDEF CLX}
{$DEFINE TEENOSERIESDESIGN}
{$ENDIF}

{$IFDEF BCB}
{$DEFINE TEENOSERIESDESIGN}
{$ENDIF}

{$IFDEF LCL}
{$DEFINE TEENOSERIESDESIGN}
{$ENDIF}

Uses Classes, SysUtils,
     {$IFDEF CLX}
     DesignIntf, DesignEditors,
     QControls, QGraphics, QDialogs, QActnList, QForms,
     {$ELSE}
      {$IFDEF D6}
       {$IFDEF CLR}
       {$IFDEF TEEEDITORS}
       Borland.VCL.Design.DesignEditors, Borland.VCL.Design.DesignIntf,
       {$ENDIF}
       {$ELSE}
       DesignIntf,
       DesignEditors,
       {$ENDIF}
      {$ELSE}
       {$IFDEF LCL}
       PropEdits, ComponentEditors,
       {$ELSE}
       DsgnIntf,
       {$ENDIF}
      {$ENDIF}
     Controls, Graphics, Dialogs, ActnList, Forms,
     {$ENDIF}

     {$IFNDEF TEENOSERIESDESIGN}
     TeeSeriesDesign,
     {$ENDIF}

     TeeTranslate,

     { Languages }
     TeeSpanish,
     TeeGerman,
     TeeCatalan,
     TeeFrench,
     TeeDanish,
     TeeDutch,
     TeeChinese,
     TeeChineseSimp,
     TeeBrazil,
     TeeSwedish,
     TeePortuguese,
     TeeRussian,
     TeeSlovene,
     TeeNorwegian,
     TeeJapanese,
     TeePolish,
     TeeTurkish,
     TeeHungarian,
     TeeItalian,
     TeeArabic,
     TeeHebrew,
     TeeUkrainian,
     TeeKorean,
     TeeIndonesian,
     TeeGalician,
     TeeFinnish,
     TeeSlovak,
     TeeHellenic,
     TeeRomanian,
     TeeSerbian,
     TeeFarsi,
     TeeCzech,
     TeeHindi,
     TeeUrdu,
     TeeCroatian,
     TeeMalaysian,

     CandleCh, CurvFitt, ErrorBar, TeeErrBarEd, TeeSurfa, TeeNavigator,
     TeeSurfEdit, TeePolar, TeePolarEditor, TeeCandlEdi, StatChar,
     TeEngine, Chart, TeeProcs, TeeChartReg, TeeEditPro, TeeConst, TeeProCo,
     TeeBezie, TeePoin3, TeCanvas, TeeScroB, TeeEdit, TeeComma, TeeVolEd,
     TeeLisB, TeeEdiGene, TeeInspector, TeeCount, TeeCumu, TeeDonut,
     TeeTools, TeeTriSurface, TeeDragPoint, TeeGalleryPanel, TeePrevi,
     TeePreviewPanel, TeePreviewPanelEditor, MyPoint, Bar3D, BigCandl,
     ImaPoint, ImageBar, TeeImaEd, TeeRose, TeeChartGrid, TeeBoxPlot,
     TeeURL, TeeSeriesTextEd, TeeMapSeries, TeeChartActions,
     TeeSmith, TeeCalendar, TeeCompressOHLC, TeeExtraLegendTool,
     TeeCLVFunction, TeeOBVFunction, TeeDownSampling, TeeSeriesAnimEdit,
     TeePointFigure, TeeGanttTool, 

     {$IFNDEF LINUX}
     {$IFNDEF LCL}
     TeeXML,
     {$ENDIF}
     {$ENDIF}

     {$IFDEF D9}
     TeeJpeg, TeePNG, TeeGIF, TeeSVGCanvas, TeePSCanvas, TeeVMLCanvas,
     TeePDFCanvas, TeeXAMLCanvas, TeeFlexCanvas,

     {$IFNDEF CLR}
     TeePCX,
     {$ENDIF}

     {$ENDIF}

     TeeGridBandToolEdit, TeeGaugeEditor, TeeTowerEdit, TeePieTool,
     TeeLighting, TeeDataTableTool, TeeDataTableEditor, TeeVolumePipe,

     {$IFNDEF TEENOTHEMES}
     TeeThemes, TeeThemeEditor,
     {$ENDIF}

     TeeDesignOptions,
     TeeLegendScrollBar, TeeSurfaceTool, TeeSelectorTool, TeeEditCha,

     {$IFNDEF CLR}

     {$IFNDEF LCL}
     TeeExcelSource,
     {$ENDIF}

     {.$IFNDEF CLX}

     {$IFNDEF LCL}
     TeeVideo,
     TeeVideoPlayer,
     {$ENDIF}

     {.$ENDIF}

     {$ENDIF}

     TeeSeriesStats, TeeHighLowLine, TeeSeriesRegion, TeeSAR,
     TeeChartBook, TeeSubChart, EditChar,
     TeeMagnifyTool, TeeOrgSeries, TeeWorldSeries, TeeTagCloud,
     TeeNumericGauge, TeeLinearGauge,
     TeeLinkTool, TeeFibonacci, TeeCircularGauge,
     TeeToolsGalleryDemos;  // <-- tools demos only at design-time package


{$IFDEF CLR}
{$R 'TeeEdit.TChartEditor.bmp'} // Do not localize
{$R 'TeeEdit.TChartEditorPanel.bmp'} // Do not localize
{$R 'TeeGalleryPanel.TChartGalleryPanel.bmp'} // Do not localize
{$R 'TeeChartGrid.TChartGrid.bmp'} // Do not localize
{$R 'TeeChartGrid.TChartGridNavigator.bmp'} // Do not localize
{$R 'TTeeInspector.bmp'} // Do not localize
{$R 'TTeeExcelSource.bmp'} // Do not localize
{$ENDIF}

{$IFDEF TEEEDITORS}
type
  TChartEditorCompEditor=class(TComponentEditor)
  public
    procedure ExecuteVerb( Index : Integer ); override;
    function GetVerbCount : Integer; override;
    function GetVerb( Index : Integer ) : string; override;
  end;

  TPreviewPanelCompEditor=class(TComponentEditor)
  public
    procedure ExecuteVerb( Index : Integer ); override;
    function GetVerbCount : Integer; override;
    function GetVerb( Index : Integer ) : string; override;
  end;

{ TChartEditorCompEditor }
procedure TChartEditorCompEditor.ExecuteVerb( Index : Integer );
begin
  if Index=0 then TCustomChartEditor(Component).Execute
             else inherited;
end;

function TChartEditorCompEditor.GetVerbCount : Integer;
begin
  Result := inherited GetVerbCount+1;
end;

function TChartEditorCompEditor.GetVerb( Index : Integer ) : string;
begin
  if Index=0 then result:=TeeMsg_Test
             else result:=inherited GetVerb(Index);
end;

{ TPreviewPanelCompEditor }
procedure TPreviewPanelCompEditor.ExecuteVerb( Index : Integer );
begin
  if Index=0 then
  With TFormPreviewPanelEditor.CreatePanel(nil,TTeePreviewPanel(Component)) do
  try
    ShowModal;
  finally
    Free;
  end
  else inherited;
end;

function TPreviewPanelCompEditor.GetVerbCount : Integer;
begin
  Result:=inherited GetVerbCount+1;
end;

function TPreviewPanelCompEditor.GetVerb( Index : Integer ) : string;
begin
  if Index=0 then result:=TeeMsg_Edit
             else result:=inherited GetVerb(Index);
end;

type
  TTeeCustomToolAxisProperty = class(TPropertyEditor)
  public
    function GetAttributes : TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
    function GetValue: string; override;
    procedure SetValue(const Value: string); override;
  end;