profdhtmledit.pas

Prof DHTML Edit 2.0.3.7 for delphi

    function  GetTextColor: TColor;
    procedure SetTextColor(Value: TColor);
    function  GetLinkColor: TColor;
    procedure SetLinkColor(Value: TColor);
    function  GetVLinkColor: TColor;
    procedure SetVLinkColor(Value: TColor);
    function  GetALinkColor: TColor;
    procedure SetALinkColor(Value: TColor);
    function  GetTextSize: TTextSize;
    procedure SetTextSize(Value: TTextSize);
    function  GetPlainText: WideString;
    function  GetPlainTextEx: WideString;
    procedure SetPlainText(const Value: WideString);
    function  GetBody: WideString;
    function  GetSelLength: Integer;
    procedure SetSelLength(Value: Integer);
    function  GetSelStart: Integer;
    procedure SetSelStart(Value: Integer);
    function  GetSelText: WideString;
    procedure SetSelText(const Value: WideString);
    function  GetSelHTML: WideString;
    procedure SetSelHTML(const Value: WideString);
    function  GetObjectID: WideString;
    procedure SetObjectID(const Value: WideString);
    function  GetObjectName: WideString;
    procedure SetObjectName(const Value: WideString);
    function  GetObjectHTML: WideString;
    procedure SetObjectHTML(const Value: WideString);
    function  GetObjectTag: WideString;
    function  GetObjectClass: WideString;
    procedure SetObjectClass(const Value: WideString);
    function  GetInsertMode: Boolean;
    procedure SetInsertMode(Value: Boolean);
    function  GetHead: WideString;
    function  GetObjectSize: TSize;
    function  GetSubScript: Boolean;
    procedure SetSubScript(Value: Boolean);
    function  GetSuperScript: Boolean;
    procedure SetSuperScript(Value: Boolean);
    function  GetObjectStyle: WideString;
    procedure SetObjectStyle(const Value: WideString);
    function  GetWindowHandle: HWND;
    procedure SetTimeout(const Value: Double);

{$IFNDEF VER100}{$IFNDEF VER110}
    procedure CMHintShowPause(var Message: TMessage); message CM_HINTSHOWPAUSE;
{$ENDIF}{$ENDIF}
    procedure CNChar(var Message: TWMChar); message CN_CHAR;
    procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
    procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
    procedure WMKeyUp(var Message: TWMKeyUp); message WM_KEYUP;
    procedure WMChar(var Message: TWMChar); message WM_CHAR;
    procedure WMSETREDRAW(var Message: TMessage); message WM_SETREDRAW;

{$IFNDEF VER100}{$IFNDEF VER110}
    procedure EMGETLINECOUNT(var Message: TMessage); message EM_GETLINECOUNT;
    procedure EMGETSEL(var Message: TMessage); message EM_GETSEL;
    procedure EMLINEFROMCHAR(var Message: TMessage); message EM_LINEFROMCHAR;
    procedure EMLINEINDEX(var Message: TMessage); message EM_LINEINDEX;
    procedure EMGETLINE(var Message: TMessage); message EM_GETLINE;
    procedure EMSETSEL(var Message: TMessage); message EM_SETSEL;
    procedure EMREPLACESEL(var Message: TMessage); message EM_REPLACESEL;
    procedure EMEXGETSEL(var Message: TMessage); message EM_EXGETSEL;
    procedure EMPOSFROMCHAR(var Message: TMessage); message EM_POSFROMCHAR;
    procedure EMGETFIRSTVISIBLELINE(var Message: TMessage); message EM_GETFIRSTVISIBLELINE;
    procedure EMSCROLLCARET(var Message: TMessage); message Messages.EM_SCROLLCARET;
    procedure EMLINESCROLL(var Message: TMessage); message EM_LINESCROLL;
    procedure EMCHARFROMPOS(var Message: TMessage); message EM_CHARFROMPOS;
    procedure EMGETSELTEXT(var Message: TMessage); message EM_GETSELTEXT;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
    procedure ClearSpellCache;
    procedure RemoveSpellHighlight;
{$ENDIF}{$ENDIF}

    function GetAbout: AnsiString; virtual; abstract;
    function RuntimeBrowseMode: Boolean; virtual; abstract;
    function RuntimeUseDivOnCarriageReturn: Boolean; virtual; abstract;
    function RuntimeShowDetails: Boolean; virtual; abstract;
    function RuntimeSourceCodePreservation: Boolean; virtual; abstract;

    function private_NewDocument(const param: WideString): Boolean; virtual; abstract;
    function private_LoadURL(const param: WideString): Boolean; virtual; abstract;
    function private_LoadFromFile(const param: WideString): Boolean; virtual; abstract;
    function private_Stop(const param: WideString): Boolean;
    procedure private_SaveToFile(const param: WideString); virtual; abstract;

    function GetBusy: Boolean; virtual; abstract;
    function GetFileName: WideString; virtual; abstract;
    function GetBaseURL: WideString; virtual; abstract;
    function GetModified: Boolean; virtual; abstract;
    function GetTitle: WideString; virtual; abstract;
    function GetHTML: WideString; virtual; abstract;
    function ReadDOM: IDispatch; virtual; abstract;
    function MSSource: WideString; virtual; abstract;

    procedure WMGetTextLength(var Message: TWMGetTextLength); message WM_GETTEXTLENGTH;
    procedure WMGetText(var Message: TWMGetText); message WM_GETTEXT;
    procedure WMSetText(var Message: TWMSetText); message WM_SETTEXT;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;

  public

    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    function Focused: Boolean; {$IFNDEF VER100}{$IFNDEF VER110}override;{$ENDIF}{$ENDIF}

{$IFNDEF BCB}
    procedure PaintTo(DC: HDC; X, Y: Integer); {$IFNDEF VER100}overload;
    procedure PaintTo(Canvas: TCanvas; X, Y: Integer); overload;{$ENDIF}
{$ELSE}
    procedure PaintTo(DC: THandle; X, Y: Integer); {$IFNDEF VER110}overload;
    {$IFNDEF VER140}{$IFNDEF VER180}procedure PaintTo(DC: Pointer; X, Y: Integer); overload;{$ENDIF}{$ENDIF}
    procedure PaintTo(Canvas: TCanvas; X, Y: Integer); overload;{$ENDIF}
{$ENDIF}

    function GetDOM(out P: IDispatch): Boolean; virtual; abstract;

    function BeginUpdate: Integer;
    function EndUpdate: Integer;

    function SetRTL: Boolean;
    function SetLTR: Boolean;

    function FindDialog: Boolean;
    function FontDialog: Boolean;
    function HyperlinkDialog: Boolean;
    function InsertObjectDialog: Boolean;
    function OpenDialog(const InitialDir: TFileName{$IFNDEF VER100}=''{$ENDIF}): TFileName; virtual; abstract;
    function PageSetupDialog: Boolean;
    function PictureDialog: Boolean;
    function PrintDialog: Boolean;
    function PrintPreviewDialog: Boolean;
    function PropertiesDialog: Boolean;
    function SaveDialog(const InitialDir: TFileName{$IFNDEF VER100}=''{$ENDIF}): TFileName; virtual; abstract;
    function SavePictureDialog(X, Y: Integer): Boolean;
    function CanDisplayFindDialog: Boolean;
    function CanDisplayFontDialog: Boolean;
    function CanDisplayHyperlinkDialog: Boolean;
    function CanDisplayInsertObjectDialog: Boolean;
    function CanDisplayOpenDialog: Boolean;
    function CanDisplayPageSetupDialog: Boolean;
    function CanDisplayPictureDialog: Boolean;
    function CanDisplayPrintDialog: Boolean;
    function CanDisplayPrintPreviewDialog: Boolean;
    function CanDisplayPropertiesDialog: Boolean;
    function CanDisplaySaveDialog: Boolean;
    function CanDisplaySavePictureDialog(X, Y: Integer): Boolean;

    function CanGetDOM: Boolean; virtual; abstract;
    function CanSetSource: Boolean;
    function CanLoadFromFile: Boolean;
    function CanLoadURL: Boolean;
    function CanSetBaseURL: Boolean;
    function CanFind: Boolean;
    function CanSave: Boolean;
    function CanSelectAll: Boolean;
    function CanClearSelection: Boolean;
    function CanGetSource: Boolean;
    function CanStop: Boolean;
    function CanNewDocument: Boolean;
    function CanSetTextSize: Boolean;
    function CanToggleAbsolutePositioning: Boolean;

    function CanJustifyNone: Boolean;
    function CanJustifyLeft: Boolean;
    function CanJustifyCenter: Boolean;
    function CanJustifyRight: Boolean;
    function CanJustifyFull: Boolean;
    function CanSetForeColor: Boolean;
    function CanSetBackColor: Boolean;
    function CanSetFontName: Boolean;
    function CanSetFontHTMLSize: Boolean;
    function CanSetParagraphStyle: Boolean;

    function NewDocument: Boolean; virtual; abstract;
    function LoadFromFile(const AFileName: TFileName): Boolean;
    function LoadURL(const URL: WideString): Boolean;
    function Stop: Boolean;
    function SaveToFile(const AFileName: TFileName): Boolean; virtual; abstract;

    function CanPrint: Boolean;
    function Print: Boolean;
    function PrintWithHeaderAndFooter(const CustomHeader, CustomFooter: WideString;
     const OptionalHeaderHTML: AnsiString{$IFNDEF VER100}= ''{$ENDIF};
     DisplayPrintDialog: Boolean{$IFNDEF VER100}= False{$ENDIF}): Boolean;

    function ToggleBold(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function ToggleItalic(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function ToggleUnderline(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function ToggleStrikeOut(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function CanToggleBold(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function CanToggleItalic(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function CanToggleUnderline(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;
    function CanToggleStrikeOut(UseCurrentWord: Boolean{$IFNDEF VER100}= True{$ENDIF}): Boolean;

    function ToggleBullets: Boolean;
    function ToggleNumbering: Boolean;
    function CanToggleBullets: Boolean;
    function CanToggleNumbering: Boolean;
    function CanToggleSubScript: Boolean;
    function CanToggleSuperScript: Boolean;

    function CutToClipboard: Boolean;
    function CopyToClipboard: Boolean;
    function PasteFromClipboard: Boolean;
    function ClearSelection: Boolean;
    function SelectAll: Boolean;
    function RemoveFormat: Boolean;
    function IncreaseIndentation: Boolean;
    function DecreaseIndentation: Boolean;
    function CanCut: Boolean;
    function CanCopy: Boolean;
    function CanPaste: Boolean;
    function CanDecreaseIndentation: Boolean;
    function CanIncreaseIndentation: Boolean;
    function CanRemoveFormat: Boolean;

    function Undo: Boolean;
    function Redo: Boolean;
    function ClearUndo: Boolean;
    function CanUndo: Boolean;
    function CanRedo: Boolean;
    function CanClearUndo: Boolean;

    function CreateHyperlink(const href: WideString; const target: WideString{$IFNDEF VER100}=''{$ENDIF}): Boolean;
    function RemoveHyperlink: Boolean;
    function CanCreateHyperlink: Boolean;
    function CanRemoveHyperlink: Boolean;
    function IsHyperlinkSelected(out href, target: WideString): Boolean;
    function ModifyHyperlink(const href, target: WideString): Boolean;

    function InsertComment(const CommentText: WideString): Boolean;
    function InsertHTML(const HTMLText: WideString): Boolean;
    function InsertImage(const Src: WideString): Boolean;
    function CanInsertComment: Boolean;
    function CanInsertHTML: Boolean;
    function CanInsertImage: Boolean;

    function InsertHorizontalLine(const ID: WideString{$IFNDEF VER100}=''{$ENDIF}): Boolean;
    function InsertTextBox(const ID: WideString): Boolean;
    function InsertTextArea(const ID: WideString): Boolean;
    function InsertCheckBox(const ID: WideString): Boolean;
    function InsertRadioButton(const ID: WideString): Boolean;
    function InsertDropdownBox(const ID: WideString): Boolean;
    function InsertListBox(const ID: WideString): Boolean;
    function InsertButton(const ID: WideString): Boolean;
    function InsertIframe(const ID: WideString): Boolean;
    function InsertMarquee(const ID: WideString): Boolean;
    function CanInsertHorizontalLine: Boolean;
    function CanInsertTextBox: Boolean;
    function CanInsertTextArea: Boolean;
    function CanInsertCheckBox: Boolean;
    function CanInsertRadioButton: Boolean;
    function CanInsertDropdownBox: Boolean;
    function CanInsertListBox: Boolean;
    function CanInsertButton: Boolean;
    function CanInsertIframe: Boolean;
    function CanInsertMarquee: Boolean;

    function InsertLineBreak(const ID: WideString{$IFNDEF VER100}=''{$ENDIF}; Clear: TClear{$IFNDEF VER100}=ClearNone{$ENDIF}): Boolean;
    function InsertParagraph(const ID: WideString{$IFNDEF VER100}=''{$ENDIF}): Boolean;
    function InsertDivision(const ID: WideString{$IFNDEF VER100}=''{$ENDIF}): Boolean;
    function InsertNoBreakSpace: Boolean;
    function CanInsertLineBreak(Clear: TClear{$IFNDEF VER100}=ClearNone{$ENDIF}): Boolean;
    function CanInsertParagraph: Boolean;
    function CanInsertDivision: Boolean;
    function CanInsertNoBreakSpace: Boolean;

    function GetImageSource: WideString;
    function GetParagraphStyles(AStrings: TStrings): Boolean;
    function IsEverythingSelected: Boolean;
    function IsImageSelected: Boolean;

    function GetImages(AResult: TStrings): Boolean;
    function GetLinks(AResult: TStrings): Boolean;
    function GetAnchors(AResult: TStrings): Boolean;