forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

libman, sel source root, dont solve shortcuts

This commit is contained in:
Basile Burg 2016-12-24 06:10:03 +01:00
parent 205f8080bd
commit d39cea7f1f
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/ce_libmaneditor.pas
View File

@ -711,7 +711,7 @@ var
begin begin
if List.Selected.isNil then if List.Selected.isNil then
exit; exit;
//
ini := List.Selected.SubItems[2]; ini := List.Selected.SubItems[2];
with TOpenDialog.Create(nil) do with TOpenDialog.Create(nil) do
try try
@ -730,7 +730,7 @@ var
begin begin
if List.Selected.isNil then if List.Selected.isNil then
exit; exit;
//
ini := List.Selected.SubItems[0]; ini := List.Selected.SubItems[0];
with TOpenDialog.Create(nil) do with TOpenDialog.Create(nil) do
try try
@ -759,7 +759,7 @@ var
begin begin
if List.Selected.isNil then if List.Selected.isNil then
exit; exit;
//
dir := List.Selected.SubItems[0]; dir := List.Selected.SubItems[0];
if selectDirectory('folder of static libraries', dir, outdir, True, 0) then if selectDirectory('folder of static libraries', dir, outdir, True, 0) then
List.Selected.SubItems[0] := outdir; List.Selected.SubItems[0] := outdir;
@ -772,10 +772,18 @@ var
begin begin
if List.Selected.isNil then if List.Selected.isNil then
exit; exit;
//
dir := List.Selected.SubItems[1]; dir := List.Selected.SubItems[1];
if selectDirectory('sources root', dir, outdir, True, 0) then with TSelectDirectoryDialog.Create(nil) do
List.Selected.SubItems[1] := outdir; try
InitialDir:= dir;
Caption := 'sources root';
Options := options + [ofNoDereferenceLinks, ofForceShowHidden];
if execute then
List.Selected.SubItems[1] := FileName;
finally
free;
end;
RowToLibrary(List.Selected); RowToLibrary(List.Selected);
end; end;
@ -787,7 +795,7 @@ begin
exit; exit;
if list.Selected.Index = 0 then if list.Selected.Index = 0 then
exit; exit;
//
i := list.Selected.Index; i := list.Selected.Index;
list.Items.Exchange(i, i - 1); list.Items.Exchange(i, i - 1);
LibMan.libraries.Exchange(i, i - 1); LibMan.libraries.Exchange(i, i - 1);
@ -801,7 +809,7 @@ begin
exit; exit;
if list.Selected.Index = list.Items.Count - 1 then if list.Selected.Index = list.Items.Count - 1 then
exit; exit;
//
i := list.Selected.Index; i := list.Selected.Index;
list.Items.Exchange(i, i + 1); list.Items.Exchange(i, i + 1);
LibMan.libraries.Exchange(i, i + 1); LibMan.libraries.Exchange(i, i + 1);