Hello list,

I started to study, how to extend the IDE.
so far I have managed to add a menu to the IDE.
How I can override the default behavior of the editor when I press Ctrl + D to run my code.

thanks.

This is my code.

unit DuplicateLine;
{$mode objfpc}{$H+}
interface
uses
  Classes,Controls,SysUtils,IDECommands,MenuIntf,LCLType,SrcEditorIntf,SynEdit;
procedure DuplicateLine(Sender: TObject);
procedure Register;
implementation
procedure DuplicateLine(Sender: TObject);
var
  Editor: TSourceEditorInterface;
  ASynEdit: TSynEdit;
begin
     Editor:=SourceEditorManagerIntf.ActiveEditor;
     if Editor=nil then exit;
     if Editor.EditorControl is TSynEdit then begin
         ASynEdit:=TSynEdit(Editor.EditorControl);
         ASynEdit.Lines.Insert(ASynEdit.CaretY, ASynEdit.LineText);
     end;
end;
procedure Register;
var
  Key: TIDEShortCut;
  Cat: TIDECommandCategory;
  DuplicateCmd: TIDECommand;
begin
     Key := IDEShortCut(VK_D,[ssCtrl],VK_UNKNOWN,[]);
     Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName);
     DuplicateCmd := RegisterIDECommand(Cat,'Duplicate Line', 'Duplicate a Line', Key, nil, @DuplicateLine);
     RegisterIDEMenuCommand(itmEditBlockIndentation, 'DuplicateLine', 'Duplicate a Line', nil, nil, DuplicateCmd);
end;
end.

The defaults are fixed and the user settings are loaded before the packages are registered. There is currently no way to alter them.

I added a function to search for all commands with some keys.

http://wiki.lazarus.freepascal.org/Extending_the_IDE#Shortcuts

:)

Mattias

Not the answer to your question, but...

SynEdit.Lines.Insert
does not work with undo/redo

Lazarus Synedit has
   SynEdit.TextBetweenPoints[ Point(1, Y), Point(1, Y)] := 'Foo'+LineEnding;