paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 05:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TBarSeries.AdjustBarWidth property.

Browse Source 
git-svn-id: trunk@19611 -
This commit is contained in:
ask 2009-04-24 14:36:16 +00:00
parent 563f244d92
commit 4b83c209c8
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/taseries.pas
View File

@ -108,14 +108,16 @@ type
TBarSeries = class(TBasicPointSeries)
private
FAdjustBarWidth: Boolean;
FBarBrush: TBrush;
FBarPen: TPen;
FBarWidthPercent: Integer;
procedure ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer);
procedure SetAdjustBarWidth(AValue: Boolean);
procedure SetBarWidthPercent(Value: Integer);
procedure SetBarBrush(Value: TBrush);
procedure SetBarPen(Value: TPen);
procedure ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer);
protected
procedure DrawLegend(ACanvas: TCanvas; const ARect: TRect); override;
function GetSeriesColor: TColor; override;
@ -127,6 +129,8 @@ type
procedure Draw(ACanvas: TCanvas); override;
function AddXY(X, Y: Double; XLabel: String; Color: TColor): Longint; override;
published
property AdjustBarWidth: Boolean
read FAdjustBarWidth write SetAdjustBarWidth default false;
property BarBrush: TBrush read FBarBrush write SetBarBrush;
property BarPen: TPen read FBarPen write SetBarPen;
property BarWidthPercent: Integer
@ -1206,6 +1210,11 @@ procedure TBarSeries.ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer);
var
i: Integer;
begin
if not AdjustBarWidth then begin
ATotalNumber := 1;
AMyPos := 0;
exit;
end;
ATotalNumber := 0;
AMyPos := -1;
for i := 0 to ParentChart.SeriesCount - 1 do begin
@ -1222,6 +1231,13 @@ begin
Result := FBarBrush.Color;
end;
procedure TBarSeries.SetAdjustBarWidth(AValue: Boolean);
begin
if FAdjustBarWidth = AValue then exit;
FAdjustBarWidth := AValue;
UpdateParentChart;
end;
{ TPieSeries }
function TPieSeries.AddPie(Value: Double; Text: String; Color: TColor): Longint;