Changeset 44 for trunk/IDE

Timestamp:

Mar 4, 2012, 9:43:53 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Selection of target.

Location:

trunk/IDE

Files:

• Forms/UMainForm.pas (modified) (7 diffs)
• Languages/Transpascal.cs.po (modified) (6 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -143 +143 @@
     LastOpenedFiles: TLastOpenedList;
     procedure CompilerDebugLog(Text: string);
-    procedure MenuItemAnalyzerClick(Sender: TObject);
-    procedure MenuItemProducerClick(Sender: TObject);
+    procedure MenuItemTargetClick(Sender: TObject);
     procedure OpenRecentClick(Sender: TObject);
     procedure DockInit;
@@ -152 +151 @@
     procedure UpdateMenu;
   public
-    SelectedAnalyzerIndex: Integer;
-    SelectedProducerIndex: Integer;
     ReopenLastOpenedFile: Boolean;
     LogParsing: Boolean;
@@ -315 +312 @@
   AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning);
   AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*)
-  ABuild.Enabled := Project.Active;
+  ABuild.Enabled := Project.Active and Assigned(Compiler.Target) and
+    Assigned(Compiler.Target.Producer);
   UpdateMenu;
   CodeForm.UpdateInterface;
@@ -401 +399 @@
       OpenKey(Key, True);
       ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
-      SelectedProducerIndex := ReadIntegerWithDefault('ProducerType', 0);
-      SelectedAnalyzerIndex := ReadIntegerWithDefault('AnalyzerType', 0);
+      Compiler.Target := Compiler.Targets.SearchBySysName(ReadStringWithDefault('TargetName', ''));
       LogParsing := ReadBoolWithDefault('LogParsing', False);
       if ValueExists('LanguageCode') then
@@ -423 +420 @@
       OpenKey(Key, True);
       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
-      WriteInteger('ProducerType', SelectedProducerIndex);
-      WriteInteger('AnalyzerType', SelectedAnalyzerIndex);
+      if Assigned(Compiler.Target) then
+        WriteString('TargetName', Compiler.Target.SysName)
+        else DeleteValue('TargetName');
       WriteBool('LogParsing', LogParsing);
       if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
@@ -448 +446 @@
 end;
 
-procedure TMainForm.MenuItemAnalyzerClick(Sender: TObject);
+procedure TMainForm.MenuItemTargetClick(Sender: TObject);
 begin
   with TMenuItem(Sender) do begin
-    SelectedAnalyzerIndex := MenuIndex;
-    UpdateMenu;
-  end;
-end;
-
-procedure TMainForm.MenuItemProducerClick(Sender: TObject);
-begin
-  with TMenuItem(Sender) do begin
-    SelectedProducerIndex := MenuIndex;
-    UpdateMenu;
+    Compiler.Target := TTarget(Compiler.Targets[MenuIndex]);
+    UpdateInterface;
   end;
 end;
@@ -473 +463 @@
     NewMenuItem := TMenuItem.Create(MenuItemProducer);
     NewMenuItem.Caption := TTarget(Compiler.Targets[I]).Name;
-    NewMenuItem.OnClick := MenuItemProducerClick;
-    if I = SelectedProducerIndex then NewMenuItem.Checked := True;
+    NewMenuItem.OnClick := MenuItemTargetClick;
+    if Assigned(Compiler.Target) and
+      (TTarget(Compiler.Targets[I]).SysName = Compiler.Target.SysName) then NewMenuItem.Checked := True;
     MenuItemProducer.Add(NewMenuItem);
   end;

trunk/IDE/Languages/Transpascal.cs.po

@@ -105 +105 @@
 msgctxt "tformtargets.caption"
 msgid "Targets"
-msgstr ""
+msgstr "Cíle"
 
 #: tformtargets.listview1.columns[0].caption
@@ -135 +135 @@
 #: tmainform.apause.caption
 msgid "Pause"
-msgstr ""
+msgstr "Pozastavit"
 
 #: tmainform.aprojectclose.caption
@@ -175 +175 @@
 #: tmainform.areset.caption
 msgid "Reset"
-msgstr ""
+msgstr "Vynulovat"
 
 #: tmainform.arun.caption
@@ -184 +184 @@
 #: tmainform.aruntocursor.caption
 msgid "Run to cursor"
-msgstr ""
+msgstr "Spustit po ukazatel"
 
 #: tmainform.astepin.caption
 msgid "Step in"
-msgstr ""
+msgstr "Vejít do"
 
 #: tmainform.astepout.caption
 msgid "Step out"
-msgstr ""
+msgstr "Vyjít ven"
 
 #: tmainform.astepover.caption
 msgid "Step over"
-msgstr ""
+msgstr "Přejít přes"
 
 #: tmainform.astop.caption
 msgid "Stop"
-msgstr ""
+msgstr "Zastavit"
 
 #: tmainform.aviewcodetree.caption
@@ -238 +238 @@
 msgctxt "tmainform.aviewtargets.caption"
 msgid "Targets"
-msgstr ""
+msgstr "Cíle"
 
 #: tmainform.caption
@@ -282 +282 @@
 
 #: tmainform.menuitemproducer.caption
-#, fuzzy
 #| msgid "Producer"
 msgid "Target"
-msgstr "Tvůrce"
+msgstr "Cíl"
 
 #: tmainform.tabsheetbreakpoints.caption