pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: More universal layout of JvCheckboxDemo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6984 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-30 23:17:24 +00:00
parent de35fdefc6
commit 1ab58715c4
1 changed files with 70 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
components/jvcllaz/examples/JvCheckBox/jvcheckboxdemounit.lfm
View File

@ -3,15 +3,21 @@ object Form1: TForm1
Height = 243
Top = 131
Width = 482
AutoSize = True
Caption = 'Form1'
ClientHeight = 243
ClientWidth = 482
LCLVersion = '2.1.0.0'
object JvCheckBox1: TJvCheckBox
Left = 24
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 16
Height = 19
Top = 16
Width = 318
BorderSpacing.Left = 16
BorderSpacing.Top = 16
BorderSpacing.Right = 16
Caption = 'Check/uncheck to enable/disable the controls in the box'
Checked = True
State = cbChecked
@ -37,66 +43,104 @@ object Form1: TForm1
end>
end
object Button2: TButton
Left = 376
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 322
Height = 25
Top = 16
Top = 51
Width = 75
BorderSpacing.Left = 12
BorderSpacing.Right = 16
Caption = 'Toggle'
OnClick = Button2Click
TabOrder = 1
end
object Panel1: TPanel
Left = 24
Height = 162
Top = 56
Width = 296
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = JvCheckBox1
AnchorSideTop.Side = asrBottom
Left = 16
Height = 158
Top = 51
Width = 290
AutoSize = True
BorderSpacing.Around = 16
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel1'
ClientHeight = 162
ClientWidth = 296
ClientHeight = 158
ClientWidth = 290
TabOrder = 2
object Button1: TButton
Left = 208
AnchorSideTop.Control = ComboBox1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ListBox1
AnchorSideRight.Side = asrBottom
Left = 212
Height = 25
Top = 128
Width = 75
Top = 124
Width = 68
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Button1'
TabOrder = 0
end
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrCenter
Left = 8
Left = 10
Height = 15
Top = 12
Width = 34
BorderSpacing.Left = 8
Caption = 'Label1'
ParentColor = False
end
object Edit1: TEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 56
Height = 23
Top = 8
Width = 112
BorderSpacing.Left = 12
BorderSpacing.Top = 6
TabOrder = 1
Text = 'Edit1'
end
object Memo1: TMemo
AnchorSideLeft.Control = Edit1
AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Edit1
AnchorSideRight.Side = asrBottom
Left = 56
Height = 82
Top = 40
Width = 114
Top = 37
Width = 112
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Lines.Strings = (
'Memo1'
)
TabOrder = 2
end
object ListBox1: TListBox
Left = 184
Height = 114
AnchorSideLeft.Control = Edit1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Edit1
AnchorSideBottom.Control = Memo1
AnchorSideBottom.Side = asrBottom
Left = 180
Height = 111
Top = 8
Width = 100
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 12
BorderSpacing.Right = 8
Items.Strings = (
'Item 1'
'Item 2'
@ -108,10 +152,18 @@ object Form1: TForm1
TabOrder = 3
end
object ComboBox1: TComboBox
AnchorSideLeft.Control = Edit1
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Edit1
AnchorSideRight.Side = asrBottom
Left = 56
Height = 23
Top = 130
Top = 125
Width = 112
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (