Version 1.0.0

Author: martinstoeckli

installer/ExplorerGenie.aip

@@ -76,6 +76,11 @@ procedure TApp.Initialize;
 
   settingsService := TSettingsService.Create();
   languageService := TLanguageServiceFactory.CreateLanguageService('ExplorerGenie');
+{$IFDEF DEBUG}
+  // development: Here we can force loading of a specific language.
+  languageService := TLanguageServiceFactory.CreateLanguageService('ExplorerGenie', 'en');
+{$ENDIF}
+
   try
     FMenus := CreateMenuModels(settingsService, languageService);
   finally

screenshots/explorergenie_menu_copy.png

@@ -51,6 +51,15 @@   TLanguageServiceFactory = class(TObject)
     /// preset to the name of the calling DLL/EXE without the file extension..</param>
     /// <returns>New language service.</returns>
     class function CreateLanguageService(domain: String): ILanguageService; overload;
+
+    /// <summary>
+    /// Creates a new language service instance.
+    /// </summary>
+    /// <param name="domain">The domain of the language resource. For this reader the domain is
+    /// preset to the name of the calling DLL/EXE without the file extension..</param>
+    /// <param name="languageCode">Two letter language code of the resource.</param>
+    /// <returns>New language service.</returns>
+    class function CreateLanguageService(domain: String; languageCode: String): ILanguageService; overload;
   end;
 
   /// <summary>
@@ -137,6 +146,11 @@ class function TLanguageServiceFactory.CreateLanguageService(domain: String): IL
   Result := TLanguageService.Create(domain, '');
 end;
 
+class function TLanguageServiceFactory.CreateLanguageService(domain: String; languageCode: String): ILanguageService;
+begin
+  Result := TLanguageService.Create(domain, languageCode);
+end;
+
 { TLanguageService }
 
 constructor TLanguageService.Create(domain: String = ''; languageCode: String = '');

screenshots/explorergenie_menu_goto.png

@@ -18,7 +18,7 @@
             <DrawingImage.Drawing>
                 <DrawingGroup>
                     <DrawingGroup.Children>
-                        <GeometryDrawing Brush="#000000" Geometry="M19,20H5V4H7V7H17V4H19M12,2A1,1 0 0,1 13,3A1,1 0 0,1 12,4A1,1 0 0,1 11,3A1,1 0 0,1 12,2M19,2H14.82C14.4,0.84 13.3,0 12,0C10.7,0 9.6,0.84 9.18,2H5A2,2 0 0,0 3,4V20A2,2 0 0,0 5,22H19A2,2 0 0,0 21,20V4A2,2 0 0,0 19,2Z" />
+                        <GeometryDrawing Brush="#007fff" Geometry="M19,20H5V4H7V7H17V4H19M12,2A1,1 0 0,1 13,3A1,1 0 0,1 12,4A1,1 0 0,1 11,3A1,1 0 0,1 12,2M19,2H14.82C14.4,0.84 13.3,0 12,0C10.7,0 9.6,0.84 9.18,2H5A2,2 0 0,0 3,4V20A2,2 0 0,0 5,22H19A2,2 0 0,0 21,20V4A2,2 0 0,0 19,2Z" />
                     </DrawingGroup.Children>
                 </DrawingGroup>
             </DrawingImage.Drawing>

screenshots/explorergenie_options_copy.png

@@ -19,6 +19,11 @@ public ViewModelBaseWithLanguage()
         {
             var languageResourceReader = new LanguageServiceFileResourceReader { Domain = "ExplorerGenie" };
             Language = new LanguageService(languageResourceReader);
+
+#if DEBUG
+            // development: Here we can force loading of a specific language.
+            Language = new LanguageService(languageResourceReader, "en");
+#endif
         }
 
         /// <summary>