TKMemoFrame

type TKMemoFrame = class(TFrame)

  ACParaNumbering: TAction;

  ACEditImage: TAction;

  ACInsertImage: TAction;

  Editor: TKMemo;

  ILMain: TImageList;

  PMIEditImage: TMenuItem;

  ToBFirst: TToolBar;

  ToBNew: TToolButton;

  ToBOpen: TToolButton;

  ToBSave: TToolButton;

  ToBSep1: TToolButton;

  ToBCut: TToolButton;

  ToBCopy: TToolButton;

  ToBPaste: TToolButton;

  ToBPrint: TToolButton;

  ToBPreview: TToolButton;

  ToBSep3: TToolButton;

  ALMain: TActionList;

  ACEditCopy: TKMemoEditCopyAction;

  ACEditCut: TKMemoEditCutAction;

  ACEditPaste: TKMemoEditPasteAction;

  ACFileOpen: TAction;

  ACFileNew: TAction;

  ACFilePrint: TAction;

  ACFileSave: TAction;

  ACFilePreview: TAction;

  ACFontBold: TAction;

  ACFontItalic: TAction;

  ACFontUnderline: TAction;

  ACFontStrikeout: TAction;

  ACFontStyle: TAction;

  ACParaLeft: TAction;

  ACParaCenter: TAction;

  ACParaRight: TAction;

  ACParaIncIndent: TAction;

  ACParaDecIndent: TAction;

  ACParaStyle: TAction;

  ODMain: TOpenDialog;

  SDMain: TSaveDialog;

  ACFileSaveAs: TAction;

  ToBSaveAs: TToolButton;

  PrintSetupDialog: TKPrintSetupDialog;

  PrintPreviewDialog: TKPrintPreviewDialog;

  ACFormatCopy: TAction;

  ACShowFormatting: TAction;

  ToBShowFormatting: TToolButton;

  ToBSep2: TToolButton;

  ACInsertHyperlink: TAction;

  ToBInsertHyperlink: TToolButton;

  PMMain: TPopupMenu;

  PMIEditCopy: TMenuItem;

  PMIEditCut: TMenuItem;

  PMIEditPaste: TMenuItem;

  N1: TMenuItem;

  PMIEditSelectAll: TMenuItem;

  ACEditSelectAll: TKMemoEditSelectAllAction;

  N2: TMenuItem;

  PMIFontStyle: TMenuItem;

  PMIParaStyle: TMenuItem;

  PMIEditHyperlink: TMenuItem;

  N3: TMenuItem;

  ACEditHyperlink: TAction;

  ToBSecond: TToolBar;

  ToBFormatCopy: TToolButton;

  ToBSep4: TToolButton;

  ToBFontBold: TToolButton;

  ToBFontItalic: TToolButton;

  ToBFontUnderline: TToolButton;

  ToBFont: TToolButton;

  ToBSep5: TToolButton;

  ToBParaLeft: TToolButton;

  ToBParaCenter: TToolButton;

  ToBParaRight: TToolButton;

  ToBParaIncIndent: TToolButton;

  ToBParaDecIndent: TToolButton;

  ToBParaNumbering: TToolButton;

  ToBPara: TToolButton;

  ToBFontSubscript: TToolButton;

  ACFontSuperscript: TAction;

  ACFontSubscript: TAction;

  ToBFontSuperscript: TToolButton;

  ToBSelectAll: TToolButton;

  ToBInsertImage: TToolButton;

  MainMenu: TMainMenu;

  MGFile: TMenuItem;

  MGEdit: TMenuItem;

  MGFont: TMenuItem;

  MGInsert: TMenuItem;

  MIFileNew: TMenuItem;

  MIFileOpen: TMenuItem;

  MIFileSave: TMenuItem;

  MiFileSaveAs: TMenuItem;

  MIFilePreview: TMenuItem;

  MIFilePrint: TMenuItem;

  MIFileExit: TMenuItem;

  N4: TMenuItem;

  N5: TMenuItem;

  MIEditCopy: TMenuItem;

  MIEditCut: TMenuItem;

  MIEditPaste: TMenuItem;

  MIEditSelectAll: TMenuItem;

  MIFontBold: TMenuItem;

  MIFontItalic: TMenuItem;

  MiFontStrikeout: TMenuItem;

  MIFontUnderline: TMenuItem;

  MIFontSubscript: TMenuItem;

  MIFontSuperscript: TMenuItem;

  MIFontStyle: TMenuItem;

  N6: TMenuItem;

  N7: TMenuItem;

  MIFormatCopy: TMenuItem;

  MGPara: TMenuItem;

  MIParaLeft: TMenuItem;

  MIParaCenter: TMenuItem;

  MIParaRight: TMenuItem;

  MIParaIncIndent: TMenuItem;

  N8: TMenuItem;

  MIParaDecIndent: TMenuItem;

  N9: TMenuItem;

  MIParaNumbering: TMenuItem;

  N10: TMenuItem;

  MIParaStyle: TMenuItem;

  N11: TMenuItem;

  N12: TMenuItem;

  MIInsertHyperlink: TMenuItem;

  MIInsertImage: TMenuItem;

  MIShowFormatting: TMenuItem;

  ACEditContainer: TAction;

  ACInsertContainer: TAction;

  MIInsertContainer: TMenuItem;

  PMIEditContainer: TMenuItem;

  ToBInsertContainer: TToolButton;

  procedure ACFileNewExecute();

  procedure ACFileNewUpdate();

  procedure ACFileOpenExecute();

  procedure ACFileSaveExecute();

  procedure ACFileSaveUpdate();

  procedure ACFileSaveAsExecute();

  procedure ACFilePrintExecute();

  procedure ACFilePreviewExecute();

  procedure ACFontBoldExecute();

  procedure ACFontBoldUpdate();

  procedure ACFontStyleUpdate();

  procedure ACFontItalicExecute();

  procedure ACFontItalicUpdate();

  procedure ACFontUnderlineExecute();

  procedure ACFontUnderlineUpdate();

  procedure ACFontStrikeoutExecute();

  procedure ACFontStrikeoutUpdate();

  procedure ACFontStyleExecute();

  procedure ACParaLeftExecute();

  procedure ACParaLeftUpdate();

  procedure ACParaCenterUpdate();

  procedure ACParaCenterExecute();

  procedure ACParaRightExecute();

  procedure ACParaRightUpdate();

  procedure ACParaIncIndentUpdate();

  procedure ACParaIncIndentExecute();

  procedure ACParaDecIndentExecute();

  procedure ACParaDecIndentUpdate();

  procedure ACParaStyleUpdate();

  procedure ACParaStyleExecute();

  procedure ACFormatCopyExecute();

  procedure ACShowFormattingExecute();

  procedure ACShowFormattingUpdate();

  procedure ACInsertHyperlinkExecute();

  procedure ACEditHyperlinkUpdate();

  procedure ACParaNumberingExecute();

  procedure ACParaNumberingUpdate();

  procedure ACFontSuperscriptExecute();

  procedure ACFontSuperscriptUpdate();

  procedure ACFontSubscriptExecute();

  procedure ACFontSubscriptUpdate();

  procedure ACInsertImageExecute();

  procedure ACEditImageUpdate();

  procedure PMMainPopup();

  procedure MIFileExitClick();

  procedure ACEditContainerUpdate();

  procedure ACInsertContainerExecute();

  procedure EditorBlockEdit();

  procedure EditorMouseDown();

  procedure EditorMouseUp();

  procedure EditorDropFiles();

protected

  FActionStateChanging: Boolean;

  FFormatCopyParaStyle: TKMemoParaStyle;

  FFormatCopyTextStyle: TKMemoTextStyle;

  FContainerForm: TKMemoContainerForm;

  FHyperlinkForm: TKMemoHyperlinkForm;

  FNumberingForm: TKMemoNumberingForm;

  FImageForm: TKMemoImageForm;

  FParaStyle: TKMemoParaStyle;

  FParaStyleForm: TKMemoParaStyleForm;

  FTextStyle: TKMemoTextStyle;

  FTextStyleForm: TKMemoTextStyleForm;

  procedure AddToMRUFs(); virtual;

  procedure DeleteFromMRUFs(); virtual;

  procedure ChangeActionState();

  function EditContainer(); virtual;

  function EditImage(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CloseFile;

  procedure OpenNewFile;

  procedure OpenFile();

  function SaveFile();

  property DefaultIndent: Integer; [rw]

  property DefaultTextBoxSize: TPoint; [rw]

  property DefaultTextBoxBorderWidth: Integer; [rw]

  property DefaultTextBoxMargin: Integer; [rw]

  property DefaultTextBoxPadding: Integer; [rw]

  property NewFile: Boolean; [r]

  property LastFileName: TKString; [r]

end;

TKMemoFrame

TObject