mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-05 00:57:23 +01:00
- correct hints of CheckListBox editor - improve look and feel of CheckGroup editor git-svn-id: trunk@15327 -
243 lines
5.6 KiB
Plaintext
243 lines
5.6 KiB
Plaintext
object CheckGroupEditorDlg: TCheckGroupEditorDlg
|
|
Left = 394
|
|
Height = 300
|
|
Top = 195
|
|
Width = 608
|
|
HorzScrollBar.Page = 607
|
|
VertScrollBar.Page = 299
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsDialog
|
|
Caption = 'CheckGroupEditorDlg'
|
|
ClientHeight = 300
|
|
ClientWidth = 608
|
|
OnCreate = FormCreate
|
|
LCLVersion = '0.9.25'
|
|
object ColumnsLabel: TLabel
|
|
Left = 369
|
|
Height = 14
|
|
Top = 80
|
|
Width = 66
|
|
Caption = 'ColumnsLabel'
|
|
ParentColor = False
|
|
end
|
|
object FCheck: TCheckGroup
|
|
Height = 236
|
|
Top = 26
|
|
Width = 360
|
|
Align = alLeft
|
|
AutoFill = True
|
|
Caption = 'FCheck'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
OnItemClick = ItemClick
|
|
PopupMenu = FPopupMenu
|
|
TabOrder = 0
|
|
end
|
|
object FPanelOKCancel: TPanel
|
|
Height = 38
|
|
Top = 262
|
|
Width = 608
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelInner = bvLowered
|
|
ClientHeight = 38
|
|
ClientWidth = 608
|
|
TabOrder = 1
|
|
object BtnHelp: TBitBtn
|
|
AnchorSideTop.Control = FPanelOKCancel
|
|
AnchorSideRight.Control = FPanelOKCancel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = FPanelOKCancel
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 512
|
|
Height = 26
|
|
Top = 6
|
|
Width = 90
|
|
Anchors = [akTop, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&Help'
|
|
Constraints.MinWidth = 90
|
|
Kind = bkHelp
|
|
NumGlyphs = 0
|
|
TabOrder = 0
|
|
end
|
|
object BtnApply: TBitBtn
|
|
AnchorSideTop.Control = FPanelOKCancel
|
|
AnchorSideRight.Control = BtnHelp
|
|
AnchorSideBottom.Control = FPanelOKCancel
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 416
|
|
Height = 26
|
|
Top = 6
|
|
Width = 90
|
|
Anchors = [akTop, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&Apply'
|
|
Constraints.MinWidth = 90
|
|
NumGlyphs = 0
|
|
OnClick = ApplyCheck
|
|
TabOrder = 1
|
|
end
|
|
object BtnCancel: TBitBtn
|
|
AnchorSideTop.Control = FPanelOKCancel
|
|
AnchorSideRight.Control = BtnApply
|
|
AnchorSideBottom.Control = FPanelOKCancel
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 320
|
|
Height = 26
|
|
Top = 6
|
|
Width = 90
|
|
Anchors = [akTop, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Cancel'
|
|
Constraints.MinWidth = 90
|
|
Kind = bkCancel
|
|
ModalResult = 2
|
|
NumGlyphs = 0
|
|
TabOrder = 2
|
|
end
|
|
object BtnOK: TBitBtn
|
|
AnchorSideTop.Control = FPanelOKCancel
|
|
AnchorSideRight.Control = BtnCancel
|
|
AnchorSideBottom.Control = FPanelOKCancel
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 224
|
|
Height = 26
|
|
Top = 6
|
|
Width = 90
|
|
Anchors = [akTop, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&OK'
|
|
Constraints.MinWidth = 90
|
|
Default = True
|
|
Kind = bkOK
|
|
ModalResult = 1
|
|
NumGlyphs = 0
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object DuplicateCheckBox: TCheckBox
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 368
|
|
Height = 19
|
|
Top = 48
|
|
Width = 234
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Right = 6
|
|
Caption = 'DuplicateCheckBox'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
end
|
|
object ColumnsEdit: TEdit
|
|
Left = 368
|
|
Height = 23
|
|
Top = 97
|
|
Width = 34
|
|
Color = clBtnFace
|
|
OnChange = ColumnsEditChange
|
|
OnKeyDown = nil
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
Text = '1'
|
|
end
|
|
object ColumnsUpDown: TUpDown
|
|
Left = 402
|
|
Height = 23
|
|
Top = 97
|
|
Width = 17
|
|
Associate = ColumnsEdit
|
|
Min = 1
|
|
Position = 1
|
|
TabOrder = 4
|
|
end
|
|
object ToolBar: TToolBar
|
|
Height = 26
|
|
Width = 608
|
|
Caption = 'ToolBar'
|
|
Flat = True
|
|
TabOrder = 5
|
|
object tbAdd: TToolButton
|
|
Left = 1
|
|
Top = 2
|
|
Caption = 'tbAdd'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = AddItem
|
|
end
|
|
object tbDelete: TToolButton
|
|
Left = 24
|
|
Top = 2
|
|
Caption = 'tbDelete'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = DeleteItem
|
|
end
|
|
object ToolButton3: TToolButton
|
|
Left = 47
|
|
Top = 2
|
|
Width = 3
|
|
Caption = 'ToolButton3'
|
|
Style = tbsDivider
|
|
end
|
|
object tbUp: TToolButton
|
|
Left = 50
|
|
Top = 2
|
|
Caption = 'tbUp'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = MoveUpItem
|
|
end
|
|
object tbDown: TToolButton
|
|
Left = 73
|
|
Top = 2
|
|
Caption = 'tbDown'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = MoveDownItem
|
|
end
|
|
object ToolButton6: TToolButton
|
|
Left = 96
|
|
Top = 2
|
|
Width = 3
|
|
Caption = 'ToolButton6'
|
|
Style = tbsDivider
|
|
end
|
|
object tbEdit: TToolButton
|
|
Left = 99
|
|
Top = 2
|
|
Caption = 'tbEdit'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = ModifyItem
|
|
end
|
|
object LabelDisable: TLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 122
|
|
Height = 22
|
|
Top = 2
|
|
Width = 60
|
|
Caption = 'LabelDisable'
|
|
Font.Color = clHotLight
|
|
ParentColor = False
|
|
end
|
|
end
|
|
object FPopupMenu: TPopupMenu
|
|
OnPopup = CreateItems
|
|
left = 480
|
|
top = 145
|
|
end
|
|
end
|