Files
HeidiSQL/source/extfiledialog.lfm
Ansgar Becker ec4c237cae fix: work around out-of-view item in left tree after FormShow
Also, remove error dialog when InitialDir is an invalid path. Climb up path until it's valid.

Refs #2268
2025-11-28 15:24:03 +01:00

231 lines
5.8 KiB
Plaintext

object frmExtFileDialog: TfrmExtFileDialog
Left = 306
Height = 544
Top = 123
Width = 872
BorderIcons = [biSystemMenu]
Caption = 'Open existing file'
ClientHeight = 544
ClientWidth = 872
DesignTimePPI = 120
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
object pnlBottom: TPanel
Left = 10
Height = 68
Top = 466
Width = 852
Align = alBottom
AutoSize = True
BorderSpacing.Around = 10
BevelOuter = bvNone
ClientHeight = 68
ClientWidth = 852
TabOrder = 2
object editFilename: TEdit
AnchorSideLeft.Control = lblFilename
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlBottom
AnchorSideRight.Control = comboFileType
Left = 73
Height = 28
Top = 0
Width = 549
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 10
TabOrder = 0
Text = 'editFilename'
end
object lblFilename: TLabel
AnchorSideLeft.Control = pnlBottom
AnchorSideTop.Control = editFilename
AnchorSideTop.Side = asrCenter
Left = 0
Height = 20
Top = 4
Width = 63
BorderSpacing.Right = 10
Caption = 'Filename:'
end
object comboFileType: TComboBox
AnchorSideLeft.Control = btnOk
AnchorSideTop.Control = pnlBottom
AnchorSideRight.Control = pnlBottom
AnchorSideRight.Side = asrBottom
Left = 632
Height = 28
Top = 0
Width = 220
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 10
ItemHeight = 20
Items.Strings = (
''
)
Style = csDropDownList
TabOrder = 1
OnChange = comboFileTypeChange
end
object btnOk: TButton
AnchorSideLeft.Control = pnlBottom
AnchorSideTop.Control = comboFileType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnCancel
AnchorSideBottom.Control = pnlBottom
AnchorSideBottom.Side = asrBottom
Left = 632
Height = 30
Top = 38
Width = 105
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 10
Caption = 'OK'
Constraints.MinWidth = 105
Default = True
ModalResult = 1
TabOrder = 2
end
object btnCancel: TButton
AnchorSideTop.Control = comboFileType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlBottom
AnchorSideRight.Side = asrBottom
Left = 747
Height = 30
Top = 38
Width = 105
Anchors = [akTop, akRight]
AutoSize = True
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 105
ModalResult = 2
TabOrder = 3
end
object comboEncoding: TComboBox
AnchorSideTop.Control = comboFileType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnOk
Left = 402
Height = 28
Top = 38
Width = 220
Anchors = [akTop, akRight]
BorderSpacing.Right = 10
ItemHeight = 20
Style = csDropDownList
TabOrder = 4
Visible = False
OnChange = comboEncodingChange
end
object lblEncoding: TLabel
AnchorSideTop.Control = comboEncoding
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = comboEncoding
Left = 327
Height = 20
Top = 42
Width = 65
Anchors = [akTop, akRight]
BorderSpacing.Right = 10
Caption = 'Encoding:'
Visible = False
end
object comboLineBreaks: TComboBox
AnchorSideTop.Control = comboFileType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblEncoding
Left = 117
Height = 28
Top = 38
Width = 200
Anchors = [akTop, akRight]
BorderSpacing.Right = 10
ItemHeight = 20
Style = csDropDownList
TabOrder = 5
Visible = False
OnChange = comboLineBreaksChange
end
object lblLinebreaks: TLabel
AnchorSideTop.Control = comboLineBreaks
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = comboLineBreaks
Left = 34
Height = 20
Top = 42
Width = 73
Anchors = [akTop, akRight]
BorderSpacing.Right = 10
Caption = 'Linebreaks:'
Visible = False
end
end
object ShellTreeView: TShellTreeView
AnchorSideTop.Control = lblPath
AnchorSideTop.Side = asrBottom
Left = 10
Height = 416
Top = 40
Width = 261
Align = alLeft
BorderSpacing.Left = 10
HideSelection = False
TabOrder = 0
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders, otHidden]
ShellListView = ShellListView
OnChange = ShellTreeViewChange
OnChanging = ShellTreeViewChanging
end
object splitterMain: TSplitter
Left = 271
Height = 416
Top = 40
Width = 6
end
object ShellListView: TShellListView
AnchorSideTop.Control = lblPath
AnchorSideTop.Side = asrBottom
Left = 277
Height = 416
Top = 40
Width = 585
Align = alClient
BorderSpacing.Right = 10
Color = clDefault
SortType = stText
TabOrder = 1
ObjectTypes = [otNonFolders, otHidden]
ShellTreeView = ShellTreeView
OnClick = ShellListViewClick
OnDblClick = ShellListViewDblClick
OnSelectItem = ShellListViewSelectItem
end
object lblPath: TLabel
Cursor = crHandPoint
Left = 10
Height = 20
Top = 10
Width = 852
Align = alTop
BorderSpacing.Around = 10
Caption = 'lblPath'
ParentShowHint = False
ShowHint = True
OnClick = lblPathClick
OnMouseDown = lblPathMouseDown
OnMouseMove = lblPathMouseMove
end
object IdleTimerTreeNodeScrolltoview: TIdleTimer
AutoEnabled = True
Interval = 100
OnTimer = IdleTimerTreeNodeScrolltoviewTimer
Left = 32
Top = 64
end
end