Chapter 4.1 – The Fix
For those interested, here's the fix to the Chapter 4's code. procedure TKeyboardBinding.AddBreakpoint(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult); var i: Integer; DS : IOTADebuggerServices; MS : IOTAModuleServices; strFileName : String; Source : IOTASourceEditor; CP: TOTAEditPos; BP: IOTABreakpoint; begin MS := BorlandIDEServices As IOTAModuleServices; Source := SourceEditor(MS.CurrentModule); strFileName := Source.FileName; CP := Source.EditViews[0].CursorPos; DS… Read More »