Changeset 53 for trunk

Timestamp:

Jul 26, 2012, 3:40:30 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Interface localization was not working.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• Packages/CoolTranslator.zip (modified) ( previous)
• Packages/TemplateGenerics.zip (modified) ( previous)
• Target/UTarget.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -196 +196 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  Core.CoolTranslator1.Translate;
   LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
   PageControlMain.TabIndex := 0;

trunk/Target/UTarget.pas

@@ -75 +75 @@
     FCompiled: Boolean;
     function SourceReadNext: Char;
-    function IsOpcode(Opcode: Char): Boolean;
     function CheckClear: Boolean;
     function CheckOccurence(C: TBrainFuckCommand): Integer;
@@ -409 +408 @@
     Free;
   end;
-  if FileExistsUTF8(CompilerPath) then
-  try
-    Process := TProcess.Create(nil);
-    Process.CurrentDirectory := ExtractFilePath(CompilerPath);
-    Process.CommandLine := LongFileName(CompilerPath) + ' ' + LongFileName(CompiledFile);
-    Process.Options := [poWaitOnExit];
-    Process.Execute;
-  finally
-    Process.Free;
-  end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
+  if CompilerPath <> '' then begin
+    if FileExistsUTF8(CompilerPath) then
+    try
+      Process := TProcess.Create(nil);
+      Process.CurrentDirectory := ExtractFilePath(CompilerPath);
+      Process.CommandLine := LongFileName(CompilerPath) + ' ' + LongFileName(CompiledFile);
+      Process.Options := [poWaitOnExit];
+      Process.Execute;
+    finally
+      Process.Free;
+    end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
+  end;
 end;
 
@@ -566 +567 @@
 end;
 
-function TTarget.IsOpcode(Opcode: Char): Boolean;
-begin
-  Result := (Opcode = '+') or (Opcode = '-') or (Opcode = '<') or (Opcode = '>') or
-    (Opcode = '[') or (Opcode = ']') or (Opcode = ',') or (Opcode = '.');
-end;
-
 function TTarget.CheckClear: Boolean;
 begin