lazarus/ideintf/checklistboxeditordlg.lfm
paul 9cff00c297 checklistbox editor:
- show toolbutton hints
- handle enabled state of toolbuttons

git-svn-id: trunk@13362 -
2007-12-18 01:58:35 +00:00

167 lines
3.7 KiB
Plaintext

object CheckListBoxEditorDlg: TCheckListBoxEditorDlg
Left = 316
Height = 294
Top = 154
Width = 445
HorzScrollBar.Page = 444
VertScrollBar.Page = 293
ActiveControl = FCheck
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'CheckListBoxEditorDlg'
ClientHeight = 294
ClientWidth = 445
Constraints.MinHeight = 100
Constraints.MinWidth = 200
OnCreate = FormCreate
Position = poScreenCenter
object FCheck: TCheckListBox
Height = 234
Top = 24
Width = 445
Align = alClient
OnClick = FCheckClick
TabOrder = 0
end
object FPanelOKCancel: TPanel
Height = 36
Top = 258
Width = 445
Align = alBottom
BevelInner = bvLowered
ClientHeight = 36
ClientWidth = 445
TabOrder = 1
object BtnHelp: TBitBtn
AnchorSideRight.Control = FPanelOKCancel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FPanelOKCancel
AnchorSideBottom.Side = asrBottom
Left = 364
Height = 25
Top = 5
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Caption = '&Help'
Kind = bkHelp
NumGlyphs = 0
TabOrder = 0
end
object BtnApply: TBitBtn
AnchorSideRight.Control = BtnHelp
AnchorSideBottom.Control = FPanelOKCancel
AnchorSideBottom.Side = asrBottom
Left = 283
Height = 25
Top = 5
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Caption = '&Apply'
NumGlyphs = 0
OnClick = ApplyCheck
TabOrder = 1
end
object BtnCancel: TBitBtn
AnchorSideRight.Control = BtnApply
AnchorSideBottom.Control = FPanelOKCancel
AnchorSideBottom.Side = asrBottom
Left = 202
Height = 25
Top = 5
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 2
end
object BtnOK: TBitBtn
AnchorSideRight.Control = BtnCancel
AnchorSideBottom.Control = FPanelOKCancel
AnchorSideBottom.Side = asrBottom
Left = 121
Height = 25
Top = 5
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 3
end
end
object ToolBar: TToolBar
Height = 24
Width = 445
AutoSize = True
Caption = 'ToolBar'
Flat = True
TabOrder = 2
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'
Enabled = False
ParentShowHint = False
ShowHint = True
OnClick = DeleteItem
end
object ToolButton3: TToolButton
Left = 47
Top = 2
Width = 9
Caption = 'ToolButton3'
Style = tbsDivider
end
object tbUp: TToolButton
Left = 56
Top = 2
Caption = 'tbUp'
Enabled = False
ParentShowHint = False
ShowHint = True
OnClick = MoveUpItem
end
object tbDown: TToolButton
Left = 79
Top = 2
Caption = 'tbDown'
Enabled = False
ParentShowHint = False
ShowHint = True
OnClick = MoveDownItem
end
object ToolButton6: TToolButton
Left = 102
Top = 2
Width = 10
Caption = 'ToolButton6'
Style = tbsDivider
end
object tbEdit: TToolButton
Left = 112
Top = 2
Caption = 'tbEdit'
Enabled = False
ParentShowHint = False
ShowHint = True
OnClick = ModifyItem
end
end
end