1
0
mirror of https://github.com/winscp/winscp.git synced 2026-10-24 02:28:55 +03:00
Files
winscp/source/forms/CustomScpExplorer.dfm
Martin Prikryl 49d44c3244 Bug fix: Scaling was broken by 9485cb3f
Enabling ParentFont for forms in BCB11 broke scaling. VCL does not enable ParentFont for new forms either. Also with ParentFont enabled, designing on scaled display does not work correctly.

Source commit: c725084391e00822c953479b6426cf007914b711
2025-03-27 12:27:53 +01:00

437 lines
13 KiB
Plaintext

object CustomScpExplorerForm: TCustomScpExplorerForm
Left = 251
Top = 166
Caption = 'CustomScpExplorerForm'
ClientHeight = 429
ClientWidth = 608
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
KeyPreview = True
OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnConstrainedResize = FormConstrainedResize
OnShow = FormShow
TextHeight = 15
object QueueSplitter: TSplitter
Left = 0
Top = 286
Width = 608
Height = 3
Cursor = crSizeNS
Hint = 'Drag to resize queue list. Double click to hide queue list.'
Align = alBottom
AutoSnap = False
MinSize = 70
ResizeStyle = rsUpdate
OnCanResize = QueueSplitterCanResize
end
object TopDock: TTBXDock
Left = 0
Top = 0
Width = 608
Height = 9
FixAlign = True
end
object RemotePanel: TPanel
Left = 0
Top = 39
Width = 608
Height = 247
Align = alClient
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 0
object RemotePanelSplitter: TSplitter
Left = 169
Top = 0
Height = 228
Cursor = crSizeWE
AutoSnap = False
MinSize = 70
ResizeStyle = rsUpdate
end
object RemoteStatusBar: TTBXStatusBar
Left = 0
Top = 228
Width = 608
Height = 19
Panels = <>
ParentShowHint = False
ShowHint = True
UseSystemFont = False
OnClick = RemoteStatusBarClick
OnMouseDown = RemoteStatusBarMouseDown
end
object RemoteDirPanel: TPanel
Left = 172
Top = 0
Width = 436
Height = 228
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object RemoteDirView: TUnixDirView
Left = 0
Top = 0
Width = 448
Height = 231
Align = alClient
DoubleBuffered = True
FullDrag = True
HideSelection = False
IconOptions.AutoArrange = True
ParentDoubleBuffered = False
PopupMenu = NonVisualDataModule.RemoteDirViewPopup
TabOrder = 0
OnColumnRightClick = DirViewColumnRightClick
OnEditing = DirViewEditing
OnEnter = RemoteDirViewEnter
OnExit = DirViewExit
OnKeyDown = DirViewKeyDown
OnKeyPress = DirViewKeyPress
OnResize = RemoteDirViewResize
NortonLike = nlOff
UnixColProperties.ExtWidth = 20
UnixColProperties.TypeVisible = False
OnDDDragFileName = RemoteFileControlDDDragFileName
OnBusy = DirViewBusy
OnChangeFocus = DirViewChangeFocus
OnSelectItem = DirViewSelectItem
OnStartLoading = RemoteDirViewStartLoading
OnLoaded = DirViewLoaded
OnExecFile = DirViewExecFile
OnMatchMask = DirViewMatchMask
OnGetOverlay = DirViewGetOverlay
OnDDDragEnter = FileControlDDDragEnter
OnDDDragLeave = FileControlDDDragLeave
OnDDQueryContinueDrag = RemoteFileControlDDQueryContinueDrag
OnDDGiveFeedback = RemoteFileControlDDGiveFeedback
OnDDChooseEffect = RemoteFileContolDDChooseEffect
OnDDDragDetect = RemoteFileControlDDDragDetect
OnDDEnd = RemoteFileControlDDEnd
OnDDCreateDragFileList = RemoteFileControlDDCreateDragFileList
OnDDFileOperation = RemoteFileControlDDFileOperation
OnDDCreateDataObject = RemoteFileControlDDCreateDataObject
OnContextPopup = RemoteDirViewContextPopup
OnHistoryChange = DirViewHistoryChange
OnDisplayProperties = RemoteDirViewDisplayProperties
DirViewStyle = dvsReport
OnRead = RemoteDirViewRead
OnStartReading = RemoteDirViewStartReading
OnThumbnailNeeded = RemoteDirViewThumbnailNeeded
end
object ReconnectToolbar: TTBXToolbar
Left = 136
Top = 112
Width = 107
Height = 21
Caption = 'ReconnectToolbar'
Images = GlyphsModule.ExplorerImages
Options = [tboShowHint]
ParentShowHint = False
ShowHint = True
TabOrder = 1
object TBXItem254: TTBXItem
Action = NonVisualDataModule.ReconnectSessionAction
end
end
end
object RemoteDrivePanel: TPanel
Left = 0
Top = 0
Width = 169
Height = 228
Align = alLeft
BevelOuter = bvNone
TabOrder = 2
object RemoteDriveView: TUnixDriveView
Left = 0
Top = 0
Width = 169
Height = 228
DirView = RemoteDirView
OnDDDragFileName = RemoteFileControlDDDragFileName
OnDDEnd = RemoteFileControlDDEnd
UseSystemContextMenu = False
OnDDDragEnter = FileControlDDDragEnter
OnDDDragLeave = FileControlDDDragLeave
OnDDQueryContinueDrag = RemoteFileControlDDQueryContinueDrag
OnDDChooseEffect = RemoteFileContolDDChooseEffect
OnDDGiveFeedback = RemoteFileControlDDGiveFeedback
OnDDDragDetect = RemoteFileControlDDDragDetect
OnDDFileOperation = RemoteFileControlDDFileOperation
OnDDCreateDragFileList = RemoteFileControlDDCreateDragFileList
OnDDCreateDataObject = RemoteFileControlDDCreateDataObject
Align = alClient
DoubleBuffered = True
HideSelection = False
Indent = 19
ParentColor = False
ParentDoubleBuffered = False
ReadOnly = True
TabOrder = 0
OnEnter = RemoteDriveViewEnter
OnBusy = DirViewBusy
end
end
end
object QueuePanel: TPanel
Left = 0
Top = 289
Width = 608
Height = 140
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object QueueLabel: TPathLabel
Left = 0
Top = 0
Width = 620
Height = 21
IndentVertical = 3
AutoSizeVertical = True
OnGetStatus = QueueLabelGetStatus
AutoSize = False
Transparent = False
end
object QueueFileListSplitter: TSplitter
Left = 0
Top = 117
Width = 620
Height = 3
Cursor = crSizeNS
Hint =
'Drag to resize queue file list. Double click to hide queue file ' +
'list.'
Align = alBottom
AutoSnap = False
MinSize = 10
ResizeStyle = rsUpdate
OnCanResize = QueueFileListSplitterCanResize
end
object QueueView3: TListView
Left = 0
Top = 47
Width = 620
Height = 70
Align = alClient
Columns = <
item
Caption = 'Operation'
MinWidth = 20
Width = 70
end
item
Caption = 'Source'
MinWidth = 20
Width = 170
end
item
Caption = 'Destination'
MinWidth = 20
Width = 170
end
item
Alignment = taRightJustify
Caption = 'Transferred'
MinWidth = 20
Width = 80
end
item
Alignment = taRightJustify
Caption = 'Time'
MinWidth = 20
Width = 80
end
item
Alignment = taRightJustify
Caption = 'Speed'
MinWidth = 20
Width = 80
end
item
Alignment = taCenter
Caption = 'Progress'
MinWidth = 20
Width = 80
end>
ColumnClick = False
DoubleBuffered = True
DragMode = dmAutomatic
ReadOnly = True
RowSelect = True
ParentDoubleBuffered = False
PopupMenu = NonVisualDataModule.QueuePopup
SmallImages = GlyphsModule.QueueImages
StateImages = GlyphsModule.QueueImages
TabOrder = 0
ViewStyle = vsReport
OnChange = QueueView3Change
OnContextPopup = QueueView3ContextPopup
OnDeletion = QueueView3Deletion
OnEndDrag = QueueView3EndDrag
OnEnter = QueueView3Enter
OnExit = QueueView3Exit
OnDragDrop = QueueView3DragDrop
OnDragOver = QueueView3DragOver
OnSelectItem = QueueView3SelectItem
OnStartDrag = QueueView3StartDrag
end
object QueueDock: TTBXDock
Tag = 1
Left = 0
Top = 21
Width = 620
Height = 26
AllowDrag = False
object QueueToolbar: TTBXToolbar
Left = 0
Top = 0
Caption = 'QueueToolbar'
Images = GlyphsModule.ExplorerImages
Options = [tboShowHint]
ParentShowHint = False
ShowHint = True
TabOrder = 0
object QueueEnableItem: TTBXItem
Action = NonVisualDataModule.QueueEnableAction
end
object TBXSeparatorItem203: TTBXSeparatorItem
end
object TBXItem201: TTBXItem
Action = NonVisualDataModule.QueueItemQueryAction
end
object TBXItem202: TTBXItem
Action = NonVisualDataModule.QueueItemErrorAction
end
object TBXItem203: TTBXItem
Action = NonVisualDataModule.QueueItemPromptAction
end
object TBXItem204: TTBXItem
Action = NonVisualDataModule.QueueItemExecuteAction
end
object TBXItem195: TTBXItem
Action = NonVisualDataModule.QueueItemPauseAction
end
object TBXItem194: TTBXItem
Action = NonVisualDataModule.QueueItemResumeAction
end
object TBXItem205: TTBXItem
Action = NonVisualDataModule.QueueItemDeleteAction
end
object TBXSeparatorItem201: TTBXSeparatorItem
end
object TBXItem206: TTBXItem
Action = NonVisualDataModule.QueueItemUpAction
end
object TBXItem207: TTBXItem
Action = NonVisualDataModule.QueueItemDownAction
end
object TBXSeparatorItem57: TTBXSeparatorItem
end
object QueueDeleteAllDoneQueueToolbarItem: TTBXItem
Action = NonVisualDataModule.QueueDeleteAllDoneAction
end
object TBXSeparatorItem202: TTBXSeparatorItem
end
object TBXSubmenuItem27: TTBXSubmenuItem
Action = NonVisualDataModule.QueueCycleOnceEmptyAction
DropdownCombo = True
object TBXItem211: TTBXItem
Action = NonVisualDataModule.QueueIdleOnceEmptyAction
RadioItem = True
end
object TBXItem225: TTBXItem
Action = NonVisualDataModule.QueueDisconnectOnceEmptyAction2
RadioItem = True
end
object TBXItem173: TTBXItem
Action = NonVisualDataModule.QueueSuspendOnceEmptyAction2
RadioItem = True
end
object TBXItem226: TTBXItem
Action = NonVisualDataModule.QueueShutDownOnceEmptyAction2
RadioItem = True
end
end
object TBXItem208: TTBXItem
Action = NonVisualDataModule.QueuePreferencesAction
end
end
end
object QueueFileList: TListView
Left = 0
Top = 120
Width = 620
Height = 20
Align = alBottom
Columns = <
item
end>
DoubleBuffered = True
OwnerData = True
ReadOnly = True
ParentDoubleBuffered = False
ShowColumnHeaders = False
TabOrder = 2
TabStop = False
ViewStyle = vsReport
OnCustomDrawItem = QueueFileListCustomDrawItem
OnData = QueueFileListData
OnEnter = QueueFileListEnterExit
OnExit = QueueFileListEnterExit
OnResize = QueueFileListResize
end
end
object SessionsPageControl: TThemePageControl
Left = 0
Top = 18
Width = 608
Height = 21
ActivePage = TabSheet1
Align = alTop
DoubleBuffered = True
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabStop = False
OnChange = SessionsPageControlChange
OnContextPopup = SessionsPageControlContextPopup
OnDragDrop = SessionsPageControlDragDrop
OnDragOver = SessionsPageControlDragOver
OnMouseDown = SessionsPageControlMouseDown
OnResize = SessionsPageControlResize
OnTabButtonClick = SessionsPageControlTabButtonClick
OnTabHint = SessionsPageControlTabHint
object TabSheet1: TThemeTabSheet
Caption = 'TabSheet1'
end
end
object MessageDock: TTBXDock
Tag = 1
Left = 0
Top = 9
Width = 608
Height = 9
AllowDrag = False
FixAlign = True
Visible = False
OnRequestDock = MessageDockRequestDock
end
object ApplicationEvents: TApplicationEvents
OnDeactivate = ApplicationEventsDeactivate
OnMinimize = ApplicationMinimize
OnModalBegin = ApplicationEventsModalBegin
OnRestore = ApplicationRestore
Left = 88
Top = 200
end
end