paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 10:47:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

InstantSearch: improved settings dialogs layout and i18n

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-01-06 04:47:09 +03:00
parent 565ed49825
commit 70e9a26902
3 changed files with 305 additions and 291 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

567
components/instantsearch/frainstantsearchoptions.lfm
View File

@ -1,447 +1,453 @@
object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
Left = 0 Left = 0
Height = 567 Height = 834
Top = 0 Top = 0
Width = 567 Width = 709
ClientHeight = 567 ClientHeight = 834
ClientWidth = 567 ClientWidth = 709
DesignTimePPI = 120
ParentFont = False
TabOrder = 0 TabOrder = 0
DesignLeft = 742 DesignLeft = 742
DesignTop = 164 DesignTop = 164
object PCOptions: TPageControl object PCOptions: TPageControl
AnchorSideLeft.Control = lblIndexProjectMoment
Left = 0 Left = 0
Height = 543 Height = 804
Top = 24 Top = 30
Width = 567 Width = 709
ActivePage = TSSearchEngine ActivePage = TSSearchEngine
Align = alClient Align = alClient
Anchors = [akTop, akLeft, akBottom]
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TSSearchEngine: TTabSheet object TSSearchEngine: TTabSheet
Caption = 'Search engine' Caption = 'Search engine'
ClientHeight = 513 ClientHeight = 771
ClientWidth = 557 ClientWidth = 701
object GBManticore: TGroupBox object GBManticore: TGroupBox
Left = 0 Left = 10
Height = 208 Height = 251
Top = 0 Top = 10
Width = 557 Width = 681
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 10
Caption = 'Manticore Server' Caption = 'Manticore Server'
ClientHeight = 191 ClientHeight = 226
ClientWidth = 555 ClientWidth = 677
TabOrder = 0 TabOrder = 0
object cbMySQLVersion: TComboBox object cbMySQLVersion: TComboBox
AnchorSideLeft.Control = cbProtocol AnchorSideLeft.Control = lblProtocol
AnchorSideTop.Control = cbProtocol AnchorSideTop.Control = lblMySQLversion
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 Left = 10
Height = 29 Height = 28
Top = 45 Top = 80
Width = 136 Width = 230
BorderSpacing.Top = 8 ItemHeight = 20
ItemHeight = 0
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
object lblMySQLversion: TLabel object lblMySQLversion: TLabel
AnchorSideLeft.Control = GBManticore AnchorSideLeft.Control = lblProtocol
AnchorSideTop.Control = cbProtocol AnchorSideTop.Control = cbProtocol
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbMySQLVersion
AnchorSideBottom.Control = cbMySQLVersion
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 8 Left = 10
Height = 29 Height = 20
Top = 45 Top = 60
Width = 144 Width = 139
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'MySQL Client version' Caption = 'MySQL Client version'
Layout = tlCenter Layout = tlCenter
end end
object lblPort: TLabel object lblPort: TLabel
AnchorSideLeft.Control = GBManticore AnchorSideLeft.Control = edtPort
AnchorSideTop.Control = edtPort AnchorSideTop.Control = lblHost
AnchorSideRight.Control = edtPort AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = edtPort
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 437
Height = 27 Height = 20
Top = 117 Top = 114
Width = 152 Width = 26
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 8
Caption = 'Port' Caption = 'Port'
Layout = tlCenter Layout = tlCenter
end end
object edtPort: TEdit object edtPort: TEdit
AnchorSideLeft.Control = cbProtocol
AnchorSideTop.Control = edtHostname AnchorSideTop.Control = edtHostname
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrCenter
Left = 160 AnchorSideRight.Control = GBManticore
Height = 27 AnchorSideRight.Side = asrBottom
Top = 117 Left = 437
Width = 80 Height = 28
BorderSpacing.Top = 8 Top = 134
Width = 230
Anchors = [akTop, akRight]
BorderSpacing.Right = 10
NumbersOnly = True NumbersOnly = True
ParentShowHint = False
TabOrder = 1 TabOrder = 1
TextHint = 'Enter port number'
end end
object edtHostname: TEdit object edtHostname: TEdit
AnchorSideLeft.Control = cbProtocol AnchorSideLeft.Control = lblProtocol
AnchorSideTop.Control = cbMySQLVersion AnchorSideTop.Control = lblHost
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 AnchorSideRight.Control = edtPort
Height = 27 Left = 10
Top = 82 Height = 28
Width = 224 Top = 134
BorderSpacing.Top = 8 Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 10
TabOrder = 2 TabOrder = 2
TextHint = 'Enter hostname, leave empty for localhost' TextHint = 'Enter hostname, leave empty for localhost'
end end
object lblHost: TLabel object lblHost: TLabel
AnchorSideLeft.Control = GBManticore AnchorSideLeft.Control = lblProtocol
AnchorSideTop.Control = edtHostname AnchorSideTop.Control = cbMySQLVersion
AnchorSideRight.Control = edtHostname AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = edtHostname
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 10
Height = 27 Height = 20
Top = 82 Top = 114
Width = 152 Width = 31
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6
BorderSpacing.Right = 8
Caption = 'Host' Caption = 'Host'
Layout = tlCenter Layout = tlCenter
end end
object cbProtocol: TComboBox object cbProtocol: TComboBox
AnchorSideTop.Control = GBManticore AnchorSideLeft.Control = lblProtocol
Left = 160 AnchorSideTop.Control = lblProtocol
Height = 29 AnchorSideTop.Side = asrBottom
Top = 8 Left = 10
Width = 136 Height = 28
BorderSpacing.Top = 8 Top = 26
ItemHeight = 0 Width = 230
ItemHeight = 20
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 3
end end
object BtnTest: TButton object BtnTest: TButton
AnchorSideTop.Control = GBManticore
AnchorSideRight.Control = GBManticore AnchorSideRight.Control = GBManticore
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GBManticore
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 406 Left = 537
Height = 31 Height = 30
Top = 152 Top = 10
Width = 141 Width = 130
Action = actTestConnection Action = actTestConnection
Anchors = [akRight, akBottom] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 AutoSize = True
BorderSpacing.Bottom = 8 BorderSpacing.Top = 10
BorderSpacing.Right = 10
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 4
end end
object lblProtocol: TLabel object lblProtocol: TLabel
AnchorSideLeft.Control = GBManticore AnchorSideLeft.Control = GBManticore
AnchorSideTop.Control = cbProtocol AnchorSideTop.Control = GBManticore
AnchorSideRight.Control = cbProtocol Left = 10
AnchorSideBottom.Control = cbProtocol Height = 20
AnchorSideBottom.Side = asrBottom Top = 6
Left = 0 Width = 56
Height = 29
Top = 8
Width = 152
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 10
AutoSize = False BorderSpacing.Top = 6
BorderSpacing.Right = 8
Caption = 'Protocol' Caption = 'Protocol'
Layout = tlCenter Layout = tlCenter
end end
object edtIdleDisconnect: TEdit object edtIdleDisconnect: TEdit
AnchorSideLeft.Control = cbProtocol AnchorSideLeft.Control = lblProtocol
AnchorSideTop.Control = edtPort AnchorSideTop.Control = lblDisconnect
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 Left = 10
Height = 27 Height = 28
Top = 152 Top = 188
Width = 80 Width = 230
BorderSpacing.Top = 8 BorderSpacing.Bottom = 10
NumbersOnly = True NumbersOnly = True
ParentShowHint = False
TabOrder = 5 TabOrder = 5
TextHint = 'Enter port number'
end end
object lblDisconnect: TLabel object lblDisconnect: TLabel
AnchorSideLeft.Control = GBManticore AnchorSideLeft.Control = lblProtocol
AnchorSideTop.Control = edtIdleDisconnect AnchorSideTop.Control = edtHostname
AnchorSideRight.Control = edtIdleDisconnect AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = edtIdleDisconnect
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 10
Height = 27 Height = 20
Top = 152 Top = 168
Width = 152 Width = 134
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6
BorderSpacing.Right = 8
Caption = 'Idle disconnect time' Caption = 'Idle disconnect time'
Layout = tlCenter Layout = tlCenter
end end
end end
object GBIndexing: TGroupBox object GBIndexing: TGroupBox
Left = 0 Left = 10
Height = 168 Height = 251
Top = 208 Top = 271
Width = 557 Width = 681
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 10
Caption = 'Indexing options' Caption = 'Indexing options'
ClientHeight = 151 ClientHeight = 226
ClientWidth = 555 ClientWidth = 677
TabOrder = 1 TabOrder = 1
object edtMinSearchTermLength: TEdit object edtMinSearchTermLength: TEdit
AnchorSideTop.Control = GBIndexing AnchorSideLeft.Control = lblMinSearchTermLength
Left = 160 AnchorSideTop.Control = lblMinSearchTermLength
Height = 27 AnchorSideTop.Side = asrBottom
Top = 8 Left = 10
Width = 80 Height = 28
BorderSpacing.Top = 8 Top = 26
Width = 230
NumbersOnly = True NumbersOnly = True
TabOrder = 0 TabOrder = 0
end end
object EdtMaxClipboardLength: TEdit object EdtMaxClipboardLength: TEdit
AnchorSideTop.Control = edtMinSearchTermLength AnchorSideLeft.Control = lblMinSearchTermLength
AnchorSideTop.Control = lblMaxClipbrdSearchTermLength
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 Left = 10
Height = 27 Height = 28
Top = 43 Top = 80
Width = 80 Width = 230
BorderSpacing.Top = 8
NumbersOnly = True NumbersOnly = True
TabOrder = 1 TabOrder = 1
end end
object edtLimit: TEdit object edtLimit: TEdit
AnchorSideTop.Control = EdtMaxClipboardLength AnchorSideLeft.Control = lblMinSearchTermLength
AnchorSideTop.Control = lblLimit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 Left = 10
Height = 27 Height = 28
Top = 78 Top = 134
Width = 80 Width = 230
BorderSpacing.Top = 8
NumbersOnly = True NumbersOnly = True
TabOrder = 2 TabOrder = 2
end end
object lblMinSearchTermLength: TLabel object lblMinSearchTermLength: TLabel
AnchorSideTop.Control = edtMinSearchTermLength AnchorSideLeft.Control = GBIndexing
AnchorSideRight.Control = edtMinSearchTermLength AnchorSideTop.Control = GBIndexing
AnchorSideBottom.Control = edtMinSearchTermLength
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 16 Left = 10
Height = 27 Height = 20
Top = 8 Top = 6
Width = 136 Width = 148
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 10
AutoSize = False BorderSpacing.Top = 6
BorderSpacing.Right = 8
Caption = 'Min searchterm length' Caption = 'Min searchterm length'
Layout = tlCenter Layout = tlCenter
end end
object lblMaxClipbrdSearchTermLength: TLabel object lblMaxClipbrdSearchTermLength: TLabel
AnchorSideTop.Control = EdtMaxClipboardLength AnchorSideLeft.Control = lblMinSearchTermLength
AnchorSideRight.Control = EdtMaxClipboardLength AnchorSideTop.Control = edtMinSearchTermLength
AnchorSideBottom.Control = EdtMaxClipboardLength AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 16 Left = 10
Height = 27 Height = 20
Top = 43 Top = 60
Width = 136 Width = 142
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6
AutoSize = False
BorderSpacing.Right = 8
Caption = 'Max clipboard length' Caption = 'Max clipboard length'
Layout = tlCenter Layout = tlCenter
end end
object lblLimit: TLabel object lblLimit: TLabel
AnchorSideTop.Control = edtLimit AnchorSideLeft.Control = lblMinSearchTermLength
AnchorSideRight.Control = edtLimit AnchorSideTop.Control = EdtMaxClipboardLength
AnchorSideBottom.Control = edtLimit AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 37 Left = 10
Height = 27 Height = 20
Top = 78 Top = 114
Width = 115 Width = 109
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6
AutoSize = False
BorderSpacing.Right = 8
Caption = 'Max result count' Caption = 'Max result count'
Layout = tlCenter Layout = tlCenter
end end
object cbIndexName: TComboBox object cbIndexName: TComboBox
AnchorSideTop.Control = edtLimit AnchorSideLeft.Control = lblMinSearchTermLength
AnchorSideTop.Control = lblIndexName
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 AnchorSideRight.Control = GBIndexing
Height = 27 AnchorSideRight.Side = asrBottom
Top = 113 Left = 10
Width = 242 Height = 28
Top = 188
Width = 657
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8 BorderSpacing.Right = 10
ItemHeight = 0 BorderSpacing.Bottom = 10
ItemHeight = 20
TabOrder = 3 TabOrder = 3
end end
object lblIndexName: TLabel object lblIndexName: TLabel
AnchorSideTop.Control = cbIndexName AnchorSideLeft.Control = lblMinSearchTermLength
AnchorSideRight.Control = cbIndexName AnchorSideTop.Control = edtLimit
AnchorSideBottom.Control = cbIndexName AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 64 Left = 10
Height = 27 Height = 20
Top = 113 Top = 168
Width = 85 Width = 77
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akBottom] BorderSpacing.Top = 6
AutoSize = False
BorderSpacing.Right = 8
Caption = 'Index name' Caption = 'Index name'
Layout = tlCenter Layout = tlCenter
end end
object btnCreateIndex: TButton object btnCreateIndex: TButton
Left = 419 AnchorSideRight.Control = btnDeleteIndex
Height = 25 AnchorSideBottom.Control = btnDeleteIndex
Top = 113 AnchorSideBottom.Side = asrBottom
Width = 128 Left = 438
Height = 30
Top = 10
Width = 109
Action = actCreateIndex Action = actCreateIndex
Anchors = [akTop, akRight] Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 10
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 4
end end
object btnDeleteIndex: TButton object btnDeleteIndex: TButton
Left = 419 AnchorSideTop.Control = GBIndexing
Height = 25 AnchorSideRight.Control = GBIndexing
Top = 80 AnchorSideRight.Side = asrBottom
Width = 128 AnchorSideBottom.Side = asrBottom
Left = 557
Height = 30
Top = 10
Width = 110
Action = actDeleteIndex Action = actDeleteIndex
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 10
BorderSpacing.Right = 10
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 5 TabOrder = 5
end end
end end
object gbAutomations: TGroupBox object gbAutomations: TGroupBox
Left = 0 Left = 10
Height = 136 Height = 143
Top = 376 Top = 532
Width = 557 Width = 681
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 10
Caption = 'Automation' Caption = 'Automation'
ClientHeight = 119 ClientHeight = 118
ClientWidth = 555 ClientWidth = 677
TabOrder = 2 TabOrder = 2
object cbIndexProjectMoment: TComboBox object cbIndexProjectMoment: TComboBox
AnchorSideTop.Control = gbAutomations AnchorSideLeft.Control = lblIndexProjectMoment
Left = 160 AnchorSideTop.Control = lblIndexProjectMoment
Height = 27 AnchorSideTop.Side = asrBottom
Top = 8 Left = 10
Width = 239 Height = 28
BorderSpacing.Top = 8 Top = 26
ItemHeight = 0 Width = 363
ItemHeight = 20
TabOrder = 0 TabOrder = 0
Text = 'cbIndexProjectMoment' Text = 'cbIndexProjectMoment'
end end
object lblIndexProjectMoment: TLabel object lblIndexProjectMoment: TLabel
AnchorSideTop.Control = cbIndexProjectMoment AnchorSideLeft.Control = gbAutomations
AnchorSideRight.Control = cbIndexProjectMoment AnchorSideTop.Control = gbAutomations
AnchorSideBottom.Control = cbIndexProjectMoment
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 24 Left = 10
Height = 27 Height = 20
Top = 8 Top = 6
Width = 128 Width = 132
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 10
BorderSpacing.Right = 8 BorderSpacing.Top = 6
Caption = 'Index projects when' Caption = 'Index projects when'
Layout = tlCenter Layout = tlCenter
end end
object lblIndexProjectstrategy: TLabel object lblIndexProjectstrategy: TLabel
AnchorSideTop.Control = cbIndexProjectStrategy AnchorSideLeft.Control = lblIndexProjectMoment
AnchorSideRight.Control = cbIndexProjectStrategy AnchorSideTop.Control = cbIndexProjectMoment
AnchorSideBottom.Control = cbIndexProjectStrategy AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 8 Left = 10
Height = 27 Height = 20
Top = 43 Top = 60
Width = 144 Width = 158
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6
BorderSpacing.Right = 8
Caption = 'Mark Projects indexable' Caption = 'Mark Projects indexable'
Layout = tlCenter Layout = tlCenter
end end
object cbIndexProjectStrategy: TComboBox object cbIndexProjectStrategy: TComboBox
AnchorSideLeft.Control = cbIndexProjectMoment AnchorSideLeft.Control = lblIndexProjectMoment
AnchorSideTop.Control = cbIndexProjectMoment AnchorSideTop.Control = lblIndexProjectstrategy
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 160 Left = 10
Height = 27 Height = 28
Top = 43 Top = 80
Width = 238 Width = 363
BorderSpacing.Top = 8 ItemHeight = 20
ItemHeight = 0
OnChange = cbIndexProjectStrategyChange OnChange = cbIndexProjectStrategyChange
TabOrder = 1 TabOrder = 1
Text = 'cbIndexProjectStrategy' Text = 'cbIndexProjectStrategy'
end end
object edtIndexDelay: TEdit object edtIndexDelay: TEdit
AnchorSideLeft.Control = cbIndexProjectMoment AnchorSideLeft.Control = lblEditIndexDelay1
AnchorSideTop.Control = cbIndexProjectStrategy AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom AnchorSideTop.Control = lblEditIndexDelay1
Left = 160 AnchorSideTop.Side = asrCenter
Height = 27 Left = 405
Top = 78 Height = 28
Width = 88 Top = 80
BorderSpacing.Top = 8 Width = 110
BorderSpacing.Left = 10
BorderSpacing.Bottom = 10
NumbersOnly = True NumbersOnly = True
TabOrder = 2 TabOrder = 2
end end
object lblEditIndexDelay1: TLabel object lblEditIndexDelay1: TLabel
AnchorSideTop.Control = edtIndexDelay AnchorSideLeft.Control = cbIndexProjectStrategy
AnchorSideRight.Control = edtIndexDelay AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = edtIndexDelay AnchorSideTop.Control = cbIndexProjectStrategy
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 16 Left = 383
Height = 27 Height = 20
Top = 78 Top = 84
Width = 136 Width = 12
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 10
AutoSize = False BorderSpacing.Top = 6
BorderSpacing.Right = 8 Caption = 'in'
Caption = 'Mark indexable'
Layout = tlCenter Layout = tlCenter
end end
object lblEditIndexDelay2: TLabel object lblEditIndexDelay2: TLabel
AnchorSideLeft.Control = edtIndexDelay AnchorSideLeft.Control = edtIndexDelay
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtIndexDelay AnchorSideTop.Control = edtIndexDelay
AnchorSideBottom.Control = edtIndexDelay AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 256 Left = 525
Height = 27 Height = 20
Top = 78 Top = 84
Width = 144 Width = 146
Anchors = [akTop, akLeft, akBottom] BorderSpacing.Left = 10
AutoSize = False
BorderSpacing.Left = 8
Caption = 'minutes after opening' Caption = 'minutes after opening'
Layout = tlCenter Layout = tlCenter
end end
@ -449,13 +455,13 @@ object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
end end
object TSSourceTrees: TTabSheet object TSSourceTrees: TTabSheet
Caption = 'Source Trees' Caption = 'Source Trees'
ClientHeight = 513 ClientHeight = 771
ClientWidth = 557 ClientWidth = 701
object VLETrees: TValueListEditor object VLETrees: TValueListEditor
Left = 0 Left = 0
Height = 487 Height = 739
Top = 26 Top = 32
Width = 557 Width = 701
Align = alClient Align = alClient
AlternateColor = clSilver AlternateColor = clSilver
ExtendedSelect = False ExtendedSelect = False
@ -470,15 +476,14 @@ object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
'Path' 'Path'
) )
ColWidths = ( ColWidths = (
64 80
489 596
) )
end end
object TBSourceTrees: TToolBar object TBSourceTrees: TToolBar
Left = 0 Left = 0
Height = 26
Top = 0 Top = 0
Width = 557 Width = 701
Images = ilInstantSearch Images = ilInstantSearch
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -489,34 +494,34 @@ object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
Action = actAdd Action = actAdd
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 24 Left = 30
Top = 2 Top = 2
Action = actEdit Action = actEdit
end end
object TBDelete: TToolButton object TBDelete: TToolButton
Left = 47 Left = 59
Top = 2 Top = 2
Action = actDelete Action = actDelete
end end
object tbIndex: TToolButton object tbIndex: TToolButton
Left = 78 Left = 96
Top = 2 Top = 2
Action = actIndex Action = actIndex
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 70 Left = 88
Height = 22 Height = 28
Top = 2 Top = 2
Caption = 'ToolButton1' Caption = 'ToolButton1'
Style = tbsSeparator Style = tbsSeparator
end end
object TBClear: TToolButton object TBClear: TToolButton
Left = 101 Left = 125
Top = 2 Top = 2
Action = actClear Action = actClear
end end
object TBClearAll: TToolButton object TBClearAll: TToolButton
Left = 124 Left = 154
Top = 2 Top = 2
Action = actClearAll Action = actClearAll
end end
@ -525,9 +530,9 @@ object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
end end
object lblIndexing: TLabel object lblIndexing: TLabel
Left = 0 Left = 0
Height = 24 Height = 30
Top = 0 Top = 0
Width = 567 Width = 709
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
@ -536,8 +541,8 @@ object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
end end
object alInstantSearch: TActionList object alInstantSearch: TActionList
Images = ilInstantSearch Images = ilInstantSearch
Left = 368 Left = 460
Top = 56 Top = 70
object actAdd: TAction object actAdd: TAction
Caption = 'Add' Caption = 'Add'
ImageIndex = 0 ImageIndex = 0
@ -590,8 +595,8 @@ object IDEInstantSearchOptionsFrame: TIDEInstantSearchOptionsFrame
end end
end end
object ilInstantSearch: TImageList object ilInstantSearch: TImageList
Left = 448 Left = 560
Top = 80 Top = 100
Bitmap = { Bitmap = {
4C7A060000001000000010000000D20700000000000078DAD5970B50536716C7 4C7A060000001000000010000000D20700000000000078DAD5970B50536716C7
EF8AD08A02A2342069D455BA76EA5A79051441ABAD6DADB583B574A5B26BB583 EF8AD08A02A2342069D455BA76EA5A79051441ABAD6DADB583B574A5B26BB583

4
components/instantsearch/frainstantsearchoptions.pas
View File

@ -527,6 +527,7 @@ begin
actClear.Hint := lrsSourceTreeClearHint; actClear.Hint := lrsSourceTreeClearHint;
actClearAll.Caption := lrsSourceTreeClearAll; actClearAll.Caption := lrsSourceTreeClearAll;
actClearAll.Hint := lrsSourceTreeClearAllHint; actClearAll.Hint := lrsSourceTreeClearAllHint;
actCreateIndex.Caption:=lrsCreateIndex2;
actDeleteIndex.Caption:=lrsDeleteIndex; actDeleteIndex.Caption:=lrsDeleteIndex;
actDeleteIndex.Hint:=lrsDeleteIndexHint; actDeleteIndex.Hint:=lrsDeleteIndexHint;
GBManticore.Caption:=lrsManticoreOptions; GBManticore.Caption:=lrsManticoreOptions;
@ -537,10 +538,13 @@ begin
lblProtocol.Caption:=lrsProtocol; lblProtocol.Caption:=lrsProtocol;
lblPort.Caption:=lrsPort; lblPort.Caption:=lrsPort;
lblHost.Caption:=lrsHost; lblHost.Caption:=lrsHost;
edtHostname.TextHint:=lrsEnterHostnameLeaveEmptyForLocalhost;
lblMySQLversion.Caption:=lrsMysqlversion; lblMySQLversion.Caption:=lrsMysqlversion;
lblDisconnect.Caption:=lrsIdleDisconnectTime;
lblIndexName.Caption:=lrsIndexName; lblIndexName.Caption:=lrsIndexName;
TSSearchEngine.Caption:=lrsSearchEngine; TSSearchEngine.Caption:=lrsSearchEngine;
TSSourceTrees.Caption:=lrsSourceTrees; TSSourceTrees.Caption:=lrsSourceTrees;
gbAutomations.Caption:=lrsAutomation;
lblIndexProjectStrategy.Caption:=lrsIndexProjectStrategy; lblIndexProjectStrategy.Caption:=lrsIndexProjectStrategy;
lblIndexProjectMoment.Caption:=lrsIndexProjectMoment; lblIndexProjectMoment.Caption:=lrsIndexProjectMoment;
lblEditIndexDelay1.Caption:=lrsIndexProjectDelay1; lblEditIndexDelay1.Caption:=lrsIndexProjectDelay1;

23
components/instantsearch/instantsearchstrings.pas
View File

@ -29,10 +29,11 @@ Resourcestring
lrsIndexAlreadyExists = 'Index table "%s" already exists.'; lrsIndexAlreadyExists = 'Index table "%s" already exists.';
lrsCannotDeleteIndexWhileIndexing = 'Cannot delete an index while an indexing operation is in progress.'; lrsCannotDeleteIndexWhileIndexing = 'Cannot delete an index while an indexing operation is in progress.';
lrsDeleteIndex = 'Delete index'; lrsDeleteIndex = 'Delete index';
lrsCreateIndex2 = 'Create index';
lrsDeleteIndexHint = 'Prompt for index name and delete the index.'; lrsDeleteIndexHint = 'Prompt for index name and delete the index.';
lrsIndexToDelete = 'Enter the name of the index to delete. This operation cannot be undone.'; lrsIndexToDelete = 'Enter the name of the index to delete. This operation cannot be undone.';
lrsNoSuchIndex = 'No such index exists: %s'; lrsNoSuchIndex = 'No such index exists: %s';
lrsIndexDeleted = 'Index %s successfully deleted'; lrsIndexDeleted = 'Index %s successfully deleted.';
lrsCreateIndexWithName = 'Create index with name %s?'; lrsCreateIndexWithName = 'Create index with name %s?';
lrsYesCreateIndex = 'Yes, create the index'; lrsYesCreateIndex = 'Yes, create the index';
lrsDoNotCreateIndex = 'No, do not create the index'; lrsDoNotCreateIndex = 'No, do not create the index';
@ -58,7 +59,7 @@ Resourcestring
lrsIndexNow = 'Would you like to start indexing them now?'; lrsIndexNow = 'Would you like to start indexing them now?';
lrsThisNeedsSavingSettings = 'This operation runs in the background, and will cause the settings to be saved now.'; lrsThisNeedsSavingSettings = 'This operation runs in the background, and will cause the settings to be saved now.';
lrsNeedIndexing = 'Source trees must be indexed.'; lrsNeedIndexing = 'Source trees must be indexed';
lrsSaveAndIndex = 'Yes, index needed source trees'; lrsSaveAndIndex = 'Yes, index needed source trees';
lrsSaveAndIndexAll = 'Yes, index all source trees'; lrsSaveAndIndexAll = 'Yes, index all source trees';
lrsIndexLater = 'No, do not index now'; lrsIndexLater = 'No, do not index now';
@ -88,14 +89,17 @@ Resourcestring
lrsProtocol = 'Protocol'; lrsProtocol = 'Protocol';
lrsPort = 'Port'; lrsPort = 'Port';
lrsHost = 'Hostname'; lrsHost = 'Hostname';
lrsEnterHostnameLeaveEmptyForLocalhost = 'Enter hostname, leave empty for '
+'localhost';
lrsMysqlversion = 'MySQL client version'; lrsMysqlversion = 'MySQL client version';
lrsIdleDisconnectTime = 'Idle disconnect time';
lrsSearchEngine = 'Search engine'; lrsSearchEngine = 'Search engine';
lrsSourceTrees = 'Source trees'; lrsSourceTrees = 'Source trees';
lrsIndexName = 'Index name'; lrsIndexName = 'Index name';
lrsCannotConnectToManticore = 'Error "%s" trying to connect to Manticore server: %s'; lrsCannotConnectToManticore = 'Error "%s" trying to connect to Manticore server: %s';
lrsNoIndex = 'Search index table not found'; lrsNoIndex = 'Search index table not found';
lrsIndexNotFoundCreate = 'Search index table "%s" was not found.'+LineEnding+'Create search index table "%s"?'; lrsIndexNotFoundCreate = 'Search index table "%s" was not found.'+LineEnding+'Create it?';
lrsCreateIndex = 'Create index table'; lrsCreateIndex = 'Create index table';
lrsAbortOperation = 'No, abort operation'; lrsAbortOperation = 'No, abort operation';
lrsSaveNeeded = 'Save settings required.'; lrsSaveNeeded = 'Save settings required.';
@ -103,16 +107,16 @@ Resourcestring
lrsSave = 'Yes, save settings'; lrsSave = 'Yes, save settings';
lrsIndexOperationFailed = 'Failed to start index operation.'; lrsIndexOperationFailed = 'Failed to start index operation.';
lrsCannotIndexIndexInProgress = 'Cannot start an index operation while another one is in progress.'; lrsCannotIndexIndexInProgress = 'Cannot start an index operation while another one is in progress.';
lrsFinishedIndexingTree = 'Finished indexing tree "%s". Processed %d files'; lrsFinishedIndexingTree = 'Finished indexing tree "%s". Processed %d files.';
lrsStartIndexingTree = 'Start indexing tree "%s", directory: "%s"'; lrsStartIndexingTree = 'Start indexing tree "%s", directory: "%s"';
lrsFinishedIndexingProject = 'Finished indexing project "%s". Processed %d files'; lrsFinishedIndexingProject = 'Finished indexing project "%s". Processed %d files.';
lrsIndexingProjectTerminated = 'Indexing project "%s" was terminated. Processed %d files'; lrsIndexingProjectTerminated = 'Indexing project "%s" was terminated. Processed %d files.';
lrsStartIndexingProject = 'Start indexing project "%s", directory: "%s"'; lrsStartIndexingProject = 'Start indexing project "%s", directory: "%s"';
lrsIndexingOperationFinished = 'Finished indexing operation.'; lrsIndexingOperationFinished = 'Finished indexing operation.';
lrsMarkingIndexable = 'Marking project "%s" as indexable'; lrsMarkingIndexable = 'Marking project "%s" as indexable.';
lrsTestButtonHint = 'Test the connection parameters.'; lrsTestButtonHint = 'Test the connection parameters.';
lrsCreateIndexButtonHint = 'Create the index table. You need to test the connection first.'; lrsCreateIndexButtonHint = 'Create the index table. You need to test the connection first.';
lrsNotProperlyConfigured = 'Instantsearch is not properly configured to connect to mantisearch: %s'; lrsNotProperlyConfigured = 'Instant search is not properly configured to connect to Manticore server: %s';
lrsOnOpen = 'Project is opened'; lrsOnOpen = 'Project is opened';
lrsManual = 'Manual only'; lrsManual = 'Manual only';
@ -121,8 +125,9 @@ Resourcestring
lrsTimed = 'Delayed after project open'; lrsTimed = 'Delayed after project open';
lrsIndexProjectStrategy = 'Mark project indexable'; lrsIndexProjectStrategy = 'Mark project indexable';
lrsAutomation = 'Automation';
lrsIndexProjectMoment = 'Index project when'; lrsIndexProjectMoment = 'Index project when';
lrsIndexProjectDelay1 = 'Mark indexable'; lrsIndexProjectDelay1 = 'in';
lrsIndexProjectDelay2 = 'minutes after open'; lrsIndexProjectDelay2 = 'minutes after open';
lrsMarkProjectIndexable = 'Mark project indexable for Instant Search'; lrsMarkProjectIndexable = 'Mark project indexable for Instant Search';
lrsIndexProject = 'Index project for Instant Search'; lrsIndexProject = 'Index project for Instant Search';