Changeset 42 for trunk/IDE

Timestamp:

Feb 29, 2012, 11:16:44 AM (13 years ago)

Author:

chronos

Message:

• Added: Targets definition classes.

Location:

trunk/IDE

Files:

• Forms/UCompilersForm.lfm (deleted)
• Forms/UCompilersForm.pas (deleted)
• Forms/UFormTargets.lfm (added)
• Forms/UFormTargets.lrt (added)
• Forms/UFormTargets.pas (added)
• Forms/UMainForm.lfm (modified) (7 diffs)
• Forms/UMainForm.lrt (modified) (2 diffs)
• Forms/UMainForm.pas (modified) (4 diffs)
• Languages/Transpascal.cs.po (modified) (5 diffs)
• Languages/Transpascal.po (modified) (5 diffs)
• Transpascal.lpi (modified) (1 diff)
• Transpascal.lpr (modified) (2 diffs)

trunk/IDE/Forms/UMainForm.lfm

@@ -89 +89 @@
     Top = 26
     Width = 200
-    ActivePage = TabSheetProject
+    ActivePage = TabSheetCompiledProject
     Align = alRight
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 3
     TabPosition = tpRight
@@ -148 +148 @@
   object MainMenu1: TMainMenu
     Images = ImageList1
-    left = 624
-    top = 8
+    left = 115
+    top = 160
     object MenuItem1: TMenuItem
       Caption = 'Project'
@@ -474 +474 @@
       end
       object MenuItemProducer: TMenuItem
-        Caption = 'Producer'
+        Caption = 'Target'
       end
     end
@@ -540 +540 @@
       end
       object MenuItem24: TMenuItem
-        Action = AViewProducers
+        Action = AViewTargets
       end
     end
@@ -591 +591 @@
   object ActionList1: TActionList
     Images = ImageList1
-    left = 624
-    top = 64
+    left = 112
+    top = 216
     object AProjectNew: TAction
       Category = 'Project'
@@ -688 +688 @@
       OnExecute = AViewCompiledSoruceExecute
     end
-    object AViewProducers: TAction
+    object AViewTargets: TAction
       Category = 'View'
-      Caption = 'Producers'
-      OnExecute = AViewProducersExecute
+      Caption = 'Targets'
+      OnExecute = AViewTargetsExecute
     end
   end
@@ -707 +707 @@
   end
   object ImageList1: TImageList
-    left = 624
-    top = 112
+    left = 344
+    top = 184
     Bitmap = {
       4C690E0000001000000010000000000000000000000000000000000000000000

trunk/IDE/Forms/UMainForm.lrt

@@ -11 +11 @@
 TMAINFORM.MENUITEM12.CAPTION=-
 TMAINFORM.MENUITEM7.CAPTION=Run
-TMAINFORM.MENUITEMPRODUCER.CAPTION=Producer
+TMAINFORM.MENUITEMPRODUCER.CAPTION=Target
 TMAINFORM.MENUITEM15.CAPTION=View
 TMAINFORM.MENUITEM22.CAPTION=-
@@ -36 +36 @@
 TMAINFORM.AVIEWCODETREE.CAPTION=Code tree
 TMAINFORM.AVIEWCOMPILEDSORUCE.CAPTION=Compiled source
-TMAINFORM.AVIEWPRODUCERS.CAPTION=Producers
+TMAINFORM.AVIEWTARGETS.CAPTION=Targets

trunk/IDE/Forms/UMainForm.pas

@@ -29 +29 @@
   TMainForm = class(TForm)
     ABuild: TAction;
-    AViewProducers: TAction;
+    AViewTargets: TAction;
     AViewCompiledSoruce: TAction;
     AViewCodeTree: TAction;
@@ -114 +114 @@
     procedure AViewMessagesExecute(Sender: TObject);
     procedure AViewOptionsExecute(Sender: TObject);
-    procedure AViewProducersExecute(Sender: TObject);
+    procedure AViewTargetsExecute(Sender: TObject);
     procedure AViewProjectExecute(Sender: TObject);
     procedure AViewSourceEditorExecute(Sender: TObject);
@@ -156 +156 @@
 uses
   UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions,
-  UCompilersForm, UTarget, UAnalyzer, UProducer;
+  UFormTargets, UTarget, UAnalyzer, UProducer;
 
 resourcestring
@@ -250 +250 @@
 end;
 
-procedure TMainForm.AViewProducersExecute(Sender: TObject);
-begin
-  FormProducers.Show;
+procedure TMainForm.AViewTargetsExecute(Sender: TObject);
+begin
+  FormTargets.Show;
 end;
 

trunk/IDE/Languages/Transpascal.cs.po

@@ -102 +102 @@
 msgstr "Cesta vykonání"
 
+#: tformtargets.caption
+msgctxt "tformtargets.caption"
+msgid "Targets"
+msgstr ""
+
+#: tformtargets.listview1.columns[0].caption
+msgctxt "tformtargets.listview1.columns[0].caption"
+msgid "Name"
+msgstr "Jméno"
+
+#: tformtargets.listview1.columns[1].caption
+msgctxt "tformtargets.listview1.columns[1].caption"
+msgid "Execution path"
+msgstr "Cesta vykonání"
+
 #: tmainform.aabout.caption
 msgid "About..."
@@ -183 +198 @@
 msgstr "Volby"
 
-#: tmainform.aviewproducers.caption
-msgctxt "tmainform.aviewproducers.caption"
-msgid "Producers"
-msgstr "Tvůrci"
-
 #: tmainform.aviewproject.caption
 msgctxt "tmainform.aviewproject.caption"
@@ -197 +207 @@
 msgstr "Zdrojový editor"
 
+#: tmainform.aviewtargets.caption
+msgctxt "tmainform.aviewtargets.caption"
+msgid "Targets"
+msgstr ""
+
 #: tmainform.caption
 msgid "Transpascal IDE"
@@ -234 +249 @@
 
 #: tmainform.menuitemproducer.caption
-msgid "Producer"
+#, fuzzy
+#| msgid "Producer"
+msgid "Target"
 msgstr "Tvůrce"
 
@@ -317 +334 @@
 
 #: ucompilersform.scompilerpath
+msgctxt "ucompilersform.scompilerpath"
+msgid "Compiler path"
+msgstr "Cesta překladače"
+
+#: uformtargets.scompileroptions
+msgctxt "uformtargets.scompileroptions"
+msgid "Compiler options"
+msgstr "Volby překladače"
+
+#: uformtargets.scompilerpath
+msgctxt "uformtargets.scompilerpath"
 msgid "Compiler path"
 msgstr "Cesta překladače"

trunk/IDE/Languages/Transpascal.po

@@ -94 +94 @@
 msgstr ""
 
+#: tformtargets.caption
+msgctxt "tformtargets.caption"
+msgid "Targets"
+msgstr ""
+
+#: tformtargets.listview1.columns[0].caption
+msgctxt "TFORMTARGETS.LISTVIEW1.COLUMNS[0].CAPTION"
+msgid "Name"
+msgstr ""
+
+#: tformtargets.listview1.columns[1].caption
+msgctxt "TFORMTARGETS.LISTVIEW1.COLUMNS[1].CAPTION"
+msgid "Execution path"
+msgstr ""
+
 #: tmainform.aabout.caption
 msgid "About..."
@@ -175 +190 @@
 msgstr ""
 
-#: tmainform.aviewproducers.caption
-msgctxt "TMAINFORM.AVIEWPRODUCERS.CAPTION"
-msgid "Producers"
-msgstr ""
-
 #: tmainform.aviewproject.caption
 msgctxt "tmainform.aviewproject.caption"
@@ -189 +199 @@
 msgstr ""
 
+#: tmainform.aviewtargets.caption
+msgctxt "TMAINFORM.AVIEWTARGETS.CAPTION"
+msgid "Targets"
+msgstr ""
+
 #: tmainform.caption
 msgid "Transpascal IDE"
@@ -226 +241 @@
 
 #: tmainform.menuitemproducer.caption
-msgid "Producer"
+msgid "Target"
 msgstr ""
 
@@ -309 +324 @@
 
 #: ucompilersform.scompilerpath
+msgctxt "ucompilersform.scompilerpath"
+msgid "Compiler path"
+msgstr ""
+
+#: uformtargets.scompileroptions
+msgctxt "uformtargets.scompileroptions"
+msgid "Compiler options"
+msgstr ""
+
+#: uformtargets.scompilerpath
+msgctxt "uformtargets.scompilerpath"
 msgid "Compiler path"
 msgstr ""

trunk/IDE/Transpascal.lpi

@@ -190 +190 @@
       </Unit11>
       <Unit12>
-        <Filename Value="Forms\UCompilersForm.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="FormProducers"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="UCompilersForm"/>
+        <Filename Value="Forms\UFormTargets.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="FormTargets"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="UFormTargets"/>
       </Unit12>
       <Unit13>

trunk/IDE/Transpascal.lpr

@@ -11 +11 @@
   UTextSource, UProject, UApplicationInfo, TranspascalCompiler, UProjectManager, UCodeForm, UMessagesForm,
   UCompiledForm, UCodeTreeForm, TemplateGenerics, CoolTranslator, Common,
-  UAboutForm, UFormOptions, UCompilersForm, UCompilerSettingsForm;
+  UAboutForm, UFormOptions, UFormTargets, UCompilerSettingsForm;
 
 {$R *.res}
@@ -38 +38 @@
   Application.CreateForm(TFormOptions, FormOptions);
   Application.CreateForm(TCompilerSettingsForm, CompilerSettingsForm);
-  Application.CreateForm(TFormProducers, FormProducers);
+  Application.CreateForm(TFormTargets, FormTargets);
   Application.Run;
 end.