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

TAChart: cross-platform layout in ListboxDemo

Browse Source 
git-svn-id: trunk@63727 -
This commit is contained in:
wp 2020-08-12 15:53:46 +00:00
parent 5b171a067d
commit c00ae1a4b3
2 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/tachart/demo/listbox/Unit1.lfm
View File

@ -92,7 +92,6 @@ object Form1: TForm1
OnSeriesIconDblClick = ChartListboxSeriesIconDblClick OnSeriesIconDblClick = ChartListboxSeriesIconDblClick
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Color = clInfoBk
ItemHeight = 20 ItemHeight = 20
TabOrder = 0 TabOrder = 0
end end
@ -127,6 +126,7 @@ object Form1: TForm1
Top = 8 Top = 8
Width = 91 Width = 91
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Add series' Caption = 'Add series'
@ -197,13 +197,15 @@ object Form1: TForm1
TabOrder = 4 TabOrder = 4
end end
object CbShowSeriesIcon: TCheckBox object CbShowSeriesIcon: TCheckBox
AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Control = CbShowCheckboxes
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbShowCheckboxes AnchorSideTop.Control = CbShowCheckboxes
Left = 151 Left = 146
Height = 19 Height = 19
Top = 310 Top = 310
Width = 112 Width = 112
BorderSpacing.Left = 24
BorderSpacing.Right = 6
Caption = 'Show series icons' Caption = 'Show series icons'
Checked = True Checked = True
OnChange = CbShowSeriesIconChange OnChange = CbShowSeriesIconChange
@ -260,23 +262,23 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 206 Left = 201
Height = 23 Height = 23
Top = 339 Top = 339
Width = 60 Width = 60
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Right = 6
MinValue = 1 MinValue = 1
OnChange = EdColumnsChange OnChange = EdColumnsChange
TabOrder = 8 TabOrder = 8
Value = 1 Value = 1
end end
object Label2: TLabel object Label2: TLabel
AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Control = CbShowSeriesIcon
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbCheckStyle AnchorSideTop.Control = CbCheckStyle
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 151 Left = 146
Height = 15 Height = 15
Top = 343 Top = 343
Width = 51 Width = 51
@ -308,6 +310,7 @@ object Form1: TForm1
Width = 245 Width = 245
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Keep sin and cos series out of ChartListBox' Caption = 'Keep sin and cos series out of ChartListBox'
OnChange = CbKeepSeriesOutChange OnChange = CbKeepSeriesOutChange
@ -344,25 +347,15 @@ object Form1: TForm1
OnClick = BtnAddPointClick OnClick = BtnAddPointClick
TabOrder = 11 TabOrder = 11
end end
object Bevel2: TBevel
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter
Left = 141
Height = 72
Top = 304
Width = 10
Shape = bsSpacer
end
end end
object RandomChartSource: TRandomChartSource object RandomChartSource: TRandomChartSource
PointsNumber = 10 PointsNumber = 10
RandSeed = 1603921857 RandSeed = 1603921857
XMax = 10 XMax = 10
XMin = 0
YMax = 1 YMax = 1
YMin = -1 YMin = -1
left = 496 Left = 496
top = 80 Top = 80
end end
object ColorDialog: TColorDialog object ColorDialog: TColorDialog
Color = clBlack Color = clBlack
@ -388,7 +381,7 @@ object Form1: TForm1
'ColorS=F0FBFF' 'ColorS=F0FBFF'
'ColorT=A4A0A0' 'ColorT=A4A0A0'
) )
left = 496 Left = 496
top = 128 Top = 128
end end
end end

1
components/tachart/demo/listbox/Unit1.pas
View File

@ -15,7 +15,6 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
Bevel2: TBevel;
BtnAddSeries: TButton; BtnAddSeries: TButton;
BtnDeleteSeries: TButton; BtnDeleteSeries: TButton;
BtnToggleCOS: TButton; BtnToggleCOS: TButton;