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

TAChart: Extract TChart.Prepare procedure

Browse Source 
git-svn-id: trunk@35887 -
This commit is contained in:
ask 2012-03-11 14:38:41 +00:00
parent 00ebdc2239
commit 6f8724ce64
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/tachart/tagraph.pas
View File

@ -299,6 +299,7 @@ type
function GetLegendItems(AIncludeHidden: Boolean = false): 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 Prepare;
procedure SaveToBitmapFile(const AFileName: String); inline; procedure SaveToBitmapFile(const AFileName: String); inline;
procedure SaveToFile(AClass: TRasterImageClass; AFileName: String); procedure SaveToFile(AClass: TRasterImageClass; AFileName: String);
function SaveToImage(AClass: TRasterImageClass): TRasterImage; function SaveToImage(AClass: TRasterImageClass): TRasterImage;
@ -727,8 +728,9 @@ procedure TChart.Draw(ADrawer: IChartDrawer; const ARect: TRect);
var var
ldd: TChartLegendDrawingData; ldd: TChartLegendDrawingData;
s: TBasicChartSeries; s: TBasicChartSeries;
a: TChartAxis;
begin begin
Prepare;
ADrawer.DrawingBegin(ARect); ADrawer.DrawingBegin(ARect);
ADrawer.SetAntialiasingMode(AntialiasingMode); ADrawer.SetAntialiasingMode(AntialiasingMode);
Clear(ADrawer, ARect); Clear(ADrawer, ARect);
@ -741,16 +743,6 @@ begin
FClipRect.Bottom -= Bottom; FClipRect.Bottom -= Bottom;
end; end;
for a in AxisList do
if a.Transformations <> nil then
a.Transformations.SetChart(Self);
for s in Series do
s.BeforeDraw;
if not FIsZoomed then
FLogicalExtent := GetFullExtent;
FCurrentExtent := FLogicalExtent;
with ClipRect do begin; with ClipRect do begin;
FTitle.Draw(ADrawer, 1, Left, Right, Top); FTitle.Draw(ADrawer, 1, Left, Right, Top);
FFoot.Draw(ADrawer, -1, Left, Right, Bottom); FFoot.Draw(ADrawer, -1, Left, Right, Bottom);
@ -1195,6 +1187,22 @@ begin
AxisList.Prepare(FClipRect); AxisList.Prepare(FClipRect);
end; end;
procedure TChart.Prepare;
var
a: TChartAxis;
s: TBasicChartSeries;
begin
for a in AxisList do
if a.Transformations <> nil then
a.Transformations.SetChart(Self);
for s in Series do
s.BeforeDraw;
if not FIsZoomed then
FLogicalExtent := GetFullExtent;
FCurrentExtent := FLogicalExtent;
end;
function TChart.PrepareLegend( function TChart.PrepareLegend(
ADrawer: IChartDrawer; var AClipRect: TRect): TChartLegendDrawingData; ADrawer: IChartDrawer; var AClipRect: TRect): TChartLegendDrawingData;
begin begin