lazarus/ideintf/checkgroupeditordlg.lfm
paul 31b6def3f0 ide:
- correct hints of CheckListBox editor
- improve look and feel of CheckGroup editor

git-svn-id: trunk@15327 -
2008-06-06 02:36:55 +00:00

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