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

TAChart: fixed diminishing size of bar charts

Browse Source 
patch by: Alexander Klenin
fixes issue (13130)

git-svn-id: trunk@18649 -
This commit is contained in:
vincents 2009-02-12 14:51:34 +00:00
parent 6285c8757d
commit 9335ffdf78
2 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tagraph.pas
View File

@ -236,8 +236,6 @@ type
FAxisVisible: Boolean;
FNumBarSeries: Integer;
procedure SetAutoUpdateXMin(Value: Boolean);
procedure SetAutoUpdateXMax(Value: Boolean);
procedure SetAutoUpdateYMin(Value: Boolean);
@ -328,7 +326,6 @@ type
property Canvas;
property SeriesCount: Integer read GetSeriesCount;
property NumBarSeries: Integer read FNumBarSeries;
property ChartHeight: Integer read GetChartHeight;
property ChartWidth: Integer read GetChartWidth;
property Series: TFPList read FSeries write FSeries;
@ -730,8 +727,6 @@ begin
FFrame := TChartPen.Create;
FFrame.Visible := true;
FFrame.OnChange := StyleChanged;
FNumBarSeries := 0;
end;
destructor TChart.Destroy;
@ -1250,11 +1245,7 @@ begin
end;
Series.Add(Serie);
TBasicChartSeries(Serie).ParentChart := Self;
if Serie is TBarSeries then begin
(Serie as TBarSeries).SeriesNumber := FNumBarSeries;
Inc(FNumBarSeries); //FIXME: this is never decremented when series is deleted
end;
end;
procedure TChart.DeleteSerie(Serie: TComponent);

33
components/tachart/taseries.pas
View File

@ -159,11 +159,11 @@ type
FBarBrush: TBrush;
FBarPen: TPen;
FBarWidthPercent: Integer;
FSeriesNumber: Integer;
procedure SetBarWidthPercent(Value: Integer);
procedure SetBarBrush(Value: TBrush);
procedure SetBarPen(Value: TPen);
procedure ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer);
protected
procedure StyleChanged(Sender: TObject);
procedure DrawLegend(ACanvas: TCanvas; const ARect: TRect); override;
@ -175,12 +175,12 @@ type
procedure Draw(ACanvas: TCanvas); override;
function AddXY(X, Y: Double; XLabel: String; Color: TColor): Longint; override;
published
property BarWidthPercent:Integer read FBarWidthPercent write SetBarWidthPercent default 70;
property BarWidthPercent: Integer
read FBarWidthPercent write SetBarWidthPercent default 70;
property BarBrush: TBrush read FBarBrush write SetBarBrush;
property BarPen: TPen read FBarPen write SetBarPen;
property Title;
property Active;
property SeriesNumber: Integer read FSeriesNumber write FSeriesNumber;
end;
{ TPieSeries }
@ -1128,7 +1128,7 @@ var
graphCoordTop: ChartCoord;
graphCoordBottom: ChartCoord;
topX, topY, bottomY: Integer;
barWidth, TotalbarWidth: Integer;
barWidth, totalbarWidth, totalBarSeries, myPos: Integer;
bx1, by1, bx2, by2: Integer;
function BarInViewPort(cTop, cBottom: ChartCoord): Boolean;
@ -1156,10 +1156,10 @@ begin
ACanvas.Brush.Assign(FBarBrush);
//calc the single bar width
TotalbarWidth :=
totalbarWidth :=
Round((FBarWidthPercent * 0.01) * ParentChart.ChartWidth / FCoordList.Count);
//to use with multibar -- with is on by default
barWidth := TotalbarWidth div ParentChart.NumBarSeries;
ExamineAllBarSeries(totalBarSeries, myPos);
barWidth := totalbarWidth div totalBarSeries;
for i := 0 to FCoordList.Count - 1 do begin
//get the top and bottom points
@ -1188,9 +1188,9 @@ begin
bx2 := topX+(barWidth div 2);
by2 := bottomY;
}
bx1 := topX - (TotalbarWidth div 2) + SeriesNumber * barWidth;
bx1 := topX - (TotalbarWidth div 2) + myPos * barWidth;
by1 := topY;
bx2 := topX - (TotalbarWidth div 2) + SeriesNumber * barWidth + barWidth;
bx2 := topX - (TotalbarWidth div 2) + myPos * barWidth + barWidth;
by2 := bottomY;
//FIXME only draw if bar inside image coord (get a better way of doing this)
@ -1214,6 +1214,21 @@ begin
ACanvas.Rectangle(ARect);
end;
procedure TBarSeries.ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer);
var
i: Integer;
begin
ATotalNumber := 0;
AMyPos := -1;
for i := 0 to ParentChart.SeriesCount - 1 do begin
if ParentChart.Series[i] = Self then
AMyPos := ATotalNumber;
if TBasicChartSeries(ParentChart.Series[i]) is TBarSeries then
Inc(ATotalNumber);
end;
Assert(AMyPos >= 0);
end;
constructor TPieSeries.Create(AOwner: TComponent);
begin
inherited Create(AOwner);