paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 15:36:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Rename TCustomChartSource.ValuesInInterval to ValuesInRange

Browse Source 
git-svn-id: trunk@24645 -
This commit is contained in:
ask 2010-04-16 06:02:26 +00:00
parent 338187d10c
commit dfc1161da4
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartaxis.pas
View File

@ -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

8
components/tachart/tasources.pas
View File

@ -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