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

TAChart: Fix legend position in ChartEditor demo.

Browse Source
This commit is contained in:
wp_xyz 2021-07-31 11:06:08 +02:00
parent 443586e1d3
commit b4c663189a
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/demo/charteditor/celegendframe.lfm
View File

@ -190,13 +190,13 @@ object ChartLegendFrame: TChartLegendFrame
ClientHeight = 92 ClientHeight = 92
ClientWidth = 292 ClientWidth = 292
TabOrder = 0 TabOrder = 0
OnClick = gbAlignmentClick
object rbTopLeft: TRadioButton object rbTopLeft: TRadioButton
Left = 6 Left = 6
Height = 17 Height = 17
Top = 6 Top = 6
Width = 86 Width = 86
Caption = 'top/left' Caption = 'top/left'
OnClick = gbAlignmentClick
TabOrder = 0 TabOrder = 0
end end
object rbTopCenter: TRadioButton object rbTopCenter: TRadioButton
@ -206,6 +206,7 @@ object ChartLegendFrame: TChartLegendFrame
Top = 6 Top = 6
Width = 102 Width = 102
Caption = 'top/center' Caption = 'top/center'
OnClick = gbAlignmentClick
TabOrder = 1 TabOrder = 1
end end
object rbTopRight: TRadioButton object rbTopRight: TRadioButton
@ -216,6 +217,7 @@ object ChartLegendFrame: TChartLegendFrame
Width = 92 Width = 92
Caption = 'top/right' Caption = 'top/right'
Checked = True Checked = True
OnClick = gbAlignmentClick
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
end end
@ -226,6 +228,7 @@ object ChartLegendFrame: TChartLegendFrame
Top = 23 Top = 23
Width = 86 Width = 86
Caption = 'center/left' Caption = 'center/left'
OnClick = gbAlignmentClick
TabOrder = 3 TabOrder = 3
end end
object Bevel1: TBevel object Bevel1: TBevel
@ -243,6 +246,7 @@ object ChartLegendFrame: TChartLegendFrame
Top = 23 Top = 23
Width = 92 Width = 92
Caption = 'center/right' Caption = 'center/right'
OnClick = gbAlignmentClick
TabOrder = 4 TabOrder = 4
end end
object rbBottomLeft: TRadioButton object rbBottomLeft: TRadioButton
@ -252,6 +256,7 @@ object ChartLegendFrame: TChartLegendFrame
Top = 69 Top = 69
Width = 86 Width = 86
Caption = 'bottom/left' Caption = 'bottom/left'
OnClick = gbAlignmentClick
TabOrder = 5 TabOrder = 5
end end
object rbBottomCenter: TRadioButton object rbBottomCenter: TRadioButton
@ -261,6 +266,7 @@ object ChartLegendFrame: TChartLegendFrame
Top = 69 Top = 69
Width = 102 Width = 102
Caption = 'bottom/center' Caption = 'bottom/center'
OnClick = gbAlignmentClick
TabOrder = 6 TabOrder = 6
end end
object rbBottomRight: TRadioButton object rbBottomRight: TRadioButton
@ -270,6 +276,7 @@ object ChartLegendFrame: TChartLegendFrame
Top = 69 Top = 69
Width = 92 Width = 92
Caption = 'bottom/right' Caption = 'bottom/right'
OnClick = gbAlignmentClick
TabOrder = 7 TabOrder = 7
end end
end end
@ -301,7 +308,6 @@ object ChartLegendFrame: TChartLegendFrame
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'X' Caption = 'X'
FocusControl = seMarginX FocusControl = seMarginX
ParentColor = False
end end
object seMarginX: TSpinEdit object seMarginX: TSpinEdit
AnchorSideTop.Control = gbMargins AnchorSideTop.Control = gbMargins
@ -330,7 +336,6 @@ object ChartLegendFrame: TChartLegendFrame
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Y' Caption = 'Y'
FocusControl = seMarginY FocusControl = seMarginY
ParentColor = False
end end
object seMarginY: TSpinEdit object seMarginY: TSpinEdit
AnchorSideTop.Control = seMarginX AnchorSideTop.Control = seMarginX
@ -402,7 +407,6 @@ object ChartLegendFrame: TChartLegendFrame
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Columns' Caption = 'Columns'
FocusControl = seColumns FocusControl = seColumns
ParentColor = False
end end
object lblItemFillOrder: TLabel object lblItemFillOrder: TLabel
AnchorSideLeft.Control = cbInverted AnchorSideLeft.Control = cbInverted
@ -416,7 +420,6 @@ object ChartLegendFrame: TChartLegendFrame
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Item fill order' Caption = 'Item fill order'
ParentColor = False
end end
object cbItemFillOrder: TComboBox object cbItemFillOrder: TComboBox
AnchorSideTop.Control = seColumns AnchorSideTop.Control = seColumns
@ -470,7 +473,6 @@ object ChartLegendFrame: TChartLegendFrame
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Spacing' Caption = 'Spacing'
FocusControl = seSpacing FocusControl = seSpacing
ParentColor = False
end end
object seSymbolWidth: TSpinEdit object seSymbolWidth: TSpinEdit
AnchorSideTop.Control = seSpacing AnchorSideTop.Control = seSpacing
@ -502,7 +504,6 @@ object ChartLegendFrame: TChartLegendFrame
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Symbol width' Caption = 'Symbol width'
FocusControl = seSymbolWidth FocusControl = seSymbolWidth
ParentColor = False
end end
end end
end end

3
components/tachart/demo/charteditor/cemain.lfm
View File

@ -8,7 +8,7 @@ object MainForm: TMainForm
ClientWidth = 613 ClientWidth = 613
Menu = MainMenu Menu = MainMenu
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.1.0.0' LCLVersion = '2.3.0.0'
object Chart1: TChart object Chart1: TChart
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -88,7 +88,6 @@ object MainForm: TMainForm
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Click on a title, axis, label, grid, data point to open the corresponding editor.' Caption = 'Click on a title, axis, label, grid, data point to open the corresponding editor.'
ParentColor = False
end end
object Bevel1: TBevel object Bevel1: TBevel
AnchorSideBottom.Control = Label1 AnchorSideBottom.Control = Label1