mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 05:29:29 +02:00
IDE: Use TextHint, fix taborder, delele border of panel in UnitDep dialog. Issue #28052, patch from Alexey Torgashin.
git-svn-id: trunk@49064 -
This commit is contained in:
parent
19fc4377eb
commit
e35b823e1b
@ -8,11 +8,12 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
ClientWidth = 620
|
ClientWidth = 620
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
OnDestroy = FormDestroy
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
LCLVersion = '1.3'
|
LCLVersion = '1.5'
|
||||||
object MainPageControl: TPageControl
|
object MainPageControl: TPageControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 407
|
Height = 409
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 620
|
Width = 620
|
||||||
ActivePage = UnitsTabSheet
|
ActivePage = UnitsTabSheet
|
||||||
@ -21,26 +22,27 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object UnitsTabSheet: TTabSheet
|
object UnitsTabSheet: TTabSheet
|
||||||
Caption = 'UnitsTabSheet'
|
Caption = 'UnitsTabSheet'
|
||||||
ClientHeight = 378
|
ClientHeight = 381
|
||||||
ClientWidth = 616
|
ClientWidth = 612
|
||||||
object ScopePanel: TPanel
|
object ScopePanel: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 59
|
Height = 48
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 616
|
Width = 612
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ClientHeight = 59
|
BevelOuter = bvNone
|
||||||
ClientWidth = 616
|
ClientHeight = 48
|
||||||
|
ClientWidth = 612
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object SearchCustomFilesCheckBox: TCheckBox
|
object SearchCustomFilesCheckBox: TCheckBox
|
||||||
AnchorSideLeft.Control = ScopePanel
|
AnchorSideLeft.Control = ScopePanel
|
||||||
AnchorSideTop.Control = SearchCustomFilesComboBox
|
AnchorSideTop.Control = SearchCustomFilesComboBox
|
||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
Left = 3
|
Left = 2
|
||||||
Height = 24
|
Height = 19
|
||||||
Top = 4
|
Top = 4
|
||||||
Width = 182
|
Width = 172
|
||||||
BorderSpacing.Around = 2
|
BorderSpacing.Around = 2
|
||||||
Caption = 'SearchCustomFilesCheckBox'
|
Caption = 'SearchCustomFilesCheckBox'
|
||||||
OnChange = SearchCustomFilesCheckBoxChange
|
OnChange = SearchCustomFilesCheckBoxChange
|
||||||
@ -54,40 +56,40 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = ScopePanel
|
AnchorSideRight.Control = ScopePanel
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 562
|
Left = 548
|
||||||
Height = 27
|
Height = 25
|
||||||
Top = 3
|
Top = 1
|
||||||
Width = 53
|
Width = 64
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = 'Browse'
|
Caption = 'Browse'
|
||||||
OnClick = SearchCustomFilesBrowseButtonClick
|
OnClick = SearchCustomFilesBrowseButtonClick
|
||||||
TabOrder = 1
|
TabOrder = 2
|
||||||
end
|
end
|
||||||
object SearchCustomFilesComboBox: TComboBox
|
object SearchCustomFilesComboBox: TComboBox
|
||||||
AnchorSideLeft.Control = SearchCustomFilesCheckBox
|
AnchorSideLeft.Control = SearchCustomFilesCheckBox
|
||||||
AnchorSideLeft.Side = asrBottom
|
AnchorSideLeft.Side = asrBottom
|
||||||
AnchorSideTop.Control = ScopePanel
|
AnchorSideTop.Control = ScopePanel
|
||||||
AnchorSideRight.Control = SearchCustomFilesBrowseButton
|
AnchorSideRight.Control = SearchCustomFilesBrowseButton
|
||||||
Left = 187
|
Left = 176
|
||||||
Height = 27
|
Height = 23
|
||||||
Top = 3
|
Top = 2
|
||||||
Width = 373
|
Width = 370
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
BorderSpacing.Around = 2
|
BorderSpacing.Around = 2
|
||||||
ItemHeight = 0
|
ItemHeight = 15
|
||||||
OnChange = SearchCustomFilesComboBoxChange
|
OnChange = SearchCustomFilesComboBoxChange
|
||||||
TabOrder = 2
|
TabOrder = 1
|
||||||
Text = 'SearchCustomFilesComboBox'
|
Text = 'SearchCustomFilesComboBox'
|
||||||
end
|
end
|
||||||
object SearchPkgsCheckBox: TCheckBox
|
object SearchPkgsCheckBox: TCheckBox
|
||||||
AnchorSideLeft.Control = ScopePanel
|
AnchorSideLeft.Control = ScopePanel
|
||||||
AnchorSideTop.Control = SearchCustomFilesComboBox
|
AnchorSideTop.Control = SearchCustomFilesComboBox
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 3
|
Left = 2
|
||||||
Height = 24
|
Height = 19
|
||||||
Top = 32
|
Top = 27
|
||||||
Width = 142
|
Width = 132
|
||||||
BorderSpacing.Around = 2
|
BorderSpacing.Around = 2
|
||||||
Caption = 'SearchPkgsCheckBox'
|
Caption = 'SearchPkgsCheckBox'
|
||||||
OnChange = SearchPkgsCheckBoxChange
|
OnChange = SearchPkgsCheckBoxChange
|
||||||
@ -98,10 +100,10 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideLeft.Side = asrBottom
|
AnchorSideLeft.Side = asrBottom
|
||||||
AnchorSideTop.Control = SearchPkgsCheckBox
|
AnchorSideTop.Control = SearchPkgsCheckBox
|
||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
Left = 162
|
Left = 151
|
||||||
Height = 24
|
Height = 19
|
||||||
Top = 32
|
Top = 27
|
||||||
Width = 156
|
Width = 143
|
||||||
BorderSpacing.Left = 15
|
BorderSpacing.Left = 15
|
||||||
BorderSpacing.Around = 2
|
BorderSpacing.Around = 2
|
||||||
Caption = 'SearchSrcEditCheckBox'
|
Caption = 'SearchSrcEditCheckBox'
|
||||||
@ -113,12 +115,12 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
end
|
end
|
||||||
object AllUnitsGroupBox: TGroupBox
|
object AllUnitsGroupBox: TGroupBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 319
|
Height = 333
|
||||||
Top = 59
|
Top = 48
|
||||||
Width = 248
|
Width = 248
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
Caption = 'AllUnitsGroupBox'
|
Caption = 'AllUnitsGroupBox'
|
||||||
ClientHeight = 302
|
ClientHeight = 313
|
||||||
ClientWidth = 244
|
ClientWidth = 244
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object AllUnitsShowGroupNodesSpeedButton: TSpeedButton
|
object AllUnitsShowGroupNodesSpeedButton: TSpeedButton
|
||||||
@ -128,7 +130,7 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideRight.Control = AllUnitsShowDirsSpeedButton
|
AnchorSideRight.Control = AllUnitsShowDirsSpeedButton
|
||||||
Left = 198
|
Left = 198
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 1
|
Top = 0
|
||||||
Width = 23
|
Width = 23
|
||||||
AllowAllUp = True
|
AllowAllUp = True
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
@ -145,7 +147,7 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 221
|
Left = 221
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 1
|
Top = 0
|
||||||
Width = 23
|
Width = 23
|
||||||
AllowAllUp = True
|
AllowAllUp = True
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
@ -159,15 +161,12 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideTop.Control = AllUnitsGroupBox
|
AnchorSideTop.Control = AllUnitsGroupBox
|
||||||
AnchorSideRight.Control = AllUnitsShowGroupNodesSpeedButton
|
AnchorSideRight.Control = AllUnitsShowGroupNodesSpeedButton
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 25
|
Height = 23
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 198
|
Width = 198
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
OnChange = AllUnitsFilterEditChange
|
OnChange = AllUnitsFilterEditChange
|
||||||
OnEnter = AllUnitsFilterEditEnter
|
|
||||||
OnExit = AllUnitsFilterEditExit
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Text = 'AllUnitsFilterEdit'
|
|
||||||
end
|
end
|
||||||
object AllUnitsSearchNextSpeedButton: TSpeedButton
|
object AllUnitsSearchNextSpeedButton: TSpeedButton
|
||||||
AnchorSideTop.Control = AllUnitsSearchEdit
|
AnchorSideTop.Control = AllUnitsSearchEdit
|
||||||
@ -175,7 +174,7 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideRight.Control = AllUnitsSearchPrevSpeedButton
|
AnchorSideRight.Control = AllUnitsSearchPrevSpeedButton
|
||||||
Left = 198
|
Left = 198
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 278
|
Top = 290
|
||||||
Width = 23
|
Width = 23
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
OnClick = AllUnitsSearchNextSpeedButtonClick
|
OnClick = AllUnitsSearchNextSpeedButtonClick
|
||||||
@ -189,7 +188,7 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 221
|
Left = 221
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 278
|
Top = 290
|
||||||
Width = 23
|
Width = 23
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
OnClick = AllUnitsSearchPrevSpeedButtonClick
|
OnClick = AllUnitsSearchPrevSpeedButtonClick
|
||||||
@ -204,8 +203,8 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
AnchorSideBottom.Control = AllUnitsSearchEdit
|
AnchorSideBottom.Control = AllUnitsSearchEdit
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 252
|
Height = 267
|
||||||
Top = 25
|
Top = 23
|
||||||
Width = 244
|
Width = 244
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
DefaultItemHeight = 18
|
DefaultItemHeight = 18
|
||||||
@ -229,40 +228,37 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideBottom.Control = AllUnitsGroupBox
|
AnchorSideBottom.Control = AllUnitsGroupBox
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 25
|
Height = 23
|
||||||
Top = 277
|
Top = 290
|
||||||
Width = 198
|
Width = 198
|
||||||
Anchors = [akLeft, akRight, akBottom]
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
OnChange = AllUnitsSearchEditChange
|
OnChange = AllUnitsSearchEditChange
|
||||||
OnEnter = AllUnitsSearchEditEnter
|
|
||||||
OnExit = AllUnitsSearchEditExit
|
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Text = 'AllUnitsSearchEdit'
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object UnitsSplitter: TSplitter
|
object UnitsSplitter: TSplitter
|
||||||
Left = 248
|
Left = 248
|
||||||
Height = 319
|
Height = 333
|
||||||
Top = 59
|
Top = 48
|
||||||
Width = 5
|
Width = 5
|
||||||
end
|
end
|
||||||
object SelectedUnitsGroupBox: TGroupBox
|
object SelectedUnitsGroupBox: TGroupBox
|
||||||
Left = 253
|
Left = 253
|
||||||
Height = 319
|
Height = 333
|
||||||
Top = 59
|
Top = 48
|
||||||
Width = 363
|
Width = 359
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'SelectedUnitsGroupBox'
|
Caption = 'SelectedUnitsGroupBox'
|
||||||
ClientHeight = 302
|
ClientHeight = 313
|
||||||
ClientWidth = 359
|
ClientWidth = 355
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
object SelUnitsSearchNextSpeedButton: TSpeedButton
|
object SelUnitsSearchNextSpeedButton: TSpeedButton
|
||||||
AnchorSideTop.Control = SelUnitsSearchEdit
|
AnchorSideTop.Control = SelUnitsSearchEdit
|
||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = SelUnitsSearchPrevSpeedButton
|
AnchorSideRight.Control = SelUnitsSearchPrevSpeedButton
|
||||||
Left = 313
|
Left = 309
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 278
|
Top = 290
|
||||||
Width = 23
|
Width = 23
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
OnClick = SelUnitsSearchNextSpeedButtonClick
|
OnClick = SelUnitsSearchNextSpeedButtonClick
|
||||||
@ -274,9 +270,9 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = SelectedUnitsGroupBox
|
AnchorSideRight.Control = SelectedUnitsGroupBox
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 336
|
Left = 332
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 278
|
Top = 290
|
||||||
Width = 23
|
Width = 23
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
OnClick = SelUnitsSearchPrevSpeedButtonClick
|
OnClick = SelUnitsSearchPrevSpeedButtonClick
|
||||||
@ -289,15 +285,12 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideBottom.Control = SelectedUnitsGroupBox
|
AnchorSideBottom.Control = SelectedUnitsGroupBox
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 25
|
Height = 23
|
||||||
Top = 277
|
Top = 290
|
||||||
Width = 313
|
Width = 309
|
||||||
Anchors = [akLeft, akRight, akBottom]
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
OnChange = SelUnitsSearchEditChange
|
OnChange = SelUnitsSearchEditChange
|
||||||
OnEnter = SelUnitsSearchEditEnter
|
TabOrder = 1
|
||||||
OnExit = SelUnitsSearchEditExit
|
|
||||||
TabOrder = 0
|
|
||||||
Text = 'SelUnitsSearchEdit'
|
|
||||||
end
|
end
|
||||||
object SelUnitsTreeView: TTreeView
|
object SelUnitsTreeView: TTreeView
|
||||||
AnchorSideLeft.Control = SelectedUnitsGroupBox
|
AnchorSideLeft.Control = SelectedUnitsGroupBox
|
||||||
@ -306,9 +299,9 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
AnchorSideBottom.Control = SelUnitsSearchEdit
|
AnchorSideBottom.Control = SelUnitsSearchEdit
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 277
|
Height = 290
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 359
|
Width = 355
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
DefaultItemHeight = 18
|
DefaultItemHeight = 18
|
||||||
HotTrack = True
|
HotTrack = True
|
||||||
@ -318,7 +311,7 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
RightClickSelect = True
|
RightClickSelect = True
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
ShowRoot = False
|
ShowRoot = False
|
||||||
TabOrder = 1
|
TabOrder = 0
|
||||||
OnExpanding = SelUnitsTreeViewExpanding
|
OnExpanding = SelUnitsTreeViewExpanding
|
||||||
OnMouseDown = UnitsTreeViewMouseDown
|
OnMouseDown = UnitsTreeViewMouseDown
|
||||||
OnShowHint = UnitsTreeViewShowHint
|
OnShowHint = UnitsTreeViewShowHint
|
||||||
@ -343,12 +336,12 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
end
|
end
|
||||||
object StatusPanel: TPanel
|
object StatusPanel: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 33
|
Height = 31
|
||||||
Top = 407
|
Top = 409
|
||||||
Width = 620
|
Width = 620
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ClientHeight = 33
|
ClientHeight = 31
|
||||||
ClientWidth = 620
|
ClientWidth = 620
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object ProgressBar1: TProgressBar
|
object ProgressBar1: TProgressBar
|
||||||
@ -358,18 +351,18 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = RefreshButton
|
AnchorSideRight.Control = RefreshButton
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 69
|
Left = 66
|
||||||
Height = 20
|
Height = 20
|
||||||
Top = 6
|
Top = 5
|
||||||
Width = 451
|
Width = 448
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
end
|
end
|
||||||
object RefreshButton: TButton
|
object RefreshButton: TButton
|
||||||
Left = 522
|
Left = 516
|
||||||
Height = 27
|
Height = 25
|
||||||
Top = 3
|
Top = 3
|
||||||
Width = 95
|
Width = 101
|
||||||
Align = alRight
|
Align = alRight
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BorderSpacing.Around = 2
|
BorderSpacing.Around = 2
|
||||||
@ -383,8 +376,8 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
|
|||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
Left = 7
|
Left = 7
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 9
|
Top = 8
|
||||||
Width = 56
|
Width = 53
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
Caption = 'StatsLabel'
|
Caption = 'StatsLabel'
|
||||||
|
@ -176,15 +176,12 @@ type
|
|||||||
UnitsTabSheet: TTabSheet;
|
UnitsTabSheet: TTabSheet;
|
||||||
UnitsTVPopupMenu: TPopupMenu;
|
UnitsTVPopupMenu: TPopupMenu;
|
||||||
procedure AllUnitsFilterEditChange(Sender: TObject);
|
procedure AllUnitsFilterEditChange(Sender: TObject);
|
||||||
procedure AllUnitsFilterEditEnter(Sender: TObject);
|
|
||||||
procedure AllUnitsFilterEditExit(Sender: TObject);
|
|
||||||
procedure AllUnitsSearchEditChange(Sender: TObject);
|
procedure AllUnitsSearchEditChange(Sender: TObject);
|
||||||
procedure AllUnitsSearchEditEnter(Sender: TObject);
|
|
||||||
procedure AllUnitsSearchEditExit(Sender: TObject);
|
|
||||||
procedure AllUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
procedure AllUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
||||||
procedure AllUnitsSearchPrevSpeedButtonClick(Sender: TObject);
|
procedure AllUnitsSearchPrevSpeedButtonClick(Sender: TObject);
|
||||||
procedure AllUnitsShowDirsSpeedButtonClick(Sender: TObject);
|
procedure AllUnitsShowDirsSpeedButtonClick(Sender: TObject);
|
||||||
procedure AllUnitsShowGroupNodesSpeedButtonClick(Sender: TObject);
|
procedure AllUnitsShowGroupNodesSpeedButtonClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
procedure RefreshButtonClick(Sender: TObject);
|
procedure RefreshButtonClick(Sender: TObject);
|
||||||
procedure SelUnitsTreeViewExpanding(Sender: TObject; Node: TTreeNode;
|
procedure SelUnitsTreeViewExpanding(Sender: TObject; Node: TTreeNode;
|
||||||
var AllowExpansion: Boolean);
|
var AllowExpansion: Boolean);
|
||||||
@ -203,8 +200,6 @@ type
|
|||||||
procedure SearchPkgsCheckBoxChange(Sender: TObject);
|
procedure SearchPkgsCheckBoxChange(Sender: TObject);
|
||||||
procedure SearchSrcEditCheckBoxChange(Sender: TObject);
|
procedure SearchSrcEditCheckBoxChange(Sender: TObject);
|
||||||
procedure SelUnitsSearchEditChange(Sender: TObject);
|
procedure SelUnitsSearchEditChange(Sender: TObject);
|
||||||
procedure SelUnitsSearchEditEnter(Sender: TObject);
|
|
||||||
procedure SelUnitsSearchEditExit(Sender: TObject);
|
|
||||||
procedure SelUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
procedure SelUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
||||||
procedure SelUnitsSearchPrevSpeedButtonClick(Sender: TObject);
|
procedure SelUnitsSearchPrevSpeedButtonClick(Sender: TObject);
|
||||||
procedure SearchCustomFilesBrowseButtonClick(Sender: TObject);
|
procedure SearchCustomFilesBrowseButtonClick(Sender: TObject);
|
||||||
@ -568,18 +563,6 @@ begin
|
|||||||
IdleConnected:=true;
|
IdleConnected:=true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.AllUnitsSearchEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if AllUnitsSearchEdit.Text=ResStrSearch then
|
|
||||||
AllUnitsSearchEdit.Text:='';
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.AllUnitsSearchEditExit(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if AllUnitsSearchEdit.Text='' then
|
|
||||||
AllUnitsSearchEdit.Text:=ResStrSearch;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.AllUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
procedure TUnitDependenciesWindow.AllUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SelectNextSearchTV(AllUnitsTreeView,AllUnitsTreeView.Selected,true,true);
|
SelectNextSearchTV(AllUnitsTreeView,AllUnitsTreeView.Selected,true,true);
|
||||||
@ -604,6 +587,13 @@ begin
|
|||||||
IdleConnected:=true;
|
IdleConnected:=true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TUnitDependenciesWindow.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AllUnitsFilterEdit.TextHint:=ResStrFilter;
|
||||||
|
AllUnitsSearchEdit.TextHint:=ResStrSearch;
|
||||||
|
SelUnitsSearchEdit.TextHint:=ResStrSearch;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.RefreshButtonClick(Sender: TObject);
|
procedure TUnitDependenciesWindow.RefreshButtonClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if udwParsing in FFlags then exit;
|
if udwParsing in FFlags then exit;
|
||||||
@ -768,17 +758,6 @@ begin
|
|||||||
IdleConnected:=true;
|
IdleConnected:=true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.AllUnitsFilterEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if AllUnitsFilterEdit.Text=ResStrFilter then
|
|
||||||
AllUnitsFilterEdit.Text:='';
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.AllUnitsFilterEditExit(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if AllUnitsFilterEdit.Text='' then
|
|
||||||
AllUnitsFilterEdit.Text:=ResStrFilter;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.FormDestroy(Sender: TObject);
|
procedure TUnitDependenciesWindow.FormDestroy(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
@ -859,18 +838,6 @@ begin
|
|||||||
IdleConnected:=true;
|
IdleConnected:=true;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.SelUnitsSearchEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if SelUnitsSearchEdit.Text=ResStrSearch then
|
|
||||||
SelUnitsSearchEdit.Text:='';
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.SelUnitsSearchEditExit(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if SelUnitsSearchEdit.Text='' then
|
|
||||||
SelUnitsSearchEdit.Text:=ResStrSearch;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitDependenciesWindow.SelUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
procedure TUnitDependenciesWindow.SelUnitsSearchNextSpeedButtonClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SelectNextSearchTV(SelUnitsTreeView,SelUnitsTreeView.Selected,true,true);
|
SelectNextSearchTV(SelUnitsTreeView,SelUnitsTreeView.Selected,true,true);
|
||||||
@ -1799,7 +1766,6 @@ begin
|
|||||||
// view all units
|
// view all units
|
||||||
AllUnitsGroupBox.Caption:=lisUDAllUnits;
|
AllUnitsGroupBox.Caption:=lisUDAllUnits;
|
||||||
|
|
||||||
AllUnitsFilterEdit.Text:=ResStrFilter;
|
|
||||||
AllUnitsShowDirsSpeedButton.Hint:=lisUDShowNodesForDirectories;
|
AllUnitsShowDirsSpeedButton.Hint:=lisUDShowNodesForDirectories;
|
||||||
AllUnitsShowDirsSpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
|
AllUnitsShowDirsSpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
|
||||||
AllUnitsShowDirsSpeedButton.Down:=true;
|
AllUnitsShowDirsSpeedButton.Down:=true;
|
||||||
@ -1807,7 +1773,6 @@ begin
|
|||||||
AllUnitsShowGroupNodesSpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
|
AllUnitsShowGroupNodesSpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
|
||||||
AllUnitsShowGroupNodesSpeedButton.Down:=true;
|
AllUnitsShowGroupNodesSpeedButton.Down:=true;
|
||||||
|
|
||||||
AllUnitsSearchEdit.Text:=ResStrSearch;
|
|
||||||
AllUnitsSearchNextSpeedButton.Hint:=lisUDSearchNextOccurrenceOfThisPhrase;
|
AllUnitsSearchNextSpeedButton.Hint:=lisUDSearchNextOccurrenceOfThisPhrase;
|
||||||
AllUnitsSearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
|
AllUnitsSearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
|
||||||
AllUnitsSearchPrevSpeedButton.Hint:=lisUDSearchPreviousOccurrenceOfThisPhrase;
|
AllUnitsSearchPrevSpeedButton.Hint:=lisUDSearchPreviousOccurrenceOfThisPhrase;
|
||||||
@ -1815,7 +1780,6 @@ begin
|
|||||||
|
|
||||||
// selected units
|
// selected units
|
||||||
SelectedUnitsGroupBox.Caption:=lisUDSelectedUnits;
|
SelectedUnitsGroupBox.Caption:=lisUDSelectedUnits;
|
||||||
SelUnitsSearchEdit.Text:=ResStrSearch;
|
|
||||||
SelUnitsSearchNextSpeedButton.Hint:=lisUDSearchNextUnitOfThisPhrase;
|
SelUnitsSearchNextSpeedButton.Hint:=lisUDSearchNextUnitOfThisPhrase;
|
||||||
SelUnitsSearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
|
SelUnitsSearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
|
||||||
SelUnitsSearchPrevSpeedButton.Hint:=lisUDSearchPreviousUnitOfThisPhrase;
|
SelUnitsSearchPrevSpeedButton.Hint:=lisUDSearchPreviousUnitOfThisPhrase;
|
||||||
@ -2274,27 +2238,21 @@ end;
|
|||||||
function TUnitDependenciesWindow.GetAllUnitsFilter(Lower: boolean): string;
|
function TUnitDependenciesWindow.GetAllUnitsFilter(Lower: boolean): string;
|
||||||
begin
|
begin
|
||||||
Result:=AllUnitsFilterEdit.Text;
|
Result:=AllUnitsFilterEdit.Text;
|
||||||
if Result=ResStrFilter then
|
if Lower then
|
||||||
Result:=''
|
|
||||||
else if Lower then
|
|
||||||
Result:=UTF8LowerCase(Result);
|
Result:=UTF8LowerCase(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TUnitDependenciesWindow.GetAllUnitsSearch(Lower: boolean): string;
|
function TUnitDependenciesWindow.GetAllUnitsSearch(Lower: boolean): string;
|
||||||
begin
|
begin
|
||||||
Result:=AllUnitsSearchEdit.Text;
|
Result:=AllUnitsSearchEdit.Text;
|
||||||
if Result=ResStrSearch then
|
if Lower then
|
||||||
Result:=''
|
|
||||||
else if Lower then
|
|
||||||
Result:=UTF8LowerCase(Result);
|
Result:=UTF8LowerCase(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TUnitDependenciesWindow.GetSelUnitsSearch(Lower: boolean): string;
|
function TUnitDependenciesWindow.GetSelUnitsSearch(Lower: boolean): string;
|
||||||
begin
|
begin
|
||||||
Result:=SelUnitsSearchEdit.Text;
|
Result:=SelUnitsSearchEdit.Text;
|
||||||
if Result=ResStrSearch then
|
if Lower then
|
||||||
Result:=''
|
|
||||||
else if Lower then
|
|
||||||
Result:=UTF8LowerCase(Result);
|
Result:=UTF8LowerCase(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user