lazarus/components/onlinepackagemanager/opkman_optionsfrm.lfm
2019-06-06 10:02:56 +00:00

961 lines
30 KiB
Plaintext

object OptionsFrm: TOptionsFrm
Left = 338
Height = 597
Top = 131
Width = 644
BorderIcons = [biSystemMenu]
Caption = 'Options'
ClientHeight = 597
ClientWidth = 644
Constraints.MinHeight = 300
Constraints.MinWidth = 475
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyPress = FormKeyPress
PopupMode = pmExplicit
Position = poOwnerFormCenter
LCLVersion = '2.1.0.0'
object pnBottom: TPanel
Left = 0
Height = 46
Top = 551
Width = 644
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 46
ClientWidth = 644
TabOrder = 1
object bpOptions: TButtonPanel
Left = 6
Height = 34
Top = 6
Width = 632
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Restore defaults'
HelpButton.DefaultCaption = False
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel, pbHelp]
end
end
object pgOptions: TPageControl
Left = 6
Height = 539
Top = 6
Width = 632
ActivePage = tsGeneral
Align = alClient
BorderSpacing.Around = 6
TabIndex = 0
TabOrder = 0
object tsGeneral: TTabSheet
Caption = 'General'
ClientHeight = 511
ClientWidth = 624
object pnGeneral: TPanel
Left = 0
Height = 511
Top = 0
Width = 624
Align = alClient
BevelOuter = bvNone
ClientHeight = 511
ClientWidth = 624
ParentColor = False
TabOrder = 0
object lbRemoteRepository: TLabel
AnchorSideLeft.Control = pnGeneral
Left = 6
Height = 15
Top = 8
Width = 100
BorderSpacing.Left = 6
Caption = 'Remote repository:'
ParentColor = False
end
object cbForceDownloadExtract: TCheckBox
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = pnRepositories
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 56
Width = 235
BorderSpacing.Top = 6
Caption = ' Force download and extract of packages'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object cbDeleteZipAfterInstall: TCheckBox
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = cbForceDownloadExtract
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 77
Width = 294
BorderSpacing.Top = 2
Caption = 'Delete downloaded zip files after installation/update'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object lbUpdates: TLabel
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = Bevel1
Left = 6
Height = 15
Top = 199
Width = 146
BorderSpacing.Top = 5
Caption = 'Check for package updates:'
ParentColor = False
end
object cbCheckForUpdates: TComboBox
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = lbUpdates
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 220
Width = 209
BorderSpacing.Top = 6
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Every few minutes'
'Every hour '
'Once per day'
'Weekly'
'Montly'
'Never'
)
Style = csDropDownList
TabOrder = 4
Text = 'Every few minutes'
end
object lbLastUpdate: TLabel
AnchorSideLeft.Control = cbCheckForUpdates
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCheckForUpdates
AnchorSideTop.Side = asrCenter
Left = 230
Height = 15
Top = 224
Width = 64
BorderSpacing.Left = 15
Caption = 'Last update:'
ParentColor = False
end
object pnRepositories: TPanel
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = lbRemoteRepository
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnGeneral
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 27
Width = 612
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
BorderSpacing.Right = 6
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 612
TabOrder = 0
object cbRemoteRepository: TComboBox
AnchorSideLeft.Control = pnRepositories
AnchorSideTop.Control = pnRepositories
AnchorSideRight.Control = bOpen
Left = 0
Height = 23
Top = 0
Width = 587
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 2
ItemHeight = 15
Style = csDropDownList
TabOrder = 0
end
object bOpen: TButton
AnchorSideLeft.Control = cbRemoteRepository
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbRemoteRepository
AnchorSideRight.Control = pnRepositories
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbRemoteRepository
AnchorSideBottom.Side = asrBottom
Left = 589
Height = 23
Top = 0
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = bOpenClick
TabOrder = 1
end
end
object lbDaysToShowNewPackages: TLabel
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = cbCheckForUpdates
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 258
Width = 204
BorderSpacing.Top = 15
Caption = 'Show newly added packages for(days):'
ParentColor = False
end
object spDaysToShowNewPackages: TSpinEdit
AnchorSideLeft.Control = lbDaysToShowNewPackages
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbDaysToShowNewPackages
AnchorSideTop.Side = asrCenter
Left = 216
Height = 23
Top = 254
Width = 76
BorderSpacing.Left = 6
MaxValue = 365
TabOrder = 5
Value = 31
end
object cbRegularIcons: TCheckBox
AnchorSideLeft.Control = lbDaysToShowNewPackages
AnchorSideTop.Control = lbDaysToShowNewPackages
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 283
Width = 232
BorderSpacing.Top = 10
Caption = 'Show regular icon for installed packages'
TabOrder = 6
end
object cbUseDefaultTheme: TCheckBox
AnchorSideLeft.Control = lbDaysToShowNewPackages
AnchorSideTop.Control = Bevel3
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 441
Width = 116
BorderSpacing.Top = 7
Caption = 'Use default theme'
TabOrder = 8
end
object Bevel1: TBevel
AnchorSideTop.Control = lbConTimeOut
AnchorSideTop.Side = asrBottom
Left = 0
Height = 2
Top = 194
Width = 620
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 25
end
object Bevel2: TBevel
AnchorSideTop.Control = cbRegularIcons
AnchorSideTop.Side = asrBottom
Left = 4
Height = 2
Top = 327
Width = 620
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 25
end
object lbConTimeOut: TLabel
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = cbAlreadyInstalledPackages
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 154
Width = 164
BorderSpacing.Top = 16
Caption = 'Connection timeout(seconds): '
ParentColor = False
ParentShowHint = False
ShowHint = True
end
object spConTimeOut: TSpinEdit
AnchorSideLeft.Control = lbConTimeOut
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbConTimeOut
AnchorSideTop.Side = asrCenter
Left = 176
Height = 23
Top = 150
Width = 55
BorderSpacing.Left = 6
MinValue = 1
TabOrder = 3
Value = 10
end
object Bevel3: TBevel
AnchorSideTop.Control = rbHintFormOptions
AnchorSideTop.Side = asrBottom
Left = 4
Height = 2
Top = 432
Width = 620
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10
end
object rbHintFormOptions: TRadioGroup
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnGeneral
AnchorSideRight.Side = asrBottom
Left = 6
Height = 88
Top = 334
Width = 608
Anchors = [akTop, akLeft, akRight]
AutoFill = True
BorderSpacing.Top = 5
BorderSpacing.Right = 10
Caption = 'Options'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 68
ClientWidth = 604
ItemIndex = 0
Items.Strings = (
'Behaves like a regular hint window'
'It''s triggered by SHIFT, moves with the mouse'
'Off'
)
TabOrder = 7
object bColors: TButton
AnchorSideTop.Control = rbHintFormOptions
AnchorSideRight.Control = rbHintFormOptions
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = rbHintFormOptions
AnchorSideBottom.Side = asrBottom
Left = 489
Height = 26
Top = 21
Width = 105
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Top = 21
BorderSpacing.Right = 10
BorderSpacing.Bottom = 21
Caption = 'Colors'
OnClick = bColorsClick
TabOrder = 3
end
end
object cbIncompatiblePackages: TCheckBox
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = cbDeleteZipAfterInstall
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 98
Width = 227
BorderSpacing.Top = 2
Caption = 'Warn me about incompatible packages'
ParentShowHint = False
ShowHint = True
TabOrder = 9
end
object cbAlreadyInstalledPackages: TCheckBox
AnchorSideLeft.Control = lbRemoteRepository
AnchorSideTop.Control = cbIncompatiblePackages
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 119
Width = 242
BorderSpacing.Top = 2
Caption = 'Warn me about already installed packages'
ParentShowHint = False
ShowHint = True
TabOrder = 10
end
end
end
object tsProxy: TTabSheet
Caption = 'Proxy'
ClientHeight = 470
ClientWidth = 615
object pnProxy: TPanel
Left = 0
Height = 470
Top = 0
Width = 615
Align = alClient
BevelOuter = bvNone
ClientHeight = 470
ClientWidth = 615
ParentColor = False
TabOrder = 0
object cbProxy: TCheckBox
Left = 8
Height = 19
Top = 15
Width = 71
Caption = 'Use Proxy'
OnChange = cbProxyChange
TabOrder = 0
end
object gbProxySettings: TGroupBox
AnchorSideLeft.Control = cbProxy
AnchorSideTop.Control = cbProxy
AnchorSideTop.Side = asrBottom
Left = 8
Height = 144
Top = 40
Width = 411
BorderSpacing.Top = 6
Caption = 'Proxy Settings'
ClientHeight = 124
ClientWidth = 407
TabOrder = 1
object edProxyServer: TEdit
AnchorSideLeft.Control = lbServer
AnchorSideTop.Control = lbServer
AnchorSideTop.Side = asrBottom
Left = 8
Height = 23
Top = 22
Width = 304
BorderSpacing.Top = 4
OnKeyPress = edRemoteRepositoryKeyPress
TabOrder = 0
Text = 'http://localhost/packages/'
end
object lbServer: TLabel
Left = 8
Height = 15
Top = 3
Width = 32
Caption = 'Server'
ParentColor = False
end
object lbUserName: TLabel
AnchorSideLeft.Control = lbServer
AnchorSideTop.Control = edProxyServer
AnchorSideTop.Side = asrBottom
Left = 8
Height = 15
Top = 51
Width = 53
BorderSpacing.Top = 6
Caption = 'Username'
ParentColor = False
end
object edProxyUser: TEdit
AnchorSideLeft.Control = lbUserName
AnchorSideTop.Control = lbUserName
AnchorSideTop.Side = asrBottom
Left = 8
Height = 23
Top = 70
Width = 186
BorderSpacing.Top = 4
OnKeyPress = edRemoteRepositoryKeyPress
TabOrder = 2
Text = 'username'
end
object lbPort: TLabel
AnchorSideLeft.Control = seProxyPort
AnchorSideTop.Control = lbServer
Left = 318
Height = 15
Top = 3
Width = 22
Caption = 'Port'
ParentColor = False
end
object lbPassword: TLabel
AnchorSideLeft.Control = edProxyUser
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbUserName
Left = 200
Height = 15
Top = 51
Width = 50
BorderSpacing.Left = 6
Caption = 'Password'
ParentColor = False
end
object edProxyPassword: TEdit
AnchorSideLeft.Control = lbPassword
AnchorSideTop.Control = edProxyUser
AnchorSideRight.Control = seProxyPort
AnchorSideRight.Side = asrBottom
Left = 200
Height = 23
Top = 70
Width = 193
Anchors = [akTop, akLeft, akRight]
EchoMode = emPassword
OnKeyPress = edRemoteRepositoryKeyPress
PasswordChar = '*'
TabOrder = 3
Text = 'password'
end
object seProxyPort: TSpinEdit
AnchorSideLeft.Control = edProxyServer
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edProxyServer
Left = 318
Height = 23
Top = 22
Width = 75
BorderSpacing.Left = 6
MaxValue = 65635
TabOrder = 1
end
end
end
end
object tsOpenSSL: TTabSheet
Caption = 'OpenSSL'
ClientHeight = 470
ClientWidth = 615
object rbOpenSSL: TRadioGroup
AnchorSideLeft.Control = tsOpenSSL
AnchorSideTop.Control = tsOpenSSL
AnchorSideRight.Control = tsOpenSSL
AnchorSideRight.Side = asrBottom
Left = 10
Height = 113
Top = 10
Width = 595
Anchors = [akTop, akLeft, akRight]
AutoFill = True
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = 'In order to work properly, OPM needs the OpenSSL libraries: "libeay32.dll" and "ssleay32.dll"'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 93
ClientWidth = 591
Items.Strings = (
'Automatically download files'
'Show confirmation dialog before download'
'Never download files'
)
TabOrder = 0
end
end
object tsFolders: TTabSheet
Caption = 'Folders'
ClientHeight = 470
ClientWidth = 615
object pnFolders: TPanel
Left = 0
Height = 470
Top = 0
Width = 615
Align = alClient
BevelOuter = bvNone
ClientHeight = 470
ClientWidth = 615
ParentColor = False
TabOrder = 0
object lbLocalRepositoryPackages: TLabel
Left = 8
Height = 15
Top = 16
Width = 84
Caption = 'Local repository'
ParentColor = False
ParentShowHint = False
end
object lbLocalRepositoryArchive: TLabel
AnchorSideLeft.Control = lbLocalRepositoryPackages
AnchorSideTop.Control = edLocalRepositoryPackages
AnchorSideTop.Side = asrBottom
Left = 8
Height = 15
Top = 70
Width = 125
BorderSpacing.Top = 12
Caption = 'Local repository archive'
ParentColor = False
ParentShowHint = False
end
object lbLocalRepositoryUpdate: TLabel
AnchorSideLeft.Control = lbLocalRepositoryPackages
AnchorSideTop.Control = edLocalRepositoryArchive
AnchorSideTop.Side = asrBottom
Left = 8
Height = 15
Top = 124
Width = 124
BorderSpacing.Top = 12
Caption = 'Local repository update'
ParentColor = False
ParentShowHint = False
end
object edLocalRepositoryPackages: TDirectoryEdit
AnchorSideLeft.Control = lbLocalRepositoryPackages
AnchorSideTop.Control = lbLocalRepositoryPackages
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnFolders
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 35
Width = 601
Directory = 'edLocalRepositoryPackages'
ShowHidden = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 6
MaxLength = 0
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnButtonClick = edLocalRepositoryPackagesButtonClick
Text = 'edLocalRepositoryPackages'
end
object edLocalRepositoryArchive: TDirectoryEdit
Tag = 1
AnchorSideLeft.Control = lbLocalRepositoryArchive
AnchorSideTop.Control = lbLocalRepositoryArchive
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edLocalRepositoryPackages
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 89
Width = 601
ShowHidden = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 0
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnButtonClick = edLocalRepositoryPackagesButtonClick
end
object edLocalRepositoryUpdate: TDirectoryEdit
Tag = 2
AnchorSideLeft.Control = lbLocalRepositoryUpdate
AnchorSideTop.Control = lbLocalRepositoryUpdate
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edLocalRepositoryArchive
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 143
Width = 601
ShowHidden = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 0
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnButtonClick = edLocalRepositoryPackagesButtonClick
end
end
end
object tsProfiles: TTabSheet
Caption = 'Profiles'
ClientHeight = 470
ClientWidth = 615
object pnProfiles: TPanel
Left = 0
Height = 470
Top = 0
Width = 615
Align = alClient
BevelOuter = bvNone
ClientHeight = 470
ClientWidth = 615
ParentColor = False
TabOrder = 0
object pnProfilesTop: TPanel
Left = 0
Height = 48
Top = 0
Width = 615
Align = alTop
BevelOuter = bvNone
ClientHeight = 48
ClientWidth = 615
TabOrder = 0
OnResize = pnProfilesTopResize
object lbSelectProfile: TLabel
Left = 8
Height = 15
Top = 15
Width = 68
Caption = 'Select profile'
ParentColor = False
end
object cbSelectProfile: TComboBox
AnchorSideLeft.Control = lbSelectProfile
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbSelectProfile
AnchorSideTop.Side = asrCenter
Left = 82
Height = 23
Top = 11
Width = 192
BorderSpacing.Left = 6
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Regular user'
'Package maintainer'
)
OnChange = cbSelectProfileChange
ParentShowHint = False
ShowHint = True
Style = csDropDownList
TabOrder = 0
Text = 'Regular user'
end
end
object pnProfilesMain: TPanel
Left = 0
Height = 422
Top = 48
Width = 615
Align = alClient
BevelOuter = bvNone
ClientHeight = 422
ClientWidth = 615
TabOrder = 1
OnResize = pnProfilesMainResize
object pnProfilesLeft: TPanel
AnchorSideLeft.Control = pnProfilesMain
AnchorSideTop.Control = pnProfilesMain
Left = 0
Height = 422
Top = 0
Width = 282
Align = alLeft
BevelOuter = bvNone
ClientHeight = 422
ClientWidth = 282
TabOrder = 0
object lbExcludeFiles: TListBox
AnchorSideLeft.Control = lbFilterFiles
AnchorSideTop.Control = lbFilterFiles
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bFilesAdd
AnchorSideBottom.Control = pnProfilesLeft
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 393
Top = 23
Width = 190
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
ParentShowHint = False
ScrollWidth = 151
ShowHint = True
Sorted = True
TabOrder = 0
end
object lbFilterFiles: TLabel
AnchorSideLeft.Control = pnProfilesLeft
AnchorSideTop.Control = pnProfilesLeft
Left = 6
Height = 15
Top = 4
Width = 117
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = 'Exclude file extensions'
ParentColor = False
end
object bFilesAdd: TButton
AnchorSideTop.Control = lbExcludeFiles
AnchorSideRight.Control = pnProfilesLeft
AnchorSideRight.Side = asrBottom
Left = 202
Height = 25
Top = 23
Width = 80
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Add'
Constraints.MinWidth = 80
OnClick = bFilesAddClick
TabOrder = 1
end
object bFilesEdit: TButton
AnchorSideLeft.Control = bFilesAdd
AnchorSideTop.Control = bFilesAdd
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnProfilesLeft
AnchorSideRight.Side = asrBottom
Left = 202
Height = 25
Top = 52
Width = 80
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Edit'
OnClick = bFilesEditClick
TabOrder = 2
end
object bFilesDelete: TButton
AnchorSideLeft.Control = bFilesAdd
AnchorSideTop.Control = bFilesEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnProfilesLeft
AnchorSideRight.Side = asrBottom
Left = 202
Height = 25
Top = 81
Width = 80
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Delete'
OnClick = bFilesDeleteClick
TabOrder = 3
end
end
object pnProfilesRight: TPanel
Left = 282
Height = 422
Top = 0
Width = 327
Align = alClient
BorderSpacing.Right = 6
BevelOuter = bvNone
ClientHeight = 422
ClientWidth = 327
TabOrder = 1
object lbExcludeFolders: TListBox
AnchorSideLeft.Control = lbFilterDirs
AnchorSideTop.Control = lbFilterDirs
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bFoldersAdd
AnchorSideBottom.Control = pnProfilesRight
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 393
Top = 23
Width = 235
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
ParentShowHint = False
ScrollWidth = 160
ShowHint = True
Sorted = True
TabOrder = 0
end
object lbFilterDirs: TLabel
AnchorSideLeft.Control = pnProfilesRight
AnchorSideTop.Control = pnProfilesRight
Left = 6
Height = 15
Top = 4
Width = 79
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = 'Exclude folders'
ParentColor = False
end
object bFoldersAdd: TButton
Tag = 1
AnchorSideTop.Control = lbExcludeFolders
AnchorSideRight.Control = pnProfilesRight
AnchorSideRight.Side = asrBottom
Left = 247
Height = 25
Top = 23
Width = 80
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Add'
Constraints.MinWidth = 80
OnClick = bFilesAddClick
TabOrder = 1
end
object bFoldersEdit: TButton
Tag = 1
AnchorSideLeft.Control = bFoldersAdd
AnchorSideTop.Control = bFoldersAdd
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnProfilesRight
AnchorSideRight.Side = asrBottom
Left = 247
Height = 25
Top = 52
Width = 80
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Edit'
OnClick = bFilesEditClick
TabOrder = 2
end
object bFoldersDelete: TButton
Tag = 1
AnchorSideLeft.Control = bFoldersAdd
AnchorSideTop.Control = bFoldersEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnProfilesRight
AnchorSideRight.Side = asrBottom
Left = 247
Height = 25
Top = 81
Width = 80
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Delete'
OnClick = bFilesDeleteClick
TabOrder = 3
end
end
end
end
end
end
object SDD: TSelectDirectoryDialog
left = 448
top = 280
end
end