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

TAChart: More layout improvements in charteditor demo.

Browse Source 
git-svn-id: trunk@60838 -
This commit is contained in:
wp 2019-04-04 22:17:59 +00:00
parent 774810e228
commit 2c1a86f5ac
1 changed files with 68 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

136
components/tachart/demo/charteditor/ceseriesdlg.lfm
View File

@ -2,13 +2,13 @@ object SeriesEditor: TSeriesEditor
Left = 509 Left = 509
Height = 450 Height = 450
Top = 284 Top = 284
Width = 567 Width = 600
ActiveControl = cbShowSeries ActiveControl = cbShowSeries
Caption = 'SeriesEditor' Caption = 'SeriesEditor'
ClientHeight = 450 ClientHeight = 450
ClientWidth = 567 ClientWidth = 600
Constraints.MinHeight = 450 Constraints.MinHeight = 450
Constraints.MinWidth = 450 Constraints.MinWidth = 600
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -19,7 +19,7 @@ object SeriesEditor: TSeriesEditor
Left = 6 Left = 6
Height = 34 Height = 34
Top = 410 Top = 410
Width = 555 Width = 588
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick OKButton.OnClick = OKButtonClick
@ -36,8 +36,8 @@ object SeriesEditor: TSeriesEditor
Left = 0 Left = 0
Height = 254 Height = 254
Top = 150 Top = 150
Width = 567 Width = 600
PageIndex = 2 PageIndex = 0
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object pgLineSeries: TPage object pgLineSeries: TPage
@ -46,16 +46,16 @@ object SeriesEditor: TSeriesEditor
AnchorSideTop.Control = pgLineSeries AnchorSideTop.Control = pgLineSeries
AnchorSideRight.Control = Bevel1 AnchorSideRight.Control = Bevel1
Left = 8 Left = 8
Height = 116 Height = 113
Top = 8 Top = 8
Width = 267 Width = 284
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Connecting lines' Caption = 'Connecting lines'
ClientHeight = 96 ClientHeight = 93
ClientWidth = 263 ClientWidth = 280
TabOrder = 0 TabOrder = 0
inline LineSeriesPenFrame: TPenFrame inline LineSeriesPenFrame: TPenFrame
AnchorSideTop.Control = cbLineSeriesShowLines AnchorSideTop.Control = cbLineSeriesShowLines
@ -63,34 +63,33 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Control = gbLineSeriesLineStyle AnchorSideRight.Control = gbLineSeriesLineStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 55 Height = 52
Top = 33 Top = 33
Width = 247 Width = 264
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ClientHeight = 55 ClientHeight = 52
ClientWidth = 247 ClientWidth = 264
TabOrder = 1 TabOrder = 1
inherited cbPenStyle: TChartComboBox inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = LineSeriesPenFrame AnchorSideTop.Control = LineSeriesPenFrame
Width = 163 Width = 180
end end
inherited lblPenStyle: TLabel inherited lblPenStyle: TLabel
AnchorSideLeft.Control = LineSeriesPenFrame AnchorSideLeft.Control = LineSeriesPenFrame
end end
inherited cbPenWidth: TChartComboBox inherited cbPenWidth: TChartComboBox
Width = 163 Width = 180
end end
inherited cbPenColor: TColorButton inherited cbPenColor: TColorButton
AnchorSideRight.Control = LineSeriesPenFrame AnchorSideRight.Control = LineSeriesPenFrame
Left = 216 Left = 233
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 211 Left = 228
end end
end end
object cbLineSeriesShowLines: TCheckBox object cbLineSeriesShowLines: TCheckBox
@ -113,16 +112,16 @@ object SeriesEditor: TSeriesEditor
AnchorSideTop.Control = gbLineSeriesLineStyle AnchorSideTop.Control = gbLineSeriesLineStyle
AnchorSideRight.Control = pgLineSeries AnchorSideRight.Control = pgLineSeries
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 291 Left = 308
Height = 235 Height = 231
Top = 8 Top = 8
Width = 268 Width = 284
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Series pointer' Caption = 'Series pointer'
ClientHeight = 215 ClientHeight = 211
ClientWidth = 264 ClientWidth = 280
TabOrder = 1 TabOrder = 1
object cbLineSeriesShowPoints: TCheckBox object cbLineSeriesShowPoints: TCheckBox
AnchorSideLeft.Control = gbLineSeriesPointer AnchorSideLeft.Control = gbLineSeriesPointer
@ -144,21 +143,21 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Control = gbLineSeriesPointer AnchorSideRight.Control = gbLineSeriesPointer
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 174 Height = 170
Top = 33 Top = 33
Width = 248 Width = 264
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ClientHeight = 174 ClientHeight = 170
ClientWidth = 248 ClientWidth = 264
TabOrder = 1 TabOrder = 1
inherited Bevel1: TBevel inherited Bevel1: TBevel
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideRight.Control = LineSeriesPointerFrame AnchorSideRight.Control = LineSeriesPointerFrame
Width = 248 Width = 264
end end
inherited PointerBrushFrame: TBrushFrame inherited PointerBrushFrame: TBrushFrame
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
@ -167,28 +166,27 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Control = LineSeriesPointerFrame AnchorSideRight.Control = LineSeriesPointerFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Top = 69 Top = 69
Width = 248 Width = 264
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ClientWidth = 248 ClientWidth = 264
TabOrder = 2 TabOrder = 2
inherited cbBrushStyle: TChartComboBox inherited cbBrushStyle: TChartComboBox
AnchorSideTop.Control = LineSeriesPointerFrame.PointerBrushFrame AnchorSideTop.Control = LineSeriesPointerFrame.PointerBrushFrame
Width = 164 Width = 180
end end
inherited lblBrushStyle: TLabel inherited lblBrushStyle: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame.PointerBrushFrame AnchorSideLeft.Control = LineSeriesPointerFrame.PointerBrushFrame
end end
inherited cbBrushColor: TColorButton inherited cbBrushColor: TColorButton
AnchorSideRight.Control = LineSeriesPointerFrame.PointerBrushFrame AnchorSideRight.Control = LineSeriesPointerFrame.PointerBrushFrame
Left = 217 Left = 233
end end
end end
inherited cbPointerStyle: TChartComboBox inherited cbPointerStyle: TChartComboBox
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
Width = 162 Width = 178
end end
inherited Label2: TLabel inherited Label2: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
@ -196,7 +194,7 @@ object SeriesEditor: TSeriesEditor
inherited Bevel2: TBevel inherited Bevel2: TBevel
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideRight.Control = LineSeriesPointerFrame AnchorSideRight.Control = LineSeriesPointerFrame
Width = 248 Width = 264
end end
inherited Label3: TLabel inherited Label3: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
@ -207,54 +205,55 @@ object SeriesEditor: TSeriesEditor
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LineSeriesPointerFrame AnchorSideRight.Control = LineSeriesPointerFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Height = 52
Top = 118 Top = 118
Width = 248 Width = 264
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ClientWidth = 248 ClientHeight = 52
ClientWidth = 264
TabOrder = 3 TabOrder = 3
inherited cbPenStyle: TChartComboBox inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = LineSeriesPointerFrame.PointerPenFrame AnchorSideTop.Control = LineSeriesPointerFrame.PointerPenFrame
Width = 164 Width = 180
end end
inherited lblPenStyle: TLabel inherited lblPenStyle: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame.PointerPenFrame AnchorSideLeft.Control = LineSeriesPointerFrame.PointerPenFrame
end end
inherited cbPenWidth: TChartComboBox inherited cbPenWidth: TChartComboBox
Width = 164 Width = 180
end end
inherited cbPenColor: TColorButton inherited cbPenColor: TColorButton
AnchorSideRight.Control = LineSeriesPointerFrame.PointerPenFrame AnchorSideRight.Control = LineSeriesPointerFrame.PointerPenFrame
Left = 217 Left = 233
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 212 Left = 228
end end
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideTop.Control = LineSeriesPointerFrame AnchorSideTop.Control = LineSeriesPointerFrame
AnchorSideRight.Control = LineSeriesPointerFrame AnchorSideRight.Control = LineSeriesPointerFrame
Width = 248 Width = 264
end end
inherited Label1: TLabel inherited Label1: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideTop.Control = LineSeriesPointerFrame AnchorSideTop.Control = LineSeriesPointerFrame
end end
inherited lblPointerSize: TLabel inherited lblPointerSize: TLabel
Left = 170 Left = 186
end end
inherited sePointerSize: TSpinEdit inherited sePointerSize: TSpinEdit
AnchorSideRight.Control = LineSeriesPointerFrame AnchorSideRight.Control = LineSeriesPointerFrame
Left = 198 Left = 214
end end
end end
end end
object Bevel1: TBevel object Bevel1: TBevel
AnchorSideLeft.Control = pgLineSeries AnchorSideLeft.Control = pgLineSeries
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 275 Left = 292
Height = 104 Height = 104
Top = 152 Top = 152
Width = 16 Width = 16
@ -288,7 +287,6 @@ object SeriesEditor: TSeriesEditor
Top = 8 Top = 8
Width = 247 Width = 247
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
@ -337,7 +335,6 @@ object SeriesEditor: TSeriesEditor
Left = 8 Left = 8
Width = 247 Width = 247
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
@ -435,7 +432,6 @@ object SeriesEditor: TSeriesEditor
Left = 8 Left = 8
Width = 247 Width = 247
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
@ -459,13 +455,14 @@ object SeriesEditor: TSeriesEditor
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel3 AnchorSideRight.Control = Bevel3
Left = 8 Left = 8
Height = 116 Height = 115
Top = 65 Top = 65
Width = 267 Width = 267
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Border' Caption = 'Border'
ClientHeight = 96 ClientHeight = 95
ClientWidth = 263 ClientWidth = 263
TabOrder = 1 TabOrder = 1
object cbAreaShowContourLines: TCheckBox object cbAreaShowContourLines: TCheckBox
@ -488,14 +485,15 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Control = gbAreaContourPen AnchorSideRight.Control = gbAreaContourPen
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 52
Top = 35 Top = 35
Width = 247 Width = 247
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ClientHeight = 52
ClientWidth = 247 ClientWidth = 247
TabOrder = 1 TabOrder = 1
inherited cbPenStyle: TChartComboBox inherited cbPenStyle: TChartComboBox
@ -534,14 +532,15 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Control = pgAreaSeries AnchorSideRight.Control = pgAreaSeries
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 291 Left = 291
Height = 116 Height = 115
Top = 65 Top = 65
Width = 268 Width = 268
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Drop lines' Caption = 'Drop lines'
ClientHeight = 96 ClientHeight = 95
ClientWidth = 264 ClientWidth = 264
TabOrder = 2 TabOrder = 2
object cbAreaShowDropLines: TCheckBox object cbAreaShowDropLines: TCheckBox
@ -564,14 +563,15 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Control = gbAreaDropLinePen AnchorSideRight.Control = gbAreaDropLinePen
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 52
Top = 35 Top = 35
Width = 248 Width = 248
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
ClientHeight = 52
ClientWidth = 248 ClientWidth = 248
TabOrder = 1 TabOrder = 1
inherited cbPenStyle: TChartComboBox inherited cbPenStyle: TChartComboBox
@ -599,12 +599,12 @@ object SeriesEditor: TSeriesEditor
Left = 0 Left = 0
Height = 150 Height = 150
Top = 0 Top = 0
Width = 567 Width = 600
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 150 ClientHeight = 150
ClientWidth = 567 ClientWidth = 600
TabOrder = 0 TabOrder = 0
object cbShowSeries: TCheckBox object cbShowSeries: TCheckBox
Left = 8 Left = 8
@ -628,14 +628,14 @@ object SeriesEditor: TSeriesEditor
Left = 8 Left = 8
Height = 109 Height = 109
Top = 33 Top = 33
Width = 267 Width = 284
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Legend text' Caption = 'Legend text'
ClientHeight = 89 ClientHeight = 89
ClientWidth = 263 ClientWidth = 280
TabOrder = 1 TabOrder = 1
object edSeriesTitle: TEdit object edSeriesTitle: TEdit
AnchorSideLeft.Control = gbLegendText AnchorSideLeft.Control = gbLegendText
@ -645,7 +645,7 @@ object SeriesEditor: TSeriesEditor
Left = 8 Left = 8
Height = 23 Height = 23
Top = 4 Top = 4
Width = 247 Width = 264
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -677,7 +677,7 @@ object SeriesEditor: TSeriesEditor
Left = 87 Left = 87
Height = 23 Height = 23
Top = 58 Top = 58
Width = 168 Width = 185
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -713,16 +713,16 @@ object SeriesEditor: TSeriesEditor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbLegendText AnchorSideBottom.Control = gbLegendText
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 291 Left = 308
Height = 109 Height = 109
Top = 33 Top = 33
Width = 268 Width = 284
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Marks' Caption = 'Marks'
ClientHeight = 89 ClientHeight = 89
ClientWidth = 264 ClientWidth = 280
TabOrder = 2 TabOrder = 2
object lblSeriesMarksStyle: TLabel object lblSeriesMarksStyle: TLabel
AnchorSideLeft.Control = gbMarks AnchorSideLeft.Control = gbMarks
@ -744,7 +744,7 @@ object SeriesEditor: TSeriesEditor
Left = 54 Left = 54
Height = 23 Height = 23
Top = 4 Top = 4
Width = 202 Width = 218
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 8 BorderSpacing.Right = 8
@ -789,7 +789,7 @@ object SeriesEditor: TSeriesEditor
Left = 54 Left = 54
Height = 23 Height = 23
Top = 33 Top = 33
Width = 202 Width = 218
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -815,7 +815,7 @@ object SeriesEditor: TSeriesEditor
object Bevel4: TBevel object Bevel4: TBevel
AnchorSideLeft.Control = PanelTop AnchorSideLeft.Control = PanelTop
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 275 Left = 292
Height = 94 Height = 94
Top = 48 Top = 48
Width = 16 Width = 16