paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-06 13:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add AIncludeHidden parameter to the TChart.GetLegendItems function.

Browse Source 
Based on code by Werner.

git-svn-id: trunk@31359 -
This commit is contained in:
ask 2011-06-24 13:39:11 +00:00
parent 8bdf87abed
commit edac0eec23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tagraph.pas
View File

@ -279,7 +279,7 @@ type
procedure DrawLegendOn(ACanvas: TCanvas; var ARect: TRect); procedure DrawLegendOn(ACanvas: TCanvas; var ARect: TRect);
procedure EnableRedrawing; procedure EnableRedrawing;
function GetFullExtent: TDoubleRect; function GetFullExtent: TDoubleRect;
function GetLegendItems: TChartLegendItems; function GetLegendItems(AIncludeHidden: Boolean = false): TChartLegendItems;
procedure PaintOnAuxCanvas(ACanvas: TCanvas; ARect: TRect); procedure PaintOnAuxCanvas(ACanvas: TCanvas; ARect: TRect);
procedure PaintOnCanvas(ACanvas: TCanvas; ARect: TRect); procedure PaintOnCanvas(ACanvas: TCanvas; ARect: TRect);
procedure SaveToBitmapFile(const AFileName: String); inline; procedure SaveToBitmapFile(const AFileName: String); inline;
@ -924,7 +924,7 @@ begin
end; end;
end; end;
function TChart.GetLegendItems: TChartLegendItems; function TChart.GetLegendItems(AIncludeHidden: Boolean): TChartLegendItems;
var var
i: Integer; i: Integer;
begin begin
@ -932,7 +932,7 @@ begin
try try
for i := 0 to SeriesCount - 1 do for i := 0 to SeriesCount - 1 do
with Series[i] do with Series[i] do
if Active and GetShowInLegend then if AIncludeHidden or (Active and GetShowInLegend) then
GetLegendItemsBasic(Result); GetLegendItemsBasic(Result);
except except
FreeAndNil(Result); FreeAndNil(Result);