TAChart: convert axis demo to FPC resources

Add logarithmic axis to the demo

git-svn-id: trunk@23448 -
This commit is contained in:
ask 2010-01-14 14:17:34 +00:00
parent 99706575d2
commit fc3a9430bd
5 changed files with 18 additions and 46 deletions

1
.gitattributes vendored
View File

@ -2064,7 +2064,6 @@ components/tachart/demo/3d/zdemo.lpr svneol=native#text/plain
components/tachart/demo/axis/axisdemo.lpi svneol=native#text/plain
components/tachart/demo/axis/axisdemo.lpr svneol=native#text/pascal
components/tachart/demo/axis/main.lfm svneol=native#text/plain
components/tachart/demo/axis/main.lrs svneol=native#text/plain
components/tachart/demo/axis/main.pas svneol=native#text/pascal
components/tachart/demo/basic/demo.lpi svneol=native#text/plain
components/tachart/demo/basic/demo.lpr svneol=native#text/plain

View File

@ -6,12 +6,13 @@
<General>
<Flags>
<SaveClosedFiles Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="TAChart axis demo"/>
<UseXPManifest Value="True"/>
<ResourceType Value="res"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>

View File

@ -16,44 +16,45 @@ object Form1: TForm1
AxisList = <
item
Alignment = calLeft
Offset = 0
Scale = 1
TickColor = clRed
Title.Caption = 'Left'
Title.Font.Orientation = 900
Title.Visible = True
Transformation.Logarithmic = True
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calRight
Offset = 1
Scale = 2
Title.Caption = 'Right 1'
Title.Font.Orientation = 900
Title.Visible = True
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calBottom
Offset = 0
Scale = 1
Title.Caption = 'Bottom'
Title.Distance = 0
Title.Visible = True
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calRight
Grid.Visible = False
Offset = 0
Scale = -1
TickColor = clAqua
Title.Caption = 'Right 2'
Title.Visible = True
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calTop
Inverted = True
Offset = 0
Scale = 1
Title.Caption = 'Top'
Transformation.Offset = 0
Transformation.Scale = 1
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -65,6 +66,7 @@ object Form1: TForm1
Align = alClient
ParentColor = False
object Chart1LineSeries1: TLineSeries
AxisIndexY = 0
SeriesColor = clBlack
Source = RandomChartSource1
end
@ -74,7 +76,7 @@ object Form1: TForm1
RandSeed = 99566593
XMax = 20
XMin = 10
YMax = 2
YMax = 20
YMin = 1
left = 216
top = 108

View File

@ -1,28 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'X'#1#6'Height'#3'0'#1#3'Top'#3#182#0#5'Wi'
+'dth'#3#21#2#7'Caption'#6#5'Form1'#12'ClientHeight'#3'0'#1#11'ClientWidth'#3
+#21#2#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TChart'
+#6'Chart1'#4'Left'#2#0#6'Height'#3'0'#1#3'Top'#2#0#5'Width'#3#21#2#8'AxisLis'
+'t'#14#1#9'Alignment'#7#7'calLeft'#6'Offset'#5#0#0#0#0#0#0#0#0#0#0#5'Scale'#5
+#0#0#0#0#0#0#0#128#255'?'#9'TickColor'#7#5'clRed'#13'Title.Caption'#6#4'Left'
+#22'Title.Font.Orientation'#3#132#3#13'Title.Visible'#9#0#1#9'Alignment'#7#8
+'calRight'#6'Offset'#5#0#0#0#0#0#0#0#128#255'?'#5'Scale'#5#0#0#0#0#0#0#0#128
+#0'@'#13'Title.Caption'#6#7'Right 1'#22'Title.Font.Orientation'#3#132#3#13'T'
+'itle.Visible'#9#0#1#9'Alignment'#7#9'calBottom'#6'Offset'#5#0#0#0#0#0#0#0#0
+#0#0#5'Scale'#5#0#0#0#0#0#0#0#128#255'?'#13'Title.Caption'#6#6'Bottom'#14'Ti'
+'tle.Distance'#2#0#13'Title.Visible'#9#0#1#9'Alignment'#7#8'calRight'#12'Gri'
+'d.Visible'#8#6'Offset'#5#0#0#0#0#0#0#0#0#0#0#5'Scale'#5#0#0#0#0#0#0#0#128
+#255#191#9'TickColor'#7#6'clAqua'#13'Title.Caption'#6#7'Right 2'#13'Title.Vi'
+'sible'#9#0#1#9'Alignment'#7#6'calTop'#8'Inverted'#9#6'Offset'#5#0#0#0#0#0#0
+#0#0#0#0#5'Scale'#5#0#0#0#0#0#0#0#128#255'?'#13'Title.Caption'#6#3'Top'#0#0
+#16'Foot.Brush.Color'#7#9'clBtnFace'#15'Foot.Font.Color'#7#6'clBlue'#17'Titl'
+'e.Brush.Color'#7#9'clBtnFace'#16'Title.Font.Color'#7#6'clBlue'#18'Title.Tex'
+'t.Strings'#1#6#7'TAChart'#0#5'Align'#7#8'alClient'#11'ParentColor'#8#0#11'T'
+'LineSeries'#17'Chart1LineSeries1'#11'SeriesColor'#7#7'clBlack'#6'Source'#7
+#18'RandomChartSource1'#0#0#0#18'TRandomChartSource'#18'RandomChartSource1'
+#12'PointsNumber'#2#30#8'RandSeed'#4#1'D'#239#5#4'XMax'#5#0#0#0#0#0#0#0#160#3
+'@'#4'XMin'#5#0#0#0#0#0#0#0#160#2'@'#4'YMax'#5#0#0#0#0#0#0#0#128#0'@'#4'YMin'
+#5#0#0#0#0#0#0#0#128#255'?'#4'left'#3#216#0#3'top'#2'l'#0#0#0
]);

View File

@ -5,8 +5,7 @@ unit Main;
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
TAGraph, TASeries, TASources;
Forms, TAGraph, TASeries, TASources;
type
@ -24,6 +23,8 @@ var
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.TChartAxisList1MarkToText(var AText: String; AMark: Double);
@ -32,8 +33,5 @@ begin
AText := '*' + AText + '*';
end;
initialization
{$I main.lrs}
end.