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

TAChart: Cosmetic style fixes

Browse Source 
git-svn-id: trunk@34008 -
This commit is contained in:
ask 2011-12-06 23:14:33 +00:00
parent 1618d51768
commit 924256986a
5 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/axis/axisdemo.lpi
View File

@ -56,7 +56,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

2
components/tachart/demo/chartsource/main.pas
View File

@ -119,7 +119,7 @@ begin
case rgDataShape.ItemIndex of
0: y := x;
1: y := Sin(x);
2: if (x = 0) then y := 1 else y := Sin(x) / x;
2: if x = 0 then y := 1 else y := Sin(x) / x;
3: y := Exp(-x / 3);
4: y := Exp(-Sqr((x - 2.5) / 2.5));
5: y := Exp(-Sqr((x - 2.5) / 2.5)) + 0.05 * (Random - 0.5);

8
components/tachart/demo/radial/main.lfm
View File

@ -28,12 +28,14 @@ object Form1: TForm1
Width = 558
AxisList = <
item
Title.LabelFont.Orientation = 900
Visible = False
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Visible = False
Alignment = calBottom
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -145,10 +147,12 @@ object Form1: TForm1
Width = 558
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue

4
components/tachart/demo/radial/radialdemo.lpi
View File

@ -31,7 +31,7 @@
<RequiredPackages Count="4">
<Item1>
<PackageName Value="LCLBase"/>
<MinVersion Major="1" Release="1" Valid="True"/>
<MinVersion Major="1" Valid="True" Release="1"/>
</Item1>
<Item2>
<PackageName Value="TAChartLazarusPkg"/>
@ -61,7 +61,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="radialdemo"/>

14
components/tachart/talegend.pas
View File

@ -140,12 +140,12 @@ type
laTopRight, laCenterRight, laBottomRight);
TChartLegendDrawingData = record
FBounds: TRect;
FColCount: Integer;
FDrawer: IChartDrawer;
FItems: TChartLegendItems;
FColCount: Integer;
FRowCount: Integer;
FItemSize: TPoint;
FBounds: TRect;
FRowCount: Integer;
end;
TLegendColumnCount = 1..MaxInt;
@ -154,7 +154,7 @@ type
{ TChartLegend }
TChartLegend = class(TChartElement)
private
strict private
FAlignment: TLegendAlignment;
FBackgroundBrush: TChartLegendBrush;
FColumnCount: TLegendColumnCount;
@ -170,6 +170,9 @@ type
FSymbolWidth: TChartDistance;
FUseSidebar: Boolean;
// Not includes the margins around item.
function MeasureItem(
ADrawer: IChartDrawer; AItems: TChartLegendItems): TPoint;
procedure SetAlignment(AValue: TLegendAlignment);
procedure SetBackgroundBrush(AValue: TChartLegendBrush);
procedure SetColumnCount(AValue: TLegendColumnCount);
@ -193,9 +196,6 @@ type
procedure AddGroups(AItems: TChartLegendItems);
procedure Assign(Source: TPersistent); override;
procedure Draw(var AData: TChartLegendDrawingData);
// Not includes the margins around item.
function MeasureItem(
ADrawer: IChartDrawer; AItems: TChartLegendItems): TPoint;
procedure Prepare(var AData: TChartLegendDrawingData; var AClipRect: TRect);
procedure SortItemsByOrder(AItems: TChartLegendItems);
published