paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: add a choice to view relative paths in the found projects in ExampleManager.

Browse Source 
git-svn-id: trunk@41109 -
This commit is contained in:
juha 2013-05-10 09:07:19 +00:00
parent 14f0aec94d
commit 9634e0c285
2 changed files with 51 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/examplemanager.lfm
View File

@ -53,7 +53,7 @@ object ExampleManagerForm: TExampleManagerForm
TabOrder = 1
FilteredListbox = ProjectsListBox
end
object RelativeCheckBox: TCheckBox
object cbRelativePath: TCheckBox
AnchorSideLeft.Control = ProjectFilter
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ProjectFilter
@ -64,9 +64,8 @@ object ExampleManagerForm: TExampleManagerForm
Width = 113
BorderSpacing.Left = 50
Caption = 'Relative paths'
OnClick = RelativeCheckBoxClick
OnClick = cbRelativePathClick
TabOrder = 2
Visible = False
end
end
object ButtonPanel1: TButtonPanel

72
ide/examplemanager.pas
View File

@ -19,7 +19,7 @@ type
lbProjectCount: TLabel;
lbRootDirectory: TLabel;
SelectPanel: TPanel;
RelativeCheckBox: TCheckBox;
cbRelativePath: TCheckBox;
DescriptionMemo: TMemo;
Splitter1: TSplitter;
cbIncludeAllDirs: TCheckBox;
@ -41,7 +41,7 @@ type
procedure OpenSelectedButtonClick(Sender: TObject);
procedure ProjectFilterAfterFilter(Sender: TObject);
procedure ProjectsListBoxSelectionChange(Sender: TObject; User: boolean);
procedure RelativeCheckBoxClick(Sender: TObject);
procedure cbRelativePathClick(Sender: TObject);
procedure edRootDirectoryChange(Sender: TObject);
procedure SelectAllButtonClick(Sender: TObject);
procedure SelectNoneButtonClick(Sender: TObject);
@ -111,8 +111,13 @@ type
{ TListFileSearcher }
procedure TListFileSearcher.DoFileFound;
var
s: String;
begin
fForm.ProjectFilter.Items.Add(FileName);
s:=FileName;
if fForm.cbRelativePath.Checked then
s:=CreateRelativePath(s, fForm.edRootDirectory.Text);
fForm.ProjectFilter.Items.Add(s);
end;
constructor TListFileSearcher.Create(aForm: TExampleManagerForm);
@ -149,7 +154,7 @@ begin
ProjectsGroupBox.Caption:=lisMEProjects;
ActionGroupBox.Caption:=lisMEAction;
RelativeCheckBox.Caption:=lisRelativePaths;
cbRelativePath.Caption:=lisRelativePaths;
OpenSelectedButton.Caption:=lisExamplesOpenFirstSelected;
BuildAllSelectedButton.Caption:=lisExamplesBuildAllSelected;
SelectAllButton.Caption:=lisMenuSelectAll;
@ -206,26 +211,28 @@ begin
IncludedDirs:=TStringList.Create;
AllDirs:=Nil;
try
// Collect each matching directory name to a list.
if (edRootDirectory.Text<>'') and not cbIncludeAllDirs.Checked then
if edRootDirectory.Text<>'' then
begin
AllDirs:=FindAllDirectories(edRootDirectory.Text);
for i:=0 to AllDirs.Count-1 do
begin
LastDir:=ExtractFileName(AllDirs[i]);
for j:=Low(DirectoryChoices) to High(DirectoryChoices) do
if cbIncludeAllDirs.Checked then
// Add only the root directory name to list. Will find all projects in one go.
IncludedDirs.Add(edRootDirectory.Text)
else begin
// Collect each matching directory name to a list.
AllDirs:=FindAllDirectories(edRootDirectory.Text);
for i:=0 to AllDirs.Count-1 do
begin
if cgIncludedDirs.Checked[j] and (LastDir=DirectoryChoices[j]) then
LastDir:=ExtractFileName(AllDirs[i]);
for j:=Low(DirectoryChoices) to High(DirectoryChoices) do
begin
IncludedDirs.Add(AllDirs[i]);
Break;
if cgIncludedDirs.Checked[j] and (LastDir=DirectoryChoices[j]) then
begin
IncludedDirs.Add(AllDirs[i]);
Break;
end;
end;
end;
end;
end
// Add only the root directory name to list. Will find all projects in one go.
else if cbIncludeAllDirs.Checked then
IncludedDirs.Add(edRootDirectory.Text);
end;
ProjectFilter.Items.Clear;
// Find projects in all included directories.
for i:=0 to IncludedDirs.Count-1 do
@ -258,16 +265,21 @@ begin
end;
procedure TExampleManagerForm.OpenSelectedButtonClick(Sender: TObject);
var
s: String;
begin
if fFirstSelectedIndex <> -1 then
begin
if FileExistsUTF8(ProjectsListBox.Items[fFirstSelectedIndex]) then
s:=ProjectsListBox.Items[fFirstSelectedIndex];
if cbRelativePath.Checked then
s:=CreateAbsolutePath(s, edRootDirectory.Text);
if FileExistsUTF8(s) then
begin
fSelectedFilename:=ProjectsListBox.Items[fFirstSelectedIndex];
fSelectedFilename:=s;
ModalResult:=mrYes; // mrYes means the selected file will be opened.
end
else begin
ShowMessage(Format(lisFileNotFound3, [ProjectsListBox.Items[fFirstSelectedIndex]]));
ShowMessage(Format(lisFileNotFound3, [s]));
end;
end;
end;
@ -308,9 +320,23 @@ begin
ProjectsListBoxSelectionChange(ProjectsListBox, False);
end;
procedure TExampleManagerForm.RelativeCheckBoxClick(Sender: TObject);
procedure TExampleManagerForm.cbRelativePathClick(Sender: TObject);
var
IsRelative: Boolean;
i: Integer;
s: String;
begin
;
IsRelative:=(Sender as TCheckBox).Checked;
for i:=0 to ProjectFilter.Items.Count-1 do
begin
s:=ProjectFilter.Items[i];
if IsRelative then
s:=CreateRelativePath(s, edRootDirectory.Text)
else
s:=CreateAbsolutePath(s, edRootDirectory.Text);
ProjectFilter.Items[i]:=s;
end;
ProjectFilter.InvalidateFilter;
end;
// Project list selection changes. Adjust buttons.