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

TAChart: Use ChildSizing technique to position charts in demo/panes.

Browse Source 
git-svn-id: trunk@60109 -
This commit is contained in:
wp 2019-01-19 16:46:42 +00:00
parent df0b4e4aa9
commit 34796ea982
2 changed files with 61 additions and 49 deletions
components/tachart/demo/panes
Main.lfmpanes.lpi

83
components/tachart/demo/panes/Main.lfm
View File

@ -1,38 +1,48 @@
object Form1: TForm1
Left = 336
Height = 630
Height = 554
Top = 148
Width = 620
Width = 566
Caption = 'Form1'
ClientHeight = 630
ClientWidth = 620
LCLVersion = '0.9.31'
ClientHeight = 554
ClientWidth = 566
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 0
Height = 630
Height = 554
Top = 0
Width = 620
ActivePage = tsLink
Width = 566
ActivePage = tsTransform
Align = alClient
TabIndex = 0
TabIndex = 1
TabOrder = 0
object tsLink: TTabSheet
Caption = 'Link'
ClientHeight = 604
ClientWidth = 612
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 526
ClientWidth = 558
object chLink1: TChart
Left = 0
Height = 200
Height = 176
Top = 0
Width = 612
Width = 558
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -41,8 +51,7 @@ object Form1: TForm1
Title.Text.Strings = (
'TAChart'
)
Align = alTop
ParentColor = False
Color = clDefault
object chLink1LineSeries1: TLineSeries
LinePen.Color = clNavy
LinePen.Width = 2
@ -51,17 +60,21 @@ object Form1: TForm1
end
object chLink2: TChart
Left = 0
Height = 200
Top = 200
Width = 612
Height = 176
Top = 176
Width = 558
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -70,8 +83,7 @@ object Form1: TForm1
Title.Text.Strings = (
'TAChart'
)
Align = alTop
ParentColor = False
Color = clDefault
object chLink2LineSeries1: TLineSeries
LinePen.Color = clNavy
LinePen.Width = 2
@ -80,17 +92,21 @@ object Form1: TForm1
end
object chLink3: TChart
Left = 0
Height = 204
Top = 400
Width = 612
Height = 174
Top = 352
Width = 558
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -99,8 +115,7 @@ object Form1: TForm1
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
Color = clDefault
object chLink3LineSeries1: TLineSeries
LinePen.Color = clNavy
LinePen.Width = 2
@ -110,42 +125,50 @@ object Form1: TForm1
end
object tsTransform: TTabSheet
Caption = 'Transform'
ClientHeight = 604
ClientWidth = 612
ClientHeight = 526
ClientWidth = 558
object chTransform: TChart
Left = 0
Height = 604
Height = 526
Top = 0
Width = 612
Width = 558
AxisList = <
item
Group = 1
Marks.LabelBrush.Style = bsClear
Marks.Range.Max = 50
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
Transformations = catAuto1
end
item
Group = 1
Marks.LabelBrush.Style = bsClear
Marks.Range.Max = 50
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Minors = <>
Title.LabelBrush.Style = bsClear
Transformations = catAuto2
end
item
Group = 1
Marks.LabelBrush.Style = bsClear
Marks.Range.Max = 50
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Minors = <>
Title.LabelBrush.Style = bsClear
Transformations = catAuto3
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -155,7 +178,7 @@ object Form1: TForm1
'TAChart'
)
Align = alClient
ParentColor = False
Color = clDefault
object chTransformLineSeries1: TLineSeries
AxisIndexY = 0
LinePen.Color = clNavy

27
components/tachart/demo/panes/panes.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -13,21 +13,17 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -41,19 +37,18 @@
<Unit0>
<Filename Value="panes.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="panes"/>
</Unit0>
<Unit1>
<Filename Value="Main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Main"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="panes"/>
@ -69,12 +64,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">