Skip to content

Commit d55bf69

Browse files
Merge pull request #4 from martinstoeckli/feature/finishing
Feature/finishing
2 parents 170fbbe + 5cd61b6 commit d55bf69

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

42 files changed

+3877
-1985
lines changed

design/ExplorerGenie.svg

Lines changed: 1872 additions & 1781 deletions
Loading

screenshots/explorergenie.png

1.77 KB
Loading

src/ExplorerGenie.groupproj

Lines changed: 15 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,9 @@
66
<Projects Include="ExplorerGenieExt\ExplorerGenieExt.dproj">
77
<Dependencies/>
88
</Projects>
9+
<Projects Include="ExplorerGenieExtTest\ExplorerGenieExtTest.dproj">
10+
<Dependencies/>
11+
</Projects>
912
</ItemGroup>
1013
<ProjectExtensions>
1114
<Borland.Personality>Default.Personality.12</Borland.Personality>
@@ -23,14 +26,23 @@
2326
<Target Name="ExplorerGenieExt:Make">
2427
<MSBuild Projects="ExplorerGenieExt\ExplorerGenieExt.dproj" Targets="Make"/>
2528
</Target>
29+
<Target Name="ExplorerGenieExtTest">
30+
<MSBuild Projects="ExplorerGenieExtTest\ExplorerGenieExtTest.dproj"/>
31+
</Target>
32+
<Target Name="ExplorerGenieExtTest:Clean">
33+
<MSBuild Projects="ExplorerGenieExtTest\ExplorerGenieExtTest.dproj" Targets="Clean"/>
34+
</Target>
35+
<Target Name="ExplorerGenieExtTest:Make">
36+
<MSBuild Projects="ExplorerGenieExtTest\ExplorerGenieExtTest.dproj" Targets="Make"/>
37+
</Target>
2638
<Target Name="Build">
27-
<CallTarget Targets="ExplorerGenieExt"/>
39+
<CallTarget Targets="ExplorerGenieExt;ExplorerGenieExtTest"/>
2840
</Target>
2941
<Target Name="Clean">
30-
<CallTarget Targets="ExplorerGenieExt:Clean"/>
42+
<CallTarget Targets="ExplorerGenieExt:Clean;ExplorerGenieExtTest:Clean"/>
3143
</Target>
3244
<Target Name="Make">
33-
<CallTarget Targets="ExplorerGenieExt:Make"/>
45+
<CallTarget Targets="ExplorerGenieExt:Make;ExplorerGenieExtTest:Make"/>
3446
</Target>
3547
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
3648
</Project>

src/ExplorerGenieCmd/CmdActionCopyEmail.cs

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,13 +4,15 @@
44
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
55

66
using System.Collections.Generic;
7-
using System.Windows;
87
using ExplorerGenieShared;
98
using ExplorerGenieShared.Models;
109
using ExplorerGenieShared.Services;
1110

1211
namespace ExplorerGenieCmd
1312
{
13+
/// <summary>
14+
/// This action copies the filename(s) to the Windows clipboard, to be used inside emails.
15+
/// </summary>
1416
internal class CmdActionCopyEmail : ICmdAction
1517
{
1618
private readonly ISettingsService _settingsService;
@@ -34,7 +36,7 @@ public void Execute(List<string> filenames)
3436
PathUtils.ConvertForCopyEmailAction(filenames, settings);
3537

3638
string clipboardText = string.Join(separator, filenames);
37-
Clipboard.SetText(clipboardText);
39+
Win32ApiClipboard.TrySetText(clipboardText);
3840
}
3941
}
4042
}

src/ExplorerGenieCmd/CmdActionCopyFile.cs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,6 @@
44
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
55

66
using System.Collections.Generic;
7-
using System.Windows;
87
using ExplorerGenieShared;
98
using ExplorerGenieShared.Models;
109
using ExplorerGenieShared.Services;
@@ -37,7 +36,7 @@ public void Execute(List<string> filenames)
3736
PathUtils.ConvertForCopyFileAction(filenames, settings);
3837

3938
string clipboardText = string.Join(separator, filenames);
40-
Clipboard.SetText(clipboardText);
39+
Win32ApiClipboard.TrySetText(clipboardText);
4140
}
4241
}
4342
}

src/ExplorerGenieCmd/CmdActionFactory.cs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -38,7 +38,7 @@ public ICmdAction CreateAction(string commandLineOption)
3838
}
3939
else if ("-CopyEmail".Equals(commandLineOption, StringComparison.OrdinalIgnoreCase))
4040
{
41-
return new CmdActionCopyFile(_settingsService);
41+
return new CmdActionCopyEmail(_settingsService);
4242
}
4343
else
4444
{

src/ExplorerGenieCmd/ExplorerGenieCmd.csproj

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -53,9 +53,7 @@
5353
<Reference Include="PresentationFramework" />
5454
<Reference Include="System" />
5555
<Reference Include="System.Core" />
56-
<Reference Include="System.Xml.Linq" />
5756
<Reference Include="System.Data" />
58-
<Reference Include="System.Xml" />
5957
<Reference Include="WindowsBase" />
6058
</ItemGroup>
6159
<ItemGroup>

src/ExplorerGenieCmd/Program.cs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@ public static void Main()
2828
return;
2929

3030
// Make sure there are no short file formats in the list.
31-
args.Filenames.ForEach(file => Path.GetFullPath(file));
31+
args.Filenames.ModifyEach(file => Path.GetFullPath(file));
3232

3333
// Create and execute action.
3434
CmdActionFactory factory = new CmdActionFactory(new SettingsService());

src/ExplorerGenieExt/ExplorerGenieExt.dpr

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,10 @@ uses
1010
UnitContextMenuRegistrar in 'UnitContextMenuRegistrar.pas',
1111
UnitMenuModel in 'UnitMenuModel.pas',
1212
UnitMenuModelIcon in 'UnitMenuModelIcon.pas',
13-
UnitActions in 'UnitActions.pas';
13+
UnitActions in 'UnitActions.pas',
14+
UnitSettingsModel in 'UnitSettingsModel.pas',
15+
UnitSettingsService in 'UnitSettingsService.pas',
16+
UnitLanguageService in 'UnitLanguageService.pas';
1417

1518
/// <summary>
1619
/// "Overrides" the base function DllRegisterServer.

src/ExplorerGenieExt/ExplorerGenieExt.dproj

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -115,6 +115,9 @@
115115
<DCCReference Include="UnitMenuModel.pas"/>
116116
<DCCReference Include="UnitMenuModelIcon.pas"/>
117117
<DCCReference Include="UnitActions.pas"/>
118+
<DCCReference Include="UnitSettingsModel.pas"/>
119+
<DCCReference Include="UnitSettingsService.pas"/>
120+
<DCCReference Include="UnitLanguageService.pas"/>
118121
<RidlCompile Include="ExplorerGenieExt.ridl"/>
119122
<BuildConfiguration Include="Release">
120123
<Key>Cfg_2</Key>

0 commit comments

Comments
 (0)