Toolbar 'MacroDebugTools' 'Floating' 436 73
Begin
     Button 'RESET.BMP'    'Macro:Reset($Description=重设当前文本编辑器中打开的宏指令)'
     Button 'GO.BMP'       'Macro:Go($Description=运行宏指令到结尾或者下一个断点处)'
     Button 'PAUSE.BMP'    'Macro:Pause($Description=暂停宏指令的执行)'
     Button 'STEPINTO.BMP' 'Macro:StepInto($Description=步进函数和子程序调用)'
     Button 'STEPOVER.BMP' 'Macro:StepOver($Description=执行宏指令并下一行代码前停止)'
     Button 'ANIMATE.BMP'  'Macro:Animate($Description=慢速执行宏指令)'
     Button 'DLGEDITR.BMP' 'Macro:RunDialogEditor($Description=运行客户端 Basic 对话编辑器)'
     Separator
     Button 'DEBUG.BMP'    'Macro:ViewWindow(WindowToView=Breakpoint | $Description=显示断点窗口)'
     Button 'WATCH.BMP'    'Macro:ViewWindow(WindowToView=Watch | $Description=显示监视窗口)'
     Button 'ADDWATCH.BMP' 'Macro:AddWatch($Description=添加一个监视变量)'
     Button 'RMVWATCH.BMP' 'Macro:RemoveWatch($Description=移除一个监视变量)'
     Button 'RMVALLWC.BMP' 'Macro:RemoveAllWatch($Description=移除所有监视变量)'
     Button 'ADDBREAK.BMP' 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Toggle | $Description=在当前行切换断点)'
     Button 'RMVALLBR.BMP' 'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=RemoveAll | $Description=移除所有断点)'
End

UpdateResource
Begin
    Kind                        Menu
    Name                        TextEditMenu
    Action                      Add
    ReferencePosition           After
    ReferenceItem               '主工具条[&M]' *
    Description
    Begin
        MenuItem '宏指令调试工具[&D]'  'Client:CustomizeResources(ToggleToolbar=宏调试工具|$Description=打开或关闭宏指令调试工具条)'              
    End
End

UpdateResource
Begin
     Kind                Menu
     Name                TextEditMenu
     Action              Add
     ReferencePosition   Before
     ReferenceItem       '窗口[&W]' *
     Description
     Begin
          Popup '宏[&M]'
          Begin
               MenuItem '查看断点窗口\tF12'                            'Macro:ViewWindow(WindowToView=Breakpoint)'
               MenuItem '查看监视窗口\tShift+F12'                      'Macro:ViewWindow(WindowToView=Watch)'
               MenuItem '运行 ClientBasic 对话编辑器[&D]\tShift+F12'    Macro:RunDialogEditor
               MenuItem SEPARATOR
               MenuItem '重设[&R]\tF11'                                 Macro:Reset
               MenuItem '开始[&G]\tF9'                                  Macro:Go
               MenuItem '暂停[&P]\tF10'                                 Macro:Pause
               MenuItem '单步进入[&I]\tF8'                              Macro:StepInto
               MenuItem '跳过[&O]\tF7'                                  Macro:StepOver
               MenuItem SEPARATOR
               MenuItem '添加监视点[&W]\tShift+F5'                      Macro:AddWatch
               MenuItem '移除监视点[&A]\tShift+F6'                      Macro:RemoveWatch
               MenuItem '移除所有监视点[&T]\tShift+F7'                  Macro:RemoveAllWatches
               MenuItem SEPARATOR
               MenuItem '添加断点[&B]\tF5'                              'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Add)'
               MenuItem '移除断点[&R]\tF6'                              'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=Remove)'
               MenuItem '移除所有断点[&E]\tCtrl+F7'                     'TextEdit:ExecuteSystemCommand(Command=BreakPoint | Action=RemoveAll)'
               MenuItem SEPARATOR                                       
               MenuItem '切换动画模式[&A]\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

