TEditor

type TEditor = object(TView)

  HScrollBar: PScrollBar;

  VScrollBar: PScrollBar;

  Indicator: PIndicator;

  Buffer: PEditBuffer;

  BufSize: Sw_Word;

  BufLen: Sw_Word;

  GapLen: Sw_Word;

  SelStart: Sw_Word;

  SelEnd: Sw_Word;

  CurPtr: Sw_Word;

  CurPos: Objects.TPoint;

  Delta: Objects.TPoint;

  Limit: Objects.TPoint;

  DrawLine: Sw_Integer;

  DrawPtr: Sw_Word;

  DelCount: Sw_Word;

  InsCount: Sw_Word;

  Flags: LongInt;

  IsReadOnly: Boolean;

  IsValid: Boolean;

  CanUndo: Boolean;

  Modified: Boolean;

  Selecting: Boolean;

  Overwrite: Boolean;

  AutoIndent: Boolean;

  NoSelect: Boolean;

  TabSize: Sw_Word;

  BlankLine: Sw_Word;

  Word_Wrap: Boolean;

  Line_Number: string;

  Right_Margin: Sw_Integer;

  Tab_Settings: string;

  constructor Init();

  constructor Load();

  destructor Done; virtual;

  function BufChar();

  function BufPtr();

  procedure ChangeBounds(); virtual;

  procedure ConvertEvent(); virtual;

  function CursorVisible;

  procedure DeleteSelect;

  procedure DoneBuffer; virtual;

  procedure Draw; virtual;

  procedure FormatLine(); virtual;

  function GetPalette; virtual;

  procedure HandleEvent(); virtual;

  procedure InitBuffer; virtual;

  function InsertBuffer();

  function InsertFrom(); virtual;

  function InsertText();

  procedure ScrollTo();

  function Search();

  function SetBufSize(); virtual;

  procedure SetCmdState();

  procedure SetSelect();

  procedure SetCurPtr();

  procedure SetState(); virtual;

  procedure Store();

  procedure TrackCursor();

  procedure Undo;

  procedure UpdateCommands; virtual;

  function Valid(); virtual;

end;

TEditor

TView

TObject