2021-11-28 20:16:49 +01:00
|
|
|
object DirectorySelectorFrm: TDirectorySelectorFrm
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
BorderIcons = [biSystemMenu]
|
|
|
|
BorderStyle = bsSingle
|
|
|
|
Caption = 'Select a directory'
|
|
|
|
ClientHeight = 441
|
|
|
|
ClientWidth = 317
|
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -12
|
|
|
|
Font.Name = 'Segoe UI'
|
|
|
|
Font.Style = []
|
|
|
|
Position = poScreenCenter
|
|
|
|
TextHeight = 15
|
|
|
|
object Panel1: TPanel
|
|
|
|
Left = 0
|
|
|
|
Top = 405
|
|
|
|
Width = 317
|
|
|
|
Height = 36
|
|
|
|
Align = alBottom
|
|
|
|
BevelOuter = bvNone
|
|
|
|
Padding.Left = 5
|
|
|
|
Padding.Top = 5
|
|
|
|
Padding.Right = 5
|
|
|
|
Padding.Bottom = 5
|
|
|
|
TabOrder = 0
|
2023-09-24 16:23:36 +02:00
|
|
|
ExplicitTop = 404
|
|
|
|
ExplicitWidth = 313
|
2021-11-28 20:16:49 +01:00
|
|
|
object OkBtn: TButton
|
|
|
|
Left = 5
|
|
|
|
Top = 5
|
|
|
|
Width = 120
|
|
|
|
Height = 26
|
|
|
|
Align = alLeft
|
|
|
|
Caption = 'Ok'
|
|
|
|
ModalResult = 1
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object CancelBtn: TButton
|
|
|
|
Left = 192
|
|
|
|
Top = 5
|
|
|
|
Width = 120
|
|
|
|
Height = 26
|
|
|
|
Align = alRight
|
|
|
|
Caption = 'Cancel'
|
|
|
|
ModalResult = 2
|
|
|
|
TabOrder = 1
|
2023-09-24 16:23:36 +02:00
|
|
|
ExplicitLeft = 188
|
2021-11-28 20:16:49 +01:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object Panel2: TPanel
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Width = 317
|
|
|
|
Height = 31
|
|
|
|
Align = alTop
|
|
|
|
BevelOuter = bvNone
|
|
|
|
Padding.Left = 5
|
|
|
|
Padding.Top = 5
|
|
|
|
Padding.Right = 5
|
|
|
|
Padding.Bottom = 5
|
|
|
|
TabOrder = 1
|
2023-09-24 16:23:36 +02:00
|
|
|
ExplicitWidth = 313
|
2021-11-28 20:16:49 +01:00
|
|
|
object DriveComboBox1: TDriveComboBox
|
|
|
|
Left = 5
|
|
|
|
Top = 5
|
|
|
|
Width = 307
|
|
|
|
Height = 21
|
|
|
|
Align = alClient
|
|
|
|
DirList = DirectoryListBox1
|
|
|
|
TabOrder = 0
|
2023-09-24 16:23:36 +02:00
|
|
|
ExplicitWidth = 303
|
2021-11-28 20:16:49 +01:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object Panel3: TPanel
|
|
|
|
Left = 0
|
|
|
|
Top = 31
|
|
|
|
Width = 317
|
|
|
|
Height = 374
|
|
|
|
Align = alClient
|
|
|
|
BevelOuter = bvNone
|
|
|
|
Padding.Left = 5
|
|
|
|
Padding.Right = 5
|
|
|
|
TabOrder = 2
|
2023-09-24 16:23:36 +02:00
|
|
|
ExplicitWidth = 313
|
|
|
|
ExplicitHeight = 373
|
2021-11-28 20:16:49 +01:00
|
|
|
object DirectoryListBox1: TDirectoryListBox
|
|
|
|
Left = 5
|
|
|
|
Top = 0
|
|
|
|
Width = 307
|
|
|
|
Height = 374
|
|
|
|
Align = alClient
|
|
|
|
TabOrder = 0
|
2023-09-24 16:23:36 +02:00
|
|
|
ExplicitWidth = 303
|
|
|
|
ExplicitHeight = 373
|
2021-11-28 20:16:49 +01:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|