lazarus/ide/patheditordlg.lfm
juha 7a5b56c83e IDE: improve TPathEditorDialog behavior
git-svn-id: trunk@38906 -
2012-09-29 17:36:48 +00:00

259 lines
6.8 KiB
Plaintext

object PathEditorDialog: TPathEditorDialog
Left = 420
Height = 446
Top = 156
Width = 553
AutoSize = True
Caption = 'PathEditorDialog'
ClientHeight = 446
ClientWidth = 553
Constraints.MinHeight = 400
Constraints.MinWidth = 500
OnCreate = FormCreate
OnResize = FormResize
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.1'
object PathGroupBox: TGroupBox
Left = 6
Height = 216
Top = 6
Width = 541
Align = alClient
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'PathGroupBox'
ClientHeight = 195
ClientWidth = 533
Constraints.MinHeight = 194
Constraints.MinWidth = 488
TabOrder = 0
object MoveUpButton: TBitBtn
AnchorSideLeft.Control = PathGroupBox
AnchorSideRight.Control = PathGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom
Left = 502
Height = 25
Top = 45
Width = 25
Anchors = [akRight]
BorderSpacing.Around = 6
GlyphShowMode = gsmAlways
OnClick = MoveUpButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object MoveDownButton: TBitBtn
AnchorSideLeft.Control = MoveUpButton
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = MoveUpButton
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom
Left = 502
Height = 25
Top = 84
Width = 25
BorderSpacing.Around = 14
GlyphShowMode = gsmAlways
OnClick = MoveDownButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object DeleteButton: TBitBtn
AnchorSideLeft.Control = AddButton
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom
Left = 206
Height = 28
Top = 161
Width = 99
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'DeleteButton'
Enabled = False
OnClick = DeleteButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object PathListBox: TListBox
AnchorSideLeft.Control = PathGroupBox
AnchorSideTop.Control = PathGroupBox
AnchorSideRight.Control = MoveUpButton
Left = 6
Height = 127
Top = 6
Width = 490
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
OnDrawItem = PathListBoxDrawItem
OnKeyDown = PathListBoxKeyDown
OnSelectionChange = PathListBoxSelectionChange
Style = lbOwnerDrawFixed
TabOrder = 0
end
object ReplaceButton: TBitBtn
AnchorSideLeft.Control = PathGroupBox
AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 28
Top = 161
Width = 106
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ReplaceButton'
Enabled = False
OnClick = ReplaceButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object AddButton: TBitBtn
AnchorSideLeft.Control = ReplaceButton
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom
Left = 118
Height = 28
Top = 161
Width = 82
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'AddButton'
Enabled = False
OnClick = AddButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object DeleteInvalidPathsButton: TBitBtn
AnchorSideLeft.Control = DeleteButton
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = PathGroupBox
AnchorSideBottom.Side = asrBottom
Left = 311
Height = 28
Top = 161
Width = 174
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'DeleteInvalidPathsButton'
Enabled = False
OnClick = DeleteInvalidPathsButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
object DirectoryEdit: TShortPathEdit
AnchorSideRight.Control = PathListBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ReplaceButton
Left = 6
Height = 25
Top = 130
Width = 490
OnAcceptDirectory = DirectoryEditAcceptDirectory
ShowHidden = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akLeft, akRight, akBottom]
MaxLength = 0
TabOrder = 3
OnChange = DirectoryEditChange
end
end
object TemplateGroupBox: TGroupBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 164
Top = 239
Width = 541
Align = alBottom
Anchors = []
BorderSpacing.Around = 6
Caption = 'TemplateGroupBox'
ClientHeight = 143
ClientWidth = 533
TabOrder = 1
object TemplatesListBox: TListBox
AnchorSideLeft.Control = TemplateGroupBox
AnchorSideTop.Control = TemplateGroupBox
AnchorSideRight.Control = TemplateGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = AddTemplateButton
Left = 6
Height = 97
Top = 6
Width = 521
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
MultiSelect = True
OnDblClick = TemplatesListBoxDblClick
OnSelectionChange = TemplatesListBoxSelectionChange
TabOrder = 0
end
object AddTemplateButton: TBitBtn
AnchorSideLeft.Control = TemplateGroupBox
AnchorSideBottom.Control = TemplateGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 28
Top = 109
Width = 140
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'AddTemplateButton'
OnClick = AddTemplateButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 31
Top = 409
Width = 541
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 228
Width = 553
Align = alBottom
ResizeAnchor = akBottom
end
object BrowseDialog: TSelectDirectoryDialog
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 504
top = 32
end
end