intfeditor.pas

来自「Delphi高手突破源码」· PAS 代码 · 共 58 行

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   IntfEditor.pas
//  Creator     :   Shen Min
//  Date        :   2002-4-13
//  Comment     :   Interface of Editor
//
//
////////////////////////////////////////////////////////////////////////////////

unit IntfEditor;

interface

uses Graphics, Classes, Dialogs;

type
    TssnWordCountRec = record
        AnsiChar : Integer;
        MultiChar : Integer;
        NumChar : Integer;
        Other : Integer;
    end;

    IssnEditor = class
    public
        function GetFileName() : String; virtual; abstract;
        function GetSaved() : Boolean; virtual; abstract;
        function Save() : Boolean; virtual; abstract;
        function SaveAs() : Boolean; virtual; abstract;
        function GetSelectText() : String; virtual; abstract;
        procedure SetFont(Font : TFont); virtual; abstract;
        procedure Undo(); virtual; abstract;
        function CanUndo() : Boolean; virtual; abstract;
        procedure Redo(); virtual; abstract;
        function CanRedo() : Boolean; virtual; abstract;
        procedure Cut(); virtual; abstract;
        function CanCut() : Boolean; virtual; abstract;
        procedure Copy(); virtual; abstract;
        function CanCopy() : Boolean; virtual; abstract;
        procedure Paste(); virtual; abstract;
        function CanPaste() : Boolean; virtual; abstract;
        procedure DeleteSelection(); virtual; abstract;
        function CanDeleteSelection() : Boolean; virtual; abstract;
        procedure DeleteLine(); virtual; abstract;
        procedure SelectAll(); virtual; abstract;
        function FindNext(Text : String; Option : TFindOptions) : Boolean; virtual; abstract;
        function Replace(FindText, ReplaceText : String; Option : TFindOptions) : Integer; virtual; abstract;
        function GetWordCount() : TssnWordCountRec; virtual; abstract;
        function GetWordWrap() : Boolean; virtual; abstract;
        procedure SetWordWrap(WordWrap : Boolean); virtual; abstract;
    end;

implementation

end.