macro.rcs

来自「Protel99-SE-软件.zip」· RCS 代码 · 共 117 行

Toolbar 'MacroDebugTools' 'Floating' 436 73
Begin
     Button 'RESET.BMP'    'Macro:Reset($Description=Reset macro currently opened in Text Editor)'
     Button 'GO.BMP'       'Macro:Go($Description=Run the macro to the end or next breakpoint)'
     Button 'PAUSE.BMP'    'Macro:Pause($Description=Pause execution of macro)'
     Button 'STEPINTO.BMP' 'Macro:StepInto($Description=Step into function and subroutine calls)'
     Button 'STEPOVER.BMP' 'Macro:StepOver($Description=Execute macro and stop at the next line of code)'
     Button 'ANIMATE.BMP'  'Macro:Animate($Description=Execute macro in slow motion)'
     Button 'DLGEDITR.BMP' 'Macro:RunDialogEditor($Description=Run ClientBasic Dialog Editor)'
     Separator
     Button 'DEBUG.BMP'    'Macro:ViewWindow(WindowToView=Breakpoint | $Description= Display Breakpoint Window)'
     Button 'WATCH.BMP'    'Macro:ViewWindow(WindowToView=Watch | $Description= Display Watch Window)'
     Button 'ADDWATCH.BMP' 'Macro:AddWatch($Description=Add a Watch variable)'
     Button 'RMVWATCH.BMP' 'Macro:RemoveWatch($Description=Remove a Watch variable)'
     Button 'RMVALLWC.BMP' 'Macro:RemoveAllWatch($Description=Remove all Watch variables)'
     Button 'ADDBREAK.BMP' 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Toggle | $Description=Toggle breakpoint on current line)'
     Button 'RMVALLBR.BMP' 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=RemoveAll | $Description=Remove all breakpoints)'
End

UpdateResource
Begin
    Kind                        Menu
    Name                        TextEditMenu
    Action                      Add
    ReferencePosition           After
    ReferenceItem               '&Main Toolbar' *
    Description
    Begin
        MenuItem 'Macro &Debug Tools'  'Client:CustomizeResources(ToggleToolbar=MacroDebugTools|$Description=Toggle Macro Debug toolbar on or off)'
    End
End

UpdateResource
Begin
     Kind                Menu
     Name                TextEditMenu
     Action              Add
     ReferencePosition   Before
     ReferenceItem       'Change &Language...' *
     Description
     Begin
          Popup '&Macro Tools'
          Begin
               MenuItem 'View Breakpoint Window\tF12'      'Macro:ViewWindow(WindowToView=Breakpoint)'
               MenuItem 'View Watch Window\tShift+F12'     'Macro:ViewWindow(WindowToView=Watch)'
               MenuItem 'Run ClientBasic &Dialog Editor\tShift+F12'    Macro:RunDialogEditor
               MenuItem SEPARATOR
               MenuItem '&Reset\tF11'                      Macro:Reset
               MenuItem '&Go\tF9'                          Macro:Go
               MenuItem '&Pause\tF10'                      Macro:Pause
               MenuItem 'Step &Into\tF8'                   Macro:StepInto
               MenuItem 'Step &Over\tF7'                   Macro:StepOver
               MenuItem SEPARATOR
               MenuItem 'Add &Watch\tShift+F5'             Macro:AddWatch
               MenuItem 'Remove W&atch\tShift+F6'          Macro:RemoveWatch
               MenuItem 'Remove All Wa&tch\tShift+F7'      Macro:RemoveAllWatches
               MenuItem SEPARATOR
               MenuItem 'Add &Breakpoint\tF5'              'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Add)'
               MenuItem 'Remove B&reakpoint\tF6'           'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Remove)'
               MenuItem 'Remove All Br&eakpoint\tCtrl+F7'  'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=RemoveAll)'
               MenuItem SEPARATOR
               MenuItem 'Toggle &Animate Mode\tCtrl+F12'   Macro:Animate
          End
     End
End

UpdateResource
Begin
     Kind                HotKeyTable
     Name                Default
     Action              Add
     Description
     Begin
          Key 'Macro:ViewWindow(WindowToView=Breakpoint)'   F2                                      EndKey
          Key 'Macro:ViewWindow(WindowToView=Watch)'        F2         Shift                        EndKey
          Key Macro:RunDialogEditor                         F12        Shift                        EndKey
          Key Macro:Reset                                   F11                                     EndKey
          Key Macro:Go                                      F9                                      EndKey
          Key Macro:Pause                                   F10                                     EndKey
          Key Macro:StepInto                                F8                                      EndKey
          Key Macro:StepOver                                F7                                      EndKey
          Key Macro:AddWatch                                F5         Shift                        EndKey
          Key Macro:RemoveWatch                             F6         Shift                        EndKey
          Key Macro:RemoveAllWatches                        F7         Shift                        EndKey
          Key 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Add)'       F5             EndKey
          Key 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Remove)'    F6             EndKey
          Key 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=RemoveAll)' F7  Ctrl       EndKey
          Key Macro:Animate                                 F12         Ctrl                        EndKey
     End
End

UpdateResource
Begin
     Kind                HotKeyTable
     Name                Classic
     Action              Add
     Description
     Begin
          Key 'Macro:ViewWindow(WindowToView=Breakpoint)'   F2                                      EndKey
          Key 'Macro:ViewWindow(WindowToView=Watch)'        F2         Shift                        EndKey
          Key Macro:RunDialogEditor                         F12        Shift                        EndKey
          Key Macro:Reset                                   F11                                     EndKey
          Key Macro:Go                                      F9                                      EndKey
          Key Macro:Pause                                   F10                                     EndKey
          Key Macro:StepInto                                F8                                      EndKey
          Key Macro:StepOver                                F7                                      EndKey
          Key Macro:AddWatch                                F5         Shift                        EndKey
          Key Macro:RemoveWatch                             F6         Shift                        EndKey
          Key Macro:RemoveAllWatches                        F7         Shift                        EndKey
          Key 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Add)'       F5             EndKey
          Key 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Remove)'    F6             EndKey
          Key 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=RemoveAll)' F7  Ctrl       EndKey
          Key Macro:Animate                                 F12         Ctrl                        EndKey
     End
End