Changeset 414 for trunk/ConfigApps/MainFormUnit.pas

Timestamp:

Feb 24, 2019, 5:24:45 AM (6 years ago)

Author:

ataylor

Message:

(ConfigApps) Implement NLS; fix icon rendering problem; tweak default mnemonics.

File:

• trunk/ConfigApps/MainFormUnit.pas (modified) (12 diffs)

trunk/ConfigApps/MainFormUnit.pas

@@ -4 +4 @@
 
 Uses
-  Classes, Forms, Graphics, StdCtrls, Buttons, MultiColumnListBox, Dialogs;
+  Classes, Forms, Graphics, StdCtrls, Buttons, MultiColumnListBox, Dialogs, ACLLanguageUnit;
 
 const
-  AppVersion = 'V1.1.1'; // $SS_REQUIRE_NEW_VERSION$
+  AppVersion = 'V1.2.0'; // $SS_REQUIRE_NEW_VERSION$
 
 type
@@ -36 +36 @@
     ParametersLabel: TLabel;
     VersionLabel: TLabel;
+    LngItems: String;
+    LngPath: String;
+    LngWebBrowser: String;
+    LngEmail: String;
+    LngNewsgroups: String;
+    LngFtp: String;
+    LngIrc: String;
+    LngDiscardChanges: String;
+    LngExitAndDiscardChanges: String;
+    LngFileDoesNotExist: String;
+    LngProgramNotFoundInPath: String;
+    LngDirectoryDoesNotExist: String;
+    LngSaveAnyway: String;
     Procedure ParametersEditOnChange (Sender: TObject);
     Procedure RestoreButtonOnClick (Sender: TObject);
@@ -52 +65 @@
     Displaying: boolean;
     Changed: boolean;
+  Protected
+    Procedure OnLanguageEvent( Language: TLanguageFile; const Apply: boolean );
   Public
     {Insert public declarations here}
@@ -69 +84 @@
   ACLFileUtility, ACLUtility, ACLStringUtility,
   ControlsUtility, ACLDialogs;
+
+{$R Images}
 
 type
@@ -116 +133 @@
 
 var
+  ProgramNames: array[ Low( TProgramType ).. High( TProgramType ) ] of String = (
+      'Web Browser', 'Email', 'Newsgroups', 'FTP', 'IRC'
+  );
+
   CurrentSettings: array[ Low( TProgramType ).. High( TProgramType ) ] of TCurrentSettings;;
 
@@ -178 +199 @@
 Begin
   if Changed then
-    if not DoConfirmDlg( 'Discard changes?',
-                         'Exit and discard changes?' ) then
+    if not DoConfirmDlg( LngDiscardChanges,
+                         LngExitAndDiscardChanges ) then
       CanClose := false;
 
@@ -211 +232 @@
           // they specified a path...
           if not FileExists( Path ) then
-            if not DoConfirmDlg( p.Name,
-                                 'File does not exist: ' + EndLine
+            if not DoConfirmDlg( ProgramNames[ ProgramType ],
+                                 LngFileDoesNotExist + EndLine
                                  + Path + EndLine
-                                 + 'Save anyway?' ) then
+                                 + LngSaveAnyway ) then
               exit;
         end
@@ -223 +244 @@
                              Path,
                              FoundPath ) then
-            if not DoConfirmDlg( p.Name,
-                                 'Program not found in path: ' + EndLine
+            if not DoConfirmDlg( ProgramNames[ ProgramType ],
+                                 LngProgramNotFoundInPath + EndLine
                                  + Path + EndLine
-                                 + 'Save anyway?' ) then
+                                 + LngSaveAnyway ) then
               exit;
         end;
         if not DirectoryExists( WorkingDirectory ) then
-          if not DoConfirmDlg( p.Name,
-                               'Directory does not exist: '
-                               + WorkingDirectory
-                               + '. Save anyway?' ) then
+          if not DoConfirmDlg( ProgramNames[ ProgramType ],
+                               LngDirectoryDoesNotExist + EndLine
+                               + WorkingDirectory + EndLine
+                               + LngSaveAnyway ) then
             exit;
       end;
@@ -292 +313 @@
   for i := 0 to ItemsListBox.Items.Count - 1 do
     if TProgramType( ItemsListBox.Items.Objects[ i ] ) = p then
-      ItemsListBox.Items[ i ] := Programs[ p ].Name
+      ItemsListBox.Items[ i ] := ProgramNames[ p ]
                                  + #9
                                  + PathEdit.Text;
@@ -318 +339 @@
   Font := GetNiceDefaultFont;
 
+  Forms.FormIconResourceID := 1;
+
+  RegisterForLanguages( OnLanguageEvent );
+
   VersionLabel.Caption := AppVersion;
+  LoadDefaultLanguage('cfgapps');
   LoadCurrentSettings;
+
 end;
 
@@ -335 +362 @@
     CurrentSettings[ ProgramType ].Parameters := GetParameters( p );
 
-    ItemsListBox.Items.AddObject( P.Name
+    ItemsListBox.Items.AddObject( ProgramNames[ ProgramType ]
                                   + #9
                                   + CurrentSettings[ ProgramType ].Path,
@@ -347 +374 @@
 End;
 
+Procedure TMainForm.OnLanguageEvent( Language: TLanguageFile;
+                                     const Apply: boolean );
+Var
+  ProgramType: TProgramType;
+  P: TProgramSettings;
+Begin
+  Language.LoadComponentLanguage( self, Apply );
+
+  Language.LL( Apply, LngWebBrowser, 'ProgramWebBrowser', 'Web Browser' );
+  Language.LL( Apply, LngEmail, 'ProgramEmail', 'Email' );
+  Language.LL( Apply, LngNewsgroups, 'ProgramNewsgroups', 'Newsgroups' );
+  Language.LL( Apply, LngFtp, 'ProgramFTP', 'FTP' );
+  Language.LL( Apply, LngIrc, 'ProgramIRC', 'IRC' );
+  Language.LL( Apply, LngDiscardChanges, 'DiscardChanges', 'Discard changes?' );
+  Language.LL( Apply, LngExitAndDiscardChanges, 'ExitAndDiscardChanges', 'Exit and discard changes?' );
+  Language.LL( Apply, LngFileDoesNotExist, 'FileDoesNotExist', 'File does not exist: ' );
+  Language.LL( Apply, LngProgramNotFoundInPath, 'ProgramNotFoundInPath', 'Program not found in path: ' );
+  Language.LL( Apply, LngDirectoryDoesNotExist, 'DirectoryDoesNotExist', 'Directory does not exist: ' );
+  Language.LL( Apply, LngSaveAnyway, 'SaveAnyway', 'Save anyway?' );
+
+  ProgramNames[ idBrowser ] := LngWebBrowser;
+  ProgramNames[ idMail ] := LngEmail;
+  ProgramNames[ idNews ] := LngNewsgroups;
+  ProgramNames[ idFTP ] := LngFtp;
+  ProgramNames[ idIRC ] := LngIrc;
+
+End;
+
 Initialization
   RegisterClasses ([TMainForm, TEdit, TButton, TMultiColumnListBox, TLabel,