paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 03:37:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Draw grid with dotted lines by default

Browse Source 
git-svn-id: trunk@20351 -
This commit is contained in:
ask 2009-06-02 13:46:45 +00:00
parent a5d26d6883
commit 03fb819137
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tagraph.pas
View File

@ -369,12 +369,10 @@ begin
with TChartAxis.Create(FAxisList) do begin
Alignment := calLeft;
Title.Angle := 90;
Grid.Style := psDot;
end;
with TChartAxis.Create(FAxisList) do begin
Alignment := calBottom;
Title.Angle := 0;
Grid.Style := psDot;
end;
FFrame := TChartPen.Create;

16
components/tachart/tatypes.pas
View File

@ -156,12 +156,17 @@ type
TChartAxisAlignment = (calLeft, calTop, calRight, calBottom);
TChartAxisMargins = array [TChartAxisAlignment] of Integer;
TChartAxisPen = class(TChartPen)
published
property Style default psDot;
end;
{ TChartAxis }
TChartAxis = class(TCollectionItem)
private
FAlignment: TChartAxisAlignment;
FGrid: TChartPen;
FGrid: TChartAxisPen;
FInverted: Boolean;
FTitle: TChartAxisTitle;
FVisible: Boolean;
@ -170,7 +175,7 @@ type
FTitleSize: Integer;
procedure SetAlignment(AValue: TChartAxisAlignment);
procedure SetGrid(AValue: TChartPen);
procedure SetGrid(AValue: TChartAxisPen);
procedure SetInverted(AValue: Boolean);
procedure SetTitle(AValue: TChartAxisTitle);
procedure SetVisible(const AValue: Boolean);
@ -195,7 +200,7 @@ type
var AMargins: TChartAxisMargins);
published
property Alignment: TChartAxisAlignment read FAlignment write SetAlignment;
property Grid: TChartPen read FGrid write SetGrid;
property Grid: TChartAxisPen read FGrid write SetGrid;
// Inverts the axis scale from increasing to decreasing.
property Inverted: boolean read FInverted write SetInverted default false;
property Title: TChartAxisTitle read FTitle write SetTitle;
@ -627,8 +632,9 @@ constructor TChartAxis.Create(ACollection: TCollection);
begin
inherited Create(ACollection);
FTitle := TChartAxisTitle.Create(ACollection.Owner as TCustomChart);
FGrid := TChartPen.Create;
FGrid := TChartAxisPen.Create;
FGrid.OnChange := @StyleChanged;
FGrid.Style := psDot;
FVisible := true;
end;
@ -870,7 +876,7 @@ begin
StyleChanged(Self);
end;
procedure TChartAxis.SetGrid(AValue: TChartPen);
procedure TChartAxis.SetGrid(AValue: TChartAxisPen);
begin
FGrid.Assign(AValue);
StyleChanged(Self);