syneditactions.pas

SynEditStudio delphi 代码编辑器

    procedure ExecuteTarget(Target: TObject); override;
  published
    property Bookmark : Integer read fBookmark write FBookmark;
  end;

  TaSynSetBookmark = class(TSynCustomAction)
  private
    fBookmark: Integer;
  public
    procedure ExecuteTarget(Target: TObject); override;
  published
    property Bookmark : Integer read fBookmark write FBookmark;
  end;

  //清除书签，当指定书签号小于0则清除所有书签
  TaSynClearBookmark = class(TSynCustomAction)
  private
    fBookmark: Integer;
  public
    procedure ExecuteTarget(Target: TObject); override;
  published
    property Bookmark : Integer read fBookmark write FBookmark;
  end;

  TaSynGotoLastChange = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynMatchBracket = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynCommentBlock = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFind = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFindNext = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFindLast = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFindNextWord = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFindLastWord = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynReplace = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynReplaceNext = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynReplaceLast = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynUpperCase = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynLowerCase = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynToggleCase = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynTitleCase = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynBlockIndent = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynBlockUnindent = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynInsertLine = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynLineBreak = class(TSynChangeAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFileFormatDos = class(TSynCustomAction)
  public
    procedure UpdateTarget(Target: TObject); override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFileFormatMac = class(TSynCustomAction)
  public
    procedure UpdateTarget(Target: TObject); override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynFileFormatUnix = class(TSynCustomAction)
  public
    procedure UpdateTarget(Target: TObject); override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynCustomPrint = class(TSynCustomAction)
  private
    fPrint: TSynEditPrint;
    procedure SetPrint(const Value: TSynEditPrint);
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    function HandlesTarget(Target: TObject): Boolean; override;
  published
    property Print : TSynEditPrint read fPrint write SetPrint;
  end;

  TaSynJump = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynPrint = class(TaSynCustomPrint)
  public
    function HandlesTarget(Target: TObject): Boolean; override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynQuickPrint = class(TaSynCustomPrint)
  public
    function HandlesTarget(Target: TObject): Boolean; override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynPageSetup = class(TaSynCustomPrint)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynPreview = class(TaSynCustomPrint)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynExporter = class(TSynCustomAction)
  private
    fExporter: TSynCustomExporter;
    procedure SetExporter(const Value: TSynCustomExporter);
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    procedure ExecuteTarget(Target: TObject); override;
  published
    property Exporter : TSynCustomExporter read fExporter write SetExporter;
  end;

  TaSynSave = class(TSynCustomAction)
  private
    fSaveDialogTitle: string;
    fSaveDialogOptions: TOpenOptions;
  protected
    function Save(Savedialog : TSaveDialog) : boolean; virtual;
  public
    constructor Create(AOwner : TComponent); override;
    procedure ExecuteTarget(Target: TObject); override;
  published
    property SaveDialogTitle : string read fSaveDialogTitle
      write FSaveDialogTitle;
    property SaveDialogOptions : TOpenOptions read fSaveDialogOptions
      write fSaveDialogOptions;
  end;

  TaSynSaveAll = class(TSynBaseAction)
  private
    fSaveDialogTitle: string;
    fSaveDialogOptions: TOpenOptions;
  public
    constructor Create(AOwner : TComponent); override;
    function HandlesTarget(Target: TObject): Boolean; override;
    procedure ExecuteTarget(Target: TObject); override;
  published
    property SaveDialogTitle : string read fSaveDialogTitle
      write FSaveDialogTitle;
    property SaveDialogOptions : TOpenOptions read fSaveDialogOptions
      write fSaveDialogOptions;
  end;

  TaSynSaveAs = class(TaSynSave)
  protected
    function Save(Savedialog : TSaveDialog) : boolean; override;
  end;

  TaSynSaveSel = class(TaSynSave)
  protected
    function Save(Savedialog : TSaveDialog) : boolean; override;
  public
    function HandlesTarget(Target: TObject): Boolean; override;
  end;

  TSynCloseEvent =
    procedure(Sender: TObject; Editor : TCustomSynEditor) of object;

  TaSynClose = class(TSynCustomAction)
  private
    fSaveDialogTitle: string;
    fSaveDialogOptions: TOpenOptions;
    FOnClose: TSynCloseEvent;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    function CanClose(SynEditor : TCustomSynEditor): Boolean;
    procedure ExecuteTarget(Target: TObject); override;
  published
    property SaveDialogTitle : string read fSaveDialogTitle
      write FSaveDialogTitle;
    property SaveDialogOptions : TOpenOptions read fSaveDialogOptions
      write fSaveDialogOptions;
    property OnClose : TSynCloseEvent read FOnClose write FOnClose;
  end;

  TaSynCloseAll = class(TaSynSaveAll)
  private
    FOnClose: TSynCloseEvent;
  public
    function CanCloseAll: Boolean;
    procedure ExecuteTarget(Target: TObject); override;
  published
    property OnClose : TSynCloseEvent read FOnClose write FOnClose;
  end;

  TSynCreateEditorEvent =
    procedure(Sender : TObject; var Editor : TCustomSynEditor)of object;

  TaSynNew = class(TSynBaseAction)
  private
    FNewCount : integer;
    fDocumentName: string;
    FOnCreateEditor: TSynCreateEditorEvent;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    procedure ExecuteTarget(Target: TObject); override;
    function GetNewDocName: string;
  published
    property DocumentName : string read fDocumentName write fDocumentName;
    property OnCreateEditor : TSynCreateEditorEvent read FOnCreateEditor
      write FOnCreateEditor;
  end;

  TaSynOpen = class(TSynBaseAction)
  private
    fOpenDialogOptions: TOpenOptions;
    fOpenDialogTitle: string;
    FOnCreateEditor: TSynCreateEditorEvent;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    function OpenDocument(Document : string) : TCustomSynEditor;
    procedure ExecuteTarget(Target: TObject); override;
  published
    property OpenDialogTitle : string read fOpenDialogTitle
      write FOpenDialogTitle;
    property OpenDialogOptions : TOpenOptions read fOpenDialogOptions
      write fOpenDialogOptions;
    property OnCreateEditor : TSynCreateEditorEvent read FOnCreateEditor
      write FOnCreateEditor;
  end;

  TaSynInsertFile = class(TSynChangeAction)
  private
    fOpenDialogTitle: string;
  public
    procedure ExecuteTarget(Target: TObject); override;
  published
    property OpenDialogTitle : string read fOpenDialogTitle
      write FOpenDialogTitle;
  end;

  TaSynOptionsSetting = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynToggleHighlighter = class(TSynCustomAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynSpellCheckOptions = class(TSynCustomAction)
  private
    function HandlesTarget(Target: TObject): Boolean; override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynSpellCheck = class(TSynCustomAction)
  private
    FCheckWordDlg : TForm;
    FAutoCheckWord : TStrings;
    procedure SpellCheckWord(Sender: TObject; AWord: string;
      ASuggestions: TStringList; var ACorrectWord: string;
      var AAction: Integer; const AUndoEnabled: Boolean);
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    function HandlesTarget(Target: TObject): Boolean; override;
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TaSynHighlighterSetting = class(TSynAction)
  public
    procedure ExecuteTarget(Target: TObject); override;
  end;

  TSynEditorsEvent= class(TComponent)
  private
    fOnContextHelp: TContextHelpEvent;
    fOnDropFiles: TDropFilesEvent;
    fOnGutterClick: TGutterClickEvent;
    fOnGutterGetText: TGutterGetTextEvent;
    fOnGutterPaint: TGutterPaintEvent;
    fOnMouseCursor: TMouseCursorEvent;
    FOnChange: TNotifyEvent;
    FOnCloseDocument: TNotifyEvent;
    fOnPaint: TPaintEvent;
    fOnPaintTransient: TPaintTransient;
    FOnPlaceMark: TPlaceMarkEvent;
    fOnClearMark: TPlaceMarkEvent;
    FOnProcessCommand: TProcessCommandEvent;
    FOnProcessUserCommand: TProcessCommandEvent;
    fOnCommandProcessed: TProcessCommandEvent;
    fOnReplaceText: TReplaceTextEvent;
    fOnScroll: TScrollEvent;
    fOnSpecialLineColors: TSpecialLineColorsEvent;
    fOnStatusChange: TStatusChangeEvent;
    FOnSaveDocument: TSynDocumentEvent;
    FOnLoadDocument: TSynDocumentEvent;
    FOnDragDrop: TDragDropEvent;
    FOnDragOver: TDragOverEvent;
{$IFDEF SYN_CLX}
{$ELSE}
{$IFDEF SYN_COMPILER_4_UP}
    FOnEndDock: TEndDragEvent;
    FOnStartDock: TStartDockEvent;
{$ENDIF}
{$ENDIF}
    FOnEndDrag: TEndDragEvent;
    FOnKeyDown: TKeyEvent;
    FOnKeyUp: TKeyEvent;
    FOnKeyPress: TKeyPressEvent;
    FOnMouseUp: TMouseEvent;
    FOnMouseDown: TMouseEvent;
    FOnMouseMove: TMouseMoveEvent;
    FOnExit: TNotifyEvent;
    FOnClick: TNotifyEvent;
    FOnDblClick: TNotifyEvent;
    FOnEnter: TNotifyEvent;
    FOnStartDrag: TStartDragEvent;
    FDoCloseDocument: Boolean;
    FDoStatusChange: Boolean;
    FDoPaint: Boolean;
    FDoScroll: Boolean;
    FDoMouseMove: Boolean;
    FDoExit: Boolean;
    FDoMouseDown: Boolean;
    FDoGutterClick: Boolean;
    FDoDragOver: Boolean;
    FDoMouseUp: Boolean;
    FDoPaintTransient: Boolean;
    FDoStartDrag: Boolean;
    FDoKeyPress: Boolean;
    FDoGutterPaint: Boolean;
    FDoStartDock: Boolean;
    FDoCommandProcessed: Boolean;
    FDoProcessUserCommand: Boolean;
    FDoProcessCommand: Boolean;
    FDoLoadDocument: Boolean;
    FDoMouseCursor: Boolean;
    FDoSpecialLineColors: Boolean;
    FDoEnter: Boolean;
    FDoContextHelp: Boolean;
    FDoPlaceMark: Boolean;
    FDoKeyDown: Boolean;
    FDoChange: Boolean;
    FDoClearMark: Boolean;
    FDoDblClick: Boolean;
    FDoSaveDocument: Boolean;
    FDoDropFiles: Boolean;
    FDoGutterGetText: Boolean;
    FDoReplaceText: Boolean;
    FDoDragDrop: Boolean;
    FDoEndDock: Boolean;
    FDoKeyUp: Boolean;
    FDoEndDrag: Boolean;
    FDoClick: Boolean;
  public
    constructor Create(AOwner : TComponent);override;
    destructor destroy;override;
    procedure AssignTo(Edit : TSynEdit); 
  published

    property DoClick: Boolean read FDoClick write FDoClick;
    property DoDblClick: Boolean read FDoDblClick write FDoDblClick;
    property DoDragDrop: Boolean read FDoDragDrop write FDoDragDrop;
    property DoDragOver: Boolean read FDoDragOver write FDoDragOver;
{$IFDEF SYN_CLX}