easyeditorbookmarkactionsreg.pas.svn-base

来自「支持自定义语法高亮显示的编辑器控件」· SVN-BASE 代码 · 共 43 行

unit EasyEditorBookmarkActionsReg;

interface

procedure Register;

implementation

uses EasyEditorBookmarkActions, Classes, StdActns, Windows, ActnRes, ActnList, EasyStrings;

type
  TEasyEditorBkmStandardActions = class(TStandardActions)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;
begin
  RegisterActions('EasyEditorBookmarks', [
    TEasyEditBookmarkGotoAction, TEasyEditBookmarkSetAction,
      TEasyEditBookmarkToggleAction, TEasyEditBookmarkClearAction,
      TEasyEditBookmarkClearAllAction],
        TEasyEditorBkmStandardActions);
end;

{ TEasyStandardActions }

constructor TEasyEditorBkmStandardActions.Create(AOwner: TComponent);
var
  Action: tAction;
begin
  inherited;
  Action := TEasyEditBookmarkClearAllAction.Create(Self);
  Action.Caption := 'Clear all Bookmarks';
  TEasyEditBookmarkClearAction.Create(Self);
  TEasyEditBookmarkSetAction.Create(Self);
  TEasyEditBookmarkToggleAction.Create(Self);
  TEasyEditBookmarkGotoAction.Create(Self);
end;

end.