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

TAChart: Add TChartLegend.GridHorizontal and GridVertical properties

Browse Source 
git-svn-id: trunk@39074 -
This commit is contained in:
ask 2012-10-14 04:50:35 +00:00
parent 0278f15753
commit bef2b0f44a
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
components/tachart/talegend.pas
View File

@ -151,6 +151,11 @@ type
TLegendColumnCount = 1..MaxInt;
TLegendItemFillOrder = (lfoColRow, lfoRowCol);
TChartLegendGridPen = class(TChartPen)
published
property Visible default false;
end;
{ TChartLegend }
TChartLegend = class(TChartElement)
@ -160,6 +165,8 @@ type
FColumnCount: TLegendColumnCount;
FFont: TFont;
FFrame: TChartPen;
FGridHorizontal: TChartLegendGridPen;
FGridVertical: TChartLegendGridPen;
FGroupFont: TFont;
FGroupTitles: TStrings;
FItemFillOrder: TLegendItemFillOrder;
@ -178,6 +185,8 @@ type
procedure SetColumnCount(AValue: TLegendColumnCount);
procedure SetFont(AValue: TFont);
procedure SetFrame(AValue: TChartPen);
procedure SetGridHorizontal(AValue: TChartLegendGridPen);
procedure SetGridVertical(AValue: TChartLegendGridPen);
procedure SetGroupFont(AValue: TFont);
procedure SetGroupTitles(AValue: TStrings);
procedure SetItemFillOrder(AValue: TLegendItemFillOrder);
@ -207,6 +216,10 @@ type
read FColumnCount write SetColumnCount default 1;
property Font: TFont read FFont write SetFont;
property Frame: TChartPen read FFrame write SetFrame;
property GridHorizontal: TChartLegendGridPen
read FGridHorizontal write SetGridHorizontal;
property GridVertical: TChartLegendGridPen
read FGridVertical write SetGridVertical;
property GroupFont: TFont read FGroupFont write SetGroupFont;
property GroupTitles: TStrings read FGroupTitles write SetGroupTitles;
property ItemFillOrder: TLegendItemFillOrder
@ -472,6 +485,10 @@ begin
inherited Create(AOwner);
FAlignment := laTopRight;
FColumnCount := 1;
FGridHorizontal := TChartLegendGridPen.Create;
FGridHorizontal.OnChange := @StyleChanged;
FGridVertical := TChartLegendGridPen.Create;
FGridVertical.OnChange := @StyleChanged;
FGroupTitles := TStringList.Create;
FMarginX := DEF_LEGEND_MARGIN;
FMarginY := DEF_LEGEND_MARGIN;
@ -492,6 +509,8 @@ begin
FreeAndNil(FBackgroundBrush);
FreeAndNil(FFont);
FreeAndNil(FFrame);
FreeAndNil(FGridHorizontal);
FreeAndNil(FGridVertical);
FreeAndNil(FGroupFont);
FreeAndNil(FGroupTitles);
FreeAndNil(FSymbolFrame);
@ -541,6 +560,22 @@ begin
FItems[i].Draw(drawer, r);
OffsetRect(r, 0, FItemSize.Y + Spacing);
end;
if GridHorizontal.Visible and (GridHorizontal.Style <> psClear) then begin
drawer.Pen := GridHorizontal;
drawer.SetBrushParams(bsClear, clTAColor);
for i := 1 to FRowCount - 1 do begin
y := FBounds.Top + Spacing div 2 + i * (FItemSize.Y + Spacing);
drawer.Line(FBounds.Left, y, FBounds.Right, y);
end;
end;
if GridVertical.Visible and (GridVertical.Style <> psClear) then begin
drawer.Pen := GridVertical;
drawer.SetBrushParams(bsClear, clTAColor);
for i := 1 to FColCount - 1 do begin
x := FBounds.Left + Spacing div 2 + i * (FItemSize.X + Spacing);
drawer.Line(x, FBounds.Top, x, FBounds.Bottom);
end;
end;
finally
drawer.ClippingStop;
end;
@ -653,6 +688,20 @@ begin
StyleChanged(Self);
end;
procedure TChartLegend.SetGridHorizontal(AValue: TChartLegendGridPen);
begin
if FGridHorizontal = AValue then exit;
FGridHorizontal.Assign(AValue);
StyleChanged(Self);
end;
procedure TChartLegend.SetGridVertical(AValue: TChartLegendGridPen);
begin
if FGridVertical = AValue then exit;
FGridVertical.Assign(AValue);
StyleChanged(Self);
end;
procedure TChartLegend.SetGroupFont(AValue: TFont);
begin
FGroupFont.Assign(AValue);