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