mirror of
https://github.com/keymanapp/keyman.git
synced 2026-10-19 12:27:47 +00:00
a295cfc8f0
Note this also drags TextFileFormat.pas and KMDActionInterfaces.pas into the package so have moved those into general and components folders respectively, alongside KMDActions.pas and updated corresponding project includes.
93 lines
2.6 KiB
ObjectPascal
93 lines
2.6 KiB
ObjectPascal
(*
|
|
Name: KMDActionInterfaces
|
|
Copyright: Copyright (C) SIL International.
|
|
Documentation:
|
|
Description:
|
|
Create Date: 23 Aug 2006
|
|
|
|
Modified Date: 6 Feb 2014
|
|
Authors: mcdurdin
|
|
Related Files:
|
|
Dependencies:
|
|
|
|
Bugs:
|
|
Todo:
|
|
Notes:
|
|
History: 23 Aug 2006 - mcdurdin - Initial version
|
|
14 Sep 2006 - mcdurdin - Recreate IKMDEditActions interface
|
|
06 Feb 2014 - mcdurdin - I4032 - V9.0 - Add support for Redo to Keyman Developer actions
|
|
*)
|
|
unit KMDActionInterfaces;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.Types,
|
|
|
|
TextFileFormat;
|
|
|
|
type
|
|
IKMDEditActions = interface
|
|
['{271C7917-7BA5-4F19-B78B-C16A81DFE53B}']
|
|
procedure CutToClipboard;
|
|
procedure CopyToClipboard;
|
|
procedure PasteFromClipboard;
|
|
procedure Undo;
|
|
procedure Redo; // I4032
|
|
procedure SelectAll;
|
|
procedure ClearSelection;
|
|
function CanCut: Boolean;
|
|
function CanCopy: Boolean;
|
|
function CanPaste: Boolean;
|
|
function CanUndo: Boolean;
|
|
function CanRedo: Boolean; // I4032
|
|
function CanSelectAll: Boolean;
|
|
function CanClearSelection: Boolean;
|
|
end;
|
|
|
|
IKMDPrintActions = interface
|
|
['{C6F05AD6-42A3-404F-944C-904393A51837}']
|
|
//function PageSetup: Boolean;
|
|
function PrintFile: Boolean;
|
|
end;
|
|
|
|
IKMDPrintPreviewActions = interface(IKMDPrintActions)
|
|
['{B5879BC4-7A0C-4E00-AAE3-E2D48489152A}']
|
|
function PrintPreview: Boolean;
|
|
end;
|
|
|
|
IKMDViewExpandEditorActions = interface
|
|
['{680A172E-A221-4CDA-B68C-1E2AF8487510}']
|
|
procedure ExpandContractEditor;
|
|
function IsEditorExpanded: Boolean;
|
|
end;
|
|
|
|
IKMDSearchActions = interface(IKMDEditActions)
|
|
['{5268F7B2-A28E-4471-A708-41BFC968696F}']
|
|
procedure EditFind;
|
|
procedure EditFindNext;
|
|
procedure EditReplace;
|
|
function CanEditFind: Boolean;
|
|
function CanEditFindNext: Boolean;
|
|
end;
|
|
|
|
IKMDTextEditorActions = interface(IKMDSearchActions)
|
|
['{118B5CF5-7FED-4669-9A51-7DC58BF571D4}']
|
|
function GetText: string;
|
|
procedure SetText(const Value: string);
|
|
function GetSelectedRow: Integer;
|
|
function GetSelectedCol: Integer;
|
|
function GetSelectedRange: TRect;
|
|
function GetEditorFormat: TEditorFormat;
|
|
procedure ReplaceSelection(ARange: TRect; const ANewText: string);
|
|
|
|
property EditorFormat: TEditorFormat read GetEditorFormat;
|
|
property SelectedRow: Integer read GetSelectedRow;
|
|
property SelectedCol: Integer read GetSelectedCol;
|
|
property SelectedRange: TRect read GetSelectedRange;
|
|
property Text: string read GetText write SetText;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|