Changeset 135 for trunk/UTarget.pas

Timestamp:

Mar 5, 2022, 9:44:18 AM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: More translated strings.

File:

• trunk/UTarget.pas (modified) (4 diffs)

trunk/UTarget.pas

@@ -155 +155 @@
   end;
 
-const
-  RunStateText: array[TRunState] of string = ('Stopped', 'Paused', 'Running',
-    'Compiling');
-
 
 resourcestring
@@ -164 +160 @@
   SExecutorNotFound = 'Executor "%s" not found';
   SCompiledFileNotFound = 'Program compiled file "%s" not found';
+  SStopped = 'Stopped';
+  SPaused = 'Paused';
+  SRunning = 'Running';
+  SCompiling = 'Compiling';
+  SNone = 'None';
+  SNormal = 'Normal';
+
+const
+  CompiledDir = 'compiled';
+
+var
+  RunStateText: array[TRunState] of string = (SStopped, SPaused, SRunning,
+    SCompiling);
+  CompilerOptimizationText: array[TCompilerOptimization] of string = (SNone, SNormal);
+
+procedure UpdateTranslation;
 
 
 implementation
+
+procedure UpdateTranslation;
+begin
+  RunStateText[rsStopped] := SStopped;
+  RunStateText[rsPaused] := SPaused;
+  RunStateText[rsRunning] := SRunning;
+  RunStateText[rsCompiling] := SCompiling;
+  CompilerOptimizationText[coNone] := SNone;
+  CompilerOptimizationText[coNormal] := SNormal;
+end;
 
 { TMessages }
@@ -464 +486 @@
 begin
   CompiledFile := ExtractFilePath(ProjectFileName) +
-    'compiled' + DirectorySeparator + Name + DirectorySeparator +
+    CompiledDir + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + SourceExtension;
   ForceDirectories(ExtractFilePath(CompiledFile));
@@ -507 +529 @@
 
   CompiledFile := ExtractFilePath(ProjectFileName) +
-    'compiled' + DirectorySeparator + Name + DirectorySeparator +
+    CompiledDir + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + CompiledExtension;
   RunFile := ExtractFilePath(ProjectFileName) +
-    'compiled' + DirectorySeparator + Name + DirectorySeparator +
+    CompiledDir + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + RunExtension;
   if not FileExists(ExecutorPath) then