- Timestamp:
- Feb 29, 2012, 8:23:19 PM (13 years ago)
- Location:
- trunk/IDE
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/IDE/Forms/UMainForm.lfm
r42 r43 74 74 Top = 2 75 75 Action = ARun 76 end 77 object ToolButton9: TToolButton 78 Left = 172 79 Top = 2 80 Action = APause 81 end 82 object ToolButton10: TToolButton 83 Left = 195 84 Top = 2 85 Action = AStop 76 86 end 77 87 end … … 395 405 object MenuItem7: TMenuItem 396 406 Caption = 'Run' 407 object MenuItemProducer: TMenuItem 408 Caption = 'Target' 409 end 397 410 object MenuItem8: TMenuItem 398 411 Action = ABuild … … 433 446 0000000000000000000000000000000000000000000000000000 434 447 } 448 end 449 object MenuItem27: TMenuItem 450 Caption = '-' 435 451 end 436 452 object MenuItem14: TMenuItem … … 473 489 } 474 490 end 475 object MenuItemProducer: TMenuItem 476 Caption = 'Target' 491 object MenuItem25: TMenuItem 492 Action = APause 493 end 494 object MenuItem26: TMenuItem 495 Action = AStop 496 end 497 object MenuItem32: TMenuItem 498 Action = AReset 499 end 500 object MenuItem28: TMenuItem 501 Action = AStepIn 502 end 503 object MenuItem29: TMenuItem 504 Action = AStepOver 505 end 506 object MenuItem30: TMenuItem 507 Action = AStepOut 508 end 509 object MenuItem31: TMenuItem 510 Action = ARunToCursor 477 511 end 478 512 end … … 633 667 ImageIndex = 12 634 668 OnExecute = ABuildExecute 635 ShortCut = 1 20669 ShortCut = 16504 636 670 end 637 671 object AExit: TAction … … 641 675 end 642 676 object ARun: TAction 677 Category = 'Run' 643 678 Caption = 'Run' 644 679 ImageIndex = 13 680 ShortCut = 120 645 681 end 646 682 object AAbout: TAction … … 692 728 Caption = 'Targets' 693 729 OnExecute = AViewTargetsExecute 730 end 731 object AStop: TAction 732 Category = 'Run' 733 Caption = 'Stop' 734 ShortCut = 16497 735 end 736 object APause: TAction 737 Category = 'Run' 738 Caption = 'Pause' 739 end 740 object AReset: TAction 741 Category = 'Run' 742 Caption = 'Reset' 743 end 744 object AStepOver: TAction 745 Category = 'Run' 746 Caption = 'Step over' 747 ShortCut = 119 748 end 749 object AStepIn: TAction 750 Category = 'Run' 751 Caption = 'Step in' 752 ShortCut = 118 753 end 754 object AStepOut: TAction 755 Category = 'Run' 756 Caption = 'Step out' 757 ShortCut = 8311 758 end 759 object ARunToCursor: TAction 760 Category = 'Run' 761 Caption = 'Run to cursor' 762 ShortCut = 115 694 763 end 695 764 end -
trunk/IDE/Forms/UMainForm.lrt
r42 r43 12 12 TMAINFORM.MENUITEM7.CAPTION=Run 13 13 TMAINFORM.MENUITEMPRODUCER.CAPTION=Target 14 TMAINFORM.MENUITEM27.CAPTION=- 14 15 TMAINFORM.MENUITEM15.CAPTION=View 15 16 TMAINFORM.MENUITEM22.CAPTION=- … … 37 38 TMAINFORM.AVIEWCOMPILEDSORUCE.CAPTION=Compiled source 38 39 TMAINFORM.AVIEWTARGETS.CAPTION=Targets 40 TMAINFORM.ASTOP.CAPTION=Stop 41 TMAINFORM.APAUSE.CAPTION=Pause 42 TMAINFORM.ARESET.CAPTION=Reset 43 TMAINFORM.ASTEPOVER.CAPTION=Step over 44 TMAINFORM.ASTEPIN.CAPTION=Step in 45 TMAINFORM.ASTEPOUT.CAPTION=Step out 46 TMAINFORM.ARUNTOCURSOR.CAPTION=Run to cursor -
trunk/IDE/Forms/UMainForm.pas
r42 r43 29 29 TMainForm = class(TForm) 30 30 ABuild: TAction; 31 ARunToCursor: TAction; 32 AStepOut: TAction; 33 AStepIn: TAction; 34 AStepOver: TAction; 35 AReset: TAction; 36 APause: TAction; 37 AStop: TAction; 31 38 AViewTargets: TAction; 32 39 AViewCompiledSoruce: TAction; … … 68 75 MenuItem23: TMenuItem; 69 76 MenuItem24: TMenuItem; 77 MenuItem25: TMenuItem; 78 MenuItem26: TMenuItem; 79 MenuItem27: TMenuItem; 80 MenuItem28: TMenuItem; 81 MenuItem29: TMenuItem; 82 MenuItem30: TMenuItem; 83 MenuItem31: TMenuItem; 84 MenuItem32: TMenuItem; 70 85 MenuItemProducer: TMenuItem; 71 86 MenuItem3: TMenuItem; … … 94 109 ToolBar1: TToolBar; 95 110 ToolButton1: TToolButton; 111 ToolButton10: TToolButton; 96 112 ToolButton2: TToolButton; 97 113 ToolButton3: TToolButton; … … 101 117 ToolButton7: TToolButton; 102 118 ToolButton8: TToolButton; 119 ToolButton9: TToolButton; 103 120 procedure AAboutExecute(Sender: TObject); 104 121 procedure AExitExecute(Sender: TObject); … … 156 173 uses 157 174 UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions, 158 UFormTargets, UTarget, UAnalyzer, UProducer ;175 UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor; 159 176 160 177 resourcestring … … 302 319 CodeForm.UpdateInterface; 303 320 ProjectManager.UpdateInterface; 321 APause.Enabled := Project.Active and Assigned(Compiler.Target) and 322 Assigned(Compiler.Target.Executor) and (Compiler.Target.Executor.State = rsRunning); 323 ARun.Enabled := Project.Active and Assigned(Compiler.Target) and 324 Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsStopped) or 325 (Compiler.Target.Executor.State = rsPaused)); 326 AStop.Enabled := Project.Active and Assigned(Compiler.Target) and 327 Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsRunning) or 328 (Compiler.Target.Executor.State = rsPaused)); 329 AStepIn.Enabled := Project.Active and Assigned(Compiler.Target) and 330 Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsRunning) or 331 (Compiler.Target.Executor.State = rsPaused)); 332 AStepOut.Enabled := AStepIn.Enabled; 333 AStepOver.Enabled := AStepIn.Enabled; 334 ARunToCursor.Enabled := AStepIn.Enabled; 304 335 end; 305 336 -
trunk/IDE/Languages/Transpascal.cs.po
r42 r43 133 133 msgstr "Domovská stránka" 134 134 135 #: tmainform.apause.caption 136 msgid "Pause" 137 msgstr "" 138 135 139 #: tmainform.aprojectclose.caption 136 140 msgid "Close" … … 168 172 msgid "Save project with custom name" 169 173 msgstr "Uložit projekt s vlastním jménem" 174 175 #: tmainform.areset.caption 176 msgid "Reset" 177 msgstr "" 170 178 171 179 #: tmainform.arun.caption … … 174 182 msgstr "Spustit" 175 183 184 #: tmainform.aruntocursor.caption 185 msgid "Run to cursor" 186 msgstr "" 187 188 #: tmainform.astepin.caption 189 msgid "Step in" 190 msgstr "" 191 192 #: tmainform.astepout.caption 193 msgid "Step out" 194 msgstr "" 195 196 #: tmainform.astepover.caption 197 msgid "Step over" 198 msgstr "" 199 200 #: tmainform.astop.caption 201 msgid "Stop" 202 msgstr "" 203 176 204 #: tmainform.aviewcodetree.caption 177 205 msgid "Code tree" … … 232 260 #: tmainform.menuitem22.caption 233 261 msgctxt "tmainform.menuitem22.caption" 262 msgid "-" 263 msgstr "-" 264 265 #: tmainform.menuitem27.caption 266 msgctxt "tmainform.menuitem27.caption" 234 267 msgid "-" 235 268 msgstr "-" -
trunk/IDE/Languages/Transpascal.po
r42 r43 125 125 msgstr "" 126 126 127 #: tmainform.apause.caption 128 msgid "Pause" 129 msgstr "" 130 127 131 #: tmainform.aprojectclose.caption 128 132 msgid "Close" … … 159 163 #: tmainform.aprojectsaveas.hint 160 164 msgid "Save project with custom name" 165 msgstr "" 166 167 #: tmainform.areset.caption 168 msgid "Reset" 161 169 msgstr "" 162 170 … … 166 174 msgstr "" 167 175 176 #: tmainform.aruntocursor.caption 177 msgid "Run to cursor" 178 msgstr "" 179 180 #: tmainform.astepin.caption 181 msgid "Step in" 182 msgstr "" 183 184 #: tmainform.astepout.caption 185 msgid "Step out" 186 msgstr "" 187 188 #: tmainform.astepover.caption 189 msgid "Step over" 190 msgstr "" 191 192 #: tmainform.astop.caption 193 msgid "Stop" 194 msgstr "" 195 168 196 #: tmainform.aviewcodetree.caption 169 197 msgid "Code tree" … … 227 255 msgstr "" 228 256 257 #: tmainform.menuitem27.caption 258 msgctxt "TMAINFORM.MENUITEM27.CAPTION" 259 msgid "-" 260 msgstr "" 261 229 262 #: tmainform.menuitem7.caption 230 263 msgctxt "tmainform.menuitem7.caption" -
trunk/IDE/UApplicationInfo.pas
r41 r43 53 53 Name := 'Transpascal IDE'; 54 54 Identification := 1; 55 ReleaseDate := EncodeDate(2012, 2, 2 8);55 ReleaseDate := EncodeDate(2012, 2, 29); 56 56 MajorVersion := 0; 57 57 MinorVersion := 1;
Note:
See TracChangeset
for help on using the changeset viewer.