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:
juha 2015-05-17 11:41:43 +00:00
parent 19fc4377eb
commit e35b823e1b
2 changed files with 84 additions and 133 deletions

View File

@ -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'

View File

@ -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;