paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 16:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

cody: unit deps: all units: filter

Browse Source 
git-svn-id: trunk@41748 -
This commit is contained in:
mattias 2013-06-17 15:04:59 +00:00
parent a7678fdc2f
commit 9d8484dea9
2 changed files with 37 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/ide/codyunitdepwnd.lfm
View File

@ -1,7 +1,7 @@
object UnitDependenciesWindow: TUnitDependenciesWindow
Left = 319
Left = 1177
Height = 440
Top = 174
Top = 154
Width = 620
Caption = 'UnitDependenciesWindow'
ClientHeight = 440
@ -182,6 +182,8 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
Width = 175
Anchors = [akTop, akLeft, akRight]
OnChange = AllUnitsFilterEditChange
OnEnter = AllUnitsFilterEditEnter
OnExit = AllUnitsFilterEditExit
TabOrder = 0
Text = 'AllUnitsFilterEdit'
end

38
components/codetools/ide/codyunitdepwnd.pas
View File

@ -139,6 +139,8 @@ type
UnitsTabSheet: TTabSheet;
Timer1: TTimer;
procedure AllUnitsFilterEditChange(Sender: TObject);
procedure AllUnitsFilterEditEnter(Sender: TObject);
procedure AllUnitsFilterEditExit(Sender: TObject);
procedure AllUnitsMultiselectSpeedButtonClick(Sender: TObject);
procedure AllUnitsShowDirsSpeedButtonClick(Sender: TObject);
procedure AllUnitsShowGroupNodesSpeedButtonClick(Sender: TObject);
@ -189,6 +191,8 @@ type
function IsFPCSrcGroup(Group: TUGGroup): boolean;
function IsProjectGroup(Group: TUGGroup): boolean;
function GetAllUnitsFilter: string;
function ResStrFilter: string;
function ResStrSearch: string;
public
GroupsLvlGraph: TLvlGraphControl; // Nodes.Data are TUGGroup of Groups
UnitsLvlGraph: TLvlGraphControl; // Nodes.Data are Units in Groups
@ -335,6 +339,18 @@ begin
IdleConnected:=true;
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:=ResStrSearch;
end;
procedure TUnitDependenciesWindow.FormDestroy(Sender: TObject);
begin
IdleConnected:=false;
@ -831,14 +847,16 @@ begin
// view all units
AllUnitsGroupBox.Caption:='All units';
AllUnitsFilterEdit.Text:='(Filter)';
AllUnitsFilterEdit.Text:=ResStrFilter;
AllUnitsMultiselectSpeedButton.Hint:='Allow to select multiple units';
AllUnitsShowDirsSpeedButton.Hint:='Show nodes for directories';
AllUnitsShowDirsSpeedButton.LoadGlyphFromLazarusResource('pkg_hierarchical');
AllUnitsShowDirsSpeedButton.Down:=true;
AllUnitsShowGroupNodesSpeedButton.Hint:='Show nodes for project and packages';
AllUnitsShowGroupNodesSpeedButton.LoadGlyphFromLazarusResource('pkg_hierarchical');
AllUnitsShowGroupNodesSpeedButton.Down:=true;
AllUnitsSearchEdit.Text:='(Search)';
AllUnitsSearchEdit.Text:=ResStrSearch;
AllUnitsSearchNextSpeedButton.Hint:='Search next occurence of this phrase';
AllUnitsSearchNextSpeedButton.LoadGlyphFromLazarusResource('arrow_down');
AllUnitsSearchPrevSpeedButton.Hint:='Search previous occurence of this phrase';
@ -846,7 +864,7 @@ begin
// selected units
SelectedUnitsGroupBox.Caption:='Selected units';
SelUnitsSearchEdit.Text:='(Search)';
SelUnitsSearchEdit.Text:=ResStrSearch;
SelUnitsSearchNextSpeedButton.Hint:='Search next unit of this phrase';
SelUnitsSearchNextSpeedButton.LoadGlyphFromLazarusResource('arrow_down');
SelUnitsSearchPrevSpeedButton.Hint:='Search previous unit of this phrase';
@ -1052,7 +1070,7 @@ begin
TV:=AllUnitsTreeView;
TV.BeginUpdate;
// save old expanded state
if TV.Items.Count>1 then
if (TV.Items.Count>1) and (GetAllUnitsFilter='') then
OldExpanded:=TTreeNodeExpandedState.Create(TV)
else
OldExpanded:=nil;
@ -1129,10 +1147,20 @@ end;
function TUnitDependenciesWindow.GetAllUnitsFilter: string;
begin
Result:=AllUnitsFilterEdit.Text;
if Result='(Filter)' then
if Result=ResStrFilter then
Result:='';
end;
function TUnitDependenciesWindow.ResStrFilter: string;
begin
Result:='(Filter)';
end;
function TUnitDependenciesWindow.ResStrSearch: string;
begin
Result:='(Search)';
end;
{$R *.lfm}
end.