unit EagleBufferList;interfaceprocedure Register;implementationuses Windows, Classes, SysUtils, Menus, ToolsAPI, Controls;typeTBufferList = class(TNotifierObject, IUnknown, IOTANotifier, IOTAKeyboardBinding)function GetBindingType: TBindingType;function GetDisplayName: string;function GetName: string;//指定快捷键procedure BindKeyboard(const BindingServices: IOTAKeyBindingServices);protectedprocedure CodeCompletion(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);end;resourcestringsBufferList = 'Eagle''s Buffer List';// register this key binding
procedure Register;
begin(BorlandIDEServices as IOTAKeyBoardServices).AddKeyboardBinding(TBufferList.Create);
end;{ TBufferList }// the code to bind key
procedure TBufferList.BindKeyboard(const BindingServices: IOTAKeyBindingServices);
beginBindingServices.AddKeyBinding([ShortCut(Ord('P'), [ssShift, ssCtrl, ssAlt])], CodeCompletion,Pointer(csCodeList or csManual));BindingServices.AddKeyBinding([ShortCut(Ord('O'), [ssShift, ssCtrl, ssAlt])], CodeCompletion,Pointer(csParamList or csManual));BindingServices.AddKeyBinding([ShortCut(Ord(' '), [ssCtrl, ssAlt])], CodeCompletion,Pointer(csCodeList or csParamList or csManual));{ 1，2句是原作者写的3句是我加的 把代码补完快捷键 替换为 ctrl + alt + space}
end;// do code completion
procedure TBufferList.CodeCompletion(const Context: IOTAKeyContext; KeyCode: TShortcut;var BindingResult: TKeyBindingResult);
begin(Context.EditBuffer.TopView as IOTAEditActions).CodeCompletion(Byte(Context.Context));BindingResult := krHandled;end;function TBufferList.GetBindingType: TBindingType;
beginResult := btPartial;
end;function TBufferList.GetDisplayName: string;
beginResult := sBufferList;
end;function TBufferList.GetName: string;
beginResult := 'EagleKing.BufferList'; // do not localize
end;end.EagleBufferList.pas