uhtmleditform.pas

一个html编辑器,支持可见即可得!!!

unit uHtmlEditForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin,
  OleCtrls, SHDocVw, ImgList, ActnList, uHtmlEdit,
  ExtCtrls, Menus, StdCtrls, jpeg, ExtDlgs, Spin, ActnMan, ActnCtrls,
  ActnMenus, XPStyleActnCtrls;

type
  THtmlEditForm = class(TForm)
    ActionListButton: TActionList;
    Act_New: TAction;
    Act_Open: TAction;
    Act_Save: TAction;
    dlgColor1: TColorDialog;
    dlgOpen: TOpenDialog;
    dlgSave: TSaveDialog;
    N1: TMenuItem;
    pmHtmlEdit: TPopupMenu;
    LargeImages: TImageList;
    SmallImages: TImageList;
    dlgOpenPic: TOpenPictureDialog;
    Act_SaveAs: TAction;
    Act_SaveTo: TAction;
    Act_Clear: TAction;
    Act_Redo: TAction;
    Act_Undo: TAction;
    Act_SelectAll: TAction;
    Act_Print: TAction;
    Act_PageSetup: TAction;
    Act_PrintPreview: TAction;
    Act_Write: TAction;
    Act_Copy: TAction;
    Act_Cut: TAction;
    Act_Paste: TAction;
    Act_Insert: TAction;
    Act_Append: TAction;
    Act_ViewSource: TAction;
    Act_ViewText: TAction;
    Act_Edit_BackColoer: TAction;
    Act_Edit_Bold: TAction;
    Act_Edit_CreateLink: TAction;
    Act_Edit_ForeColor: TAction;
    Act_Edit_HorizontalRule: TAction;
    Act_Edit_InsertImage: TAction;
    Act_Edit_InsertLineBreak: TAction;
    Act_Edit_InsertOrderedlist: TAction;
    Act_Edit_InsertTable: TAction;
    Act_Edit_InsertUnOrderedList: TAction;
    Act_Edit_JustifyCenter: TAction;
    Act_Edit_JustifyFull: TAction;
    Act_Edit_JustifyLeft: TAction;
    Act_Edit_JustifyRight: TAction;
    Act_Edit_Italic: TAction;
    Act_Edit_RemoveFormat: TAction;
    Act_Edit_ScrollToBottom: TAction;
    Act_Edit_ScrollToTop: TAction;
    Act_Edit_OutDent: TAction;
    Act_Edit_InDent: TAction;
    Act_Edit_SuperScript: TAction;
    Act_Edit_SubScript: TAction;
    Act_Edit_UnderLine: TAction;
    Act_Edit_StrikeThrough: TAction;
    pgc2: TPageControl;
    ts4: TTabSheet;
    ts5: TTabSheet;
    HtmlEditRecv: THtmlEdit;
    HtmlEdit: THtmlEdit;
    CoolBar1: TCoolBar;
    ActMainMenu: TActionMainMenuBar;
    btnSend: TButton;
    mmo1: TMemo;
    grpEdit: TGroupBox;
    lblTable: TLabel;
    Label1: TLabel;
    lbl1: TLabel;
    btn2: TButton;
    btn3: TButton;
    btn5: TButton;
    btn6: TButton;
    btn1: TButton;
    Button2: TButton;
    btn7: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    btn12: TButton;
    btn13: TButton;
    btn14: TButton;
    btn16: TButton;
    btn18: TButton;
    btn19: TButton;
    btn20: TButton;
    btn21: TButton;
    btn22: TButton;
    btn23: TButton;
    btn25: TButton;
    btn29: TButton;
    btn30: TButton;
    btn33: TButton;
    cbbFontName: TComboBox;
    edt2: TEdit;
    edt3: TEdit;
    sedtFontSize: TSpinEdit;
    grpFile: TGroupBox;
    btn36: TButton;
    btnPaste: TButton;
    btn38: TButton;
    btnCut: TButton;
    btnCopy: TButton;
    btn31: TButton;
    chkReadOnly: TCheckBox;
    btnPrintPageSetup: TButton;
    btn15: TButton;
    btn17: TButton;
    btn24: TButton;
    btnSaveAs: TButton;
    btn26: TButton;
    btnSelectAll: TButton;
    btn40: TButton;
    btnViewSource: TButton;
    btnViewText: TButton;
    btnWrite: TButton;
    btnExec: TButton;
    edt1: TEdit;
    btn28: TButton;
    btnInsert: TButton;
    btnAppend: TButton;
    pnlToolsBar: TPanel;
    CoolBar: TCoolBar;
    PageScroller1: TPageScroller;
    ToolBar: TToolBar;
    tbsNew: TToolButton;
    tbsOpen: TToolButton;
    tbsSave: TToolButton;
    PageScroller2: TPageScroller;
    cbFontName: TComboBox;
    cbFontSize: TComboBox;
    PageScroller3: TPageScroller;
    ToolBar2: TToolBar;
    tbsBold: TToolButton;
    tbsItalic: TToolButton;
    tbsUnderLine: TToolButton;
    tbsStrikeThrough: TToolButton;
    PageScroller4: TPageScroller;
    ToolBar3: TToolBar;
    tbsPrint: TToolButton;
    tbsPrintPreview: TToolButton;
    PageScroller5: TPageScroller;
    ToolBar1: TToolBar;
    tbsCut: TToolButton;
    tbsCopy: TToolButton;
    tbsPaste: TToolButton;
    tbsClear: TToolButton;
    PageScroller6: TPageScroller;
    ToolBar4: TToolBar;
    tbsForeColor: TToolButton;
    tbsBackColoer: TToolButton;
    PageScroller7: TPageScroller;
    ToolBar5: TToolBar;
    tbsUndo: TToolButton;
    tbsRedo: TToolButton;
    PageScroller8: TPageScroller;
    ToolBar6: TToolBar;
    tbsSuperScript: TToolButton;
    tbsSubScript: TToolButton;
    tbsInsertOrderedlist: TToolButton;
    tbsInDent: TToolButton;
    tbsOutDent: TToolButton;
    PageScroller9: TPageScroller;
    ToolBar7: TToolBar;
    tbsCreateLink: TToolButton;
    tbsInsertTable: TToolButton;
    PageScroller10: TPageScroller;
    ToolBar8: TToolBar;
    tbsSelectAll: TToolButton;
    PageScroller12: TPageScroller;
    ToolBar10: TToolBar;
    tbsJustifyFull: TToolButton;
    tbsJustifyLeft: TToolButton;
    tbsJustifyCenter: TToolButton;
    tbsJustifyRight: TToolButton;
    ActionManager: TActionManager;
    Act_Exit: TAction;
    Act_Help: TAction;
    Act_About: TAction;
    tbsInsertImage: TToolButton;
    Act_M_ExampleWindow: TAction;
    Act_M_ExampleButton: TAction;
    procedure Act_BackColorExecute(Sender: TObject);
    procedure Act_BoldExecute(Sender: TObject);
    procedure Act_ExitExecute(Sender: TObject);
    procedure Act_FontNameExecute(Sender: TObject);
    procedure Act_FontSizeExecute(Sender: TObject);
    procedure Act_IndentExecute(Sender: TObject);
    procedure Act_InsertImageExecute(Sender: TObject);
    procedure Act_InsertOrderedListExecute(Sender: TObject);
    procedure Act_ItalicExecute(Sender: TObject);
    procedure Act_JustifyCenterExecute(Sender: TObject);
    procedure Act_JustifyFullExecute(Sender: TObject);
    procedure Act_JustifyLeftExecute(Sender: TObject);
    procedure Act_JustifyRightExecute(Sender: TObject);
    procedure Act_NewExecute(Sender: TObject);
    procedure Act_OpenExecute(Sender: TObject);
    procedure Act_OutdentExecute(Sender: TObject);
    procedure Act_PasteExecute(Sender: TObject);
    procedure Act_PrintExecute(Sender: TObject);
    procedure Act_PrintPreviewExecute(Sender: TObject);
    procedure Act_RedoExecute(Sender: TObject);
    procedure Act_RemoveformatExecute(Sender: TObject);
    procedure Act_SaveExecute(Sender: TObject);
    procedure Act_SelectAllExecute(Sender: TObject);
    procedure Act_UnderlineExecute(Sender: TObject);
    procedure Act_UndoExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cbbFontNameKeyPress(Sender: TObject; var Key: Char);
    procedure btnExecClick(Sender: TObject);
    procedure chkReadOnlyClick(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
    procedure cbbFontNameChange(Sender: TObject);
    procedure sedtFontSizeChange(Sender: TObject);
    procedure Act_SaveAsExecute(Sender: TObject);
    procedure Act_SaveToExecute(Sender: TObject);
    procedure Act_PageSetupExecute(Sender: TObject);
    procedure Act_ClearExecute(Sender: TObject);
    procedure Act_WriteExecute(Sender: TObject);
    procedure Act_CopyExecute(Sender: TObject);
    procedure Act_CutExecute(Sender: TObject);
    procedure Act_InsertExecute(Sender: TObject);
    procedure Act_AppendExecute(Sender: TObject);
    procedure Act_ViewSourceExecute(Sender: TObject);
    procedure Act_ViewTextExecute(Sender: TObject);
    procedure Act_Edit_BackColoerExecute(Sender: TObject);
    procedure Act_Edit_BoldExecute(Sender: TObject);
    procedure Act_Edit_CreateLinkExecute(Sender: TObject);
    procedure Act_Edit_HorizontalRuleExecute(Sender: TObject);
    procedure Act_Edit_ForeColorExecute(Sender: TObject);
    procedure Act_Edit_InsertImageExecute(Sender: TObject);
    procedure Act_Edit_InsertLineBreakExecute(Sender: TObject);
    procedure Act_Edit_InsertOrderedlistExecute(Sender: TObject);
    procedure Act_Edit_InsertTableExecute(Sender: TObject);
    procedure Act_Edit_InsertUnOrderedListExecute(Sender: TObject);
    procedure Act_Edit_JustifyCenterExecute(Sender: TObject);
    procedure Act_Edit_JustifyFullExecute(Sender: TObject);
    procedure Act_Edit_JustifyLeftExecute(Sender: TObject);
    procedure Act_Edit_JustifyRightExecute(Sender: TObject);
    procedure Act_Edit_ItalicExecute(Sender: TObject);
    procedure Act_Edit_RemoveFormatExecute(Sender: TObject);
    procedure Act_Edit_ScrollToBottomExecute(Sender: TObject);
    procedure Act_Edit_ScrollToTopExecute(Sender: TObject);
    procedure Act_Edit_OutDentExecute(Sender: TObject);
    procedure Act_Edit_InDentExecute(Sender: TObject);
    procedure Act_Edit_SuperScriptExecute(Sender: TObject);
    procedure Act_Edit_SubScriptExecute(Sender: TObject);
    procedure Act_Edit_UnderLineExecute(Sender: TObject);
    procedure Act_Edit_StrikeThroughExecute(Sender: TObject);
    procedure Act_M_ExampleWindowExecute(Sender: TObject);
    procedure Act_M_ExampleButtonExecute(Sender: TObject);
  end;

var
  HtmlEditForm: THtmlEditForm;

implementation

uses uMD5, MSHTML;

{$R *.dfm}

{
******************************** THtmlEditForm *********************************
}

procedure THtmlEditForm.Act_BackColorExecute(Sender: TObject);
begin
  //  if dlgColor1.Execute then
  //    HtmlEdit.Command.BackColor(dlgColor1.Color);
end;

procedure THtmlEditForm.Act_BoldExecute(Sender: TObject);
begin

  HtmlEdit.Edit.Bold;
end;

procedure THtmlEditForm.Act_ExitExecute(Sender: TObject);
begin
  Close;
end;

procedure THtmlEditForm.Act_FontNameExecute(Sender: TObject);
begin
  if cbFontName.Text <> '' then
    HtmlEdit.Edit.FontName(cbFontName.Text);

end;

procedure THtmlEditForm.Act_FontSizeExecute(Sender: TObject);
begin
  HtmlEdit.Edit.FontSize(cbFontSize.ItemIndex + 1);
end;

procedure THtmlEditForm.Act_IndentExecute(Sender: TObject);
begin
  HtmlEdit.Edit.Indent;
end;

procedure THtmlEditForm.Act_InsertImageExecute(Sender: TObject);
begin
  if dlgOpenPic.Execute then
    HtmlEdit.Edit.InsertImage(dlgOpenPic.FileName);
end;

procedure THtmlEditForm.Act_InsertOrderedListExecute(Sender: TObject);
begin
  HtmlEdit.Edit.InsertOrderedList;
end;

procedure THtmlEditForm.Act_ItalicExecute(Sender: TObject);
begin
  HtmlEdit.Edit.Italic;
end;

procedure THtmlEditForm.Act_JustifyCenterExecute(Sender: TObject);
begin
  HtmlEdit.Edit.JustifyCenter;
end;

procedure THtmlEditForm.Act_JustifyFullExecute(Sender: TObject);
begin
  HtmlEdit.Edit.JustifyFull;
end;

procedure THtmlEditForm.Act_JustifyLeftExecute(Sender: TObject);
begin
  HtmlEdit.Edit.JustifyLeft;
end;

procedure THtmlEditForm.Act_JustifyRightExecute(Sender: TObject);
begin
  HtmlEdit.Edit.JustifyRight;
end;

procedure THtmlEditForm.Act_NewExecute(Sender: TObject);
begin
  HtmlEdit.New;
end;

procedure THtmlEditForm.Act_OpenExecute(Sender: TObject);
begin
  if dlgOpen.Execute then
    HtmlEdit.Open(dlgOpen.FileName);
end;

procedure THtmlEditForm.Act_OutdentExecute(Sender: TObject);
begin
  HtmlEdit.Edit.Outdent;
end;

procedure THtmlEditForm.Act_PasteExecute(Sender: TObject);
begin
  HtmlEdit.Paste;
end;

procedure THtmlEditForm.Act_PrintExecute(Sender: TObject);