paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 23:00:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix streaming of TChartImageList after changes to TImageList bitmap format

Browse Source 
git-svn-id: trunk@39945 -
This commit is contained in:
ask 2013-01-24 04:44:35 +00:00
parent 6709c70681
commit 07276efd34
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/tachart/tachartimagelist.pas
View File

@ -47,13 +47,15 @@ type
protected
procedure ClearAllSeries;
procedure Populate;
public
procedure ReadData(AStream: TStream); override;
procedure WriteData(AStream: TStream); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetSeries(AImgIndex: Integer): TCustomChartSeries;
function ImageIndexOfSeries(ASeries: TCustomChartSeries): Integer;
procedure SeriesChanged(ASender: TObject);
procedure WriteData(AStream: TStream); override;
property FirstSeriesIndex: Integer read FFirstSeriesIndex;
property SeriesCount: Integer read FSeriesCount;
published
@ -78,6 +80,17 @@ end;
{ TChartImageList }
procedure TChartImageList.ClearAllSeries;
var
i: Integer;
begin
if FFirstSeriesIndex < 0 then exit;
for i := FFirstSeriesIndex + FSeriesCount - 1 downto FFirstSeriesIndex do
Delete(i);
FFirstSeriesIndex := -1;
FSeriesCount := 0;
end;
constructor TChartImageList.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
@ -92,17 +105,6 @@ begin
inherited Destroy;
end;
procedure TChartImageList.ClearAllSeries;
var
i: Integer;
begin
if FFirstSeriesIndex < 0 then exit;
for i := FFirstSeriesIndex + FSeriesCount - 1 downto FFirstSeriesIndex do
Delete(i);
FFirstSeriesIndex := -1;
FSeriesCount := 0;
end;
function TChartImageList.GetSeries(AImgIndex: Integer): TCustomChartSeries;
begin
Result := nil;
@ -166,6 +168,12 @@ begin
end;
end;
procedure TChartImageList.ReadData(AStream: TStream);
begin
Unused(AStream);
Clear;
end;
// Notification procedure of the listener. Responds to chart broadcasts
// by populating the imagelist with the chart's series icons.
procedure TChartImageList.SeriesChanged(ASender:TObject);
@ -188,18 +196,10 @@ begin
end;
procedure TChartImageList.WriteData(AStream: TStream);
var
ch: TChart;
begin
ch := Chart;
try
// Don't write the series images to stream.
// They will be recreated automatically when the chart is assigned on loading.
Chart := nil;
inherited WriteData(AStream);
finally
Chart := ch;
end;
// Don't write the series images to stream.
// They will be recreated automatically when the chart is assigned on loading.
Unused(AStream);
end;
end.