paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Always reset the extent after EndUpdate in TUserDefinedChartSource

Browse Source 
git-svn-id: trunk@30379 -
This commit is contained in:
ask 2011-04-19 07:28:54 +00:00
parent 2ec56385d6
commit 48e27c17da
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tacustomsource.pas
View File

@ -65,7 +65,7 @@ type
procedure AfterDraw; virtual;
procedure BeforeDraw; virtual;
procedure BeginUpdate;
procedure EndUpdate;
procedure EndUpdate; virtual;
function IsUpdating: Boolean; inline;
public
class procedure CheckFormat(const AFormat: String);

9
components/tachart/tasources.pas
View File

@ -187,6 +187,7 @@ type
function GetItem(AIndex: Integer): PChartDataItem; override;
procedure SetYCount(AValue: Cardinal); override;
public
procedure EndUpdate; override;
function IsSorted: Boolean; override;
procedure Reset; inline;
published
@ -948,6 +949,14 @@ end;
{ TUserDefinedChartSource }
procedure TUserDefinedChartSource.EndUpdate;
begin
// There is no way to detect if the extent changed --
// so call Reset to be a bit safer, but a bit slower.
Reset;
inherited EndUpdate;
end;
function TUserDefinedChartSource.GetCount: Integer;
begin
Result := FPointsNumber;