From dfc1161da4cb696ca2e0a63c91c60cc1c0faaa1f Mon Sep 17 00:00:00 2001 From: ask Date: Fri, 16 Apr 2010 06:02:26 +0000 Subject: [PATCH] TAChart: Rename TCustomChartSource.ValuesInInterval to ValuesInRange git-svn-id: trunk@24645 - --- components/tachart/tachartaxis.pas | 2 +- components/tachart/tasources.pas | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas index 23445456cb..be16509c44 100644 --- a/components/tachart/tachartaxis.pas +++ b/components/tachart/tachartaxis.pas @@ -496,7 +496,7 @@ begin AMax := GetTransform.GraphToAxis(AMax); if AMin > AMax then Exchange(AMin, AMax); - Marks.SourceDef.ValuesInInterval( + Marks.SourceDef.ValuesInRange( AMin, AMax, Marks.Format, IsVertical, FMarkValues, FMarkTexts); if Inverted then for i := 0 to High(FMarkValues) div 2 do begin diff --git a/components/tachart/tasources.pas b/components/tachart/tasources.pas index aacf6114ac..ab0a3fa986 100644 --- a/components/tachart/tasources.pas +++ b/components/tachart/tasources.pas @@ -62,7 +62,7 @@ type class procedure CheckFormat(const AFormat: String); function Extent: TDoubleRect; virtual; function FormatItem(const AFormat: String; AIndex: Integer): String; - procedure ValuesInInterval( + procedure ValuesInRange( AMin, AMax: Double; const AFormat: String; AUseY: Boolean; out AValues: TDoubleDynArray; out ATexts: TStringDynArray); virtual; function ValuesTotal: Double; virtual; @@ -165,7 +165,7 @@ type function GetCount: Integer; override; function GetItem(AIndex: Integer): PChartDataItem; override; public - procedure ValuesInInterval( + procedure ValuesInRange( AMin, AMax: Double; const AFormat: String; AUseY: Boolean; out AValues: TDoubleDynArray; out ATexts: TStringDynArray); override; end; @@ -327,7 +327,7 @@ begin FBroadcaster.Broadcast; end; -procedure TCustomChartSource.ValuesInInterval( +procedure TCustomChartSource.ValuesInRange( AMin, AMax: Double; const AFormat: String; AUseY: Boolean; out AValues: TDoubleDynArray; out ATexts: TStringDynArray); var @@ -782,7 +782,7 @@ begin Result := nil; end; -procedure TIntervalChartSource.ValuesInInterval( +procedure TIntervalChartSource.ValuesInRange( AMin, AMax: Double; const AFormat: String; AUseY: Boolean; out AValues: TDoubleDynArray; out ATexts: TStringDynArray); var