开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
uHtmlEditForm.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：19k
源码类别：

Email服务器

开发平台：

Delphi

uHtmlEditForm.pas：源码内容
  1. unit uHtmlEditForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, ToolWin,
  8.   OleCtrls, SHDocVw, ImgList, ActnList, uHtmlEdit,
  9.   ExtCtrls, Menus, StdCtrls, jpeg, ExtDlgs, Spin, ActnMan, ActnCtrls,
  10.   ActnMenus, XPStyleActnCtrls;
  12. type
  13.   THtmlEditForm = class(TForm)
  14.     ActionListButton: TActionList;
  15.     Act_New: TAction;
  16.     Act_Open: TAction;
  17.     Act_Save: TAction;
  18.     dlgColor1: TColorDialog;
  19.     dlgOpen: TOpenDialog;
  20.     dlgSave: TSaveDialog;
  21.     N1: TMenuItem;
  22.     pmHtmlEdit: TPopupMenu;
  23.     LargeImages: TImageList;
  24.     SmallImages: TImageList;
  25.     dlgOpenPic: TOpenPictureDialog;
  26.     Act_SaveAs: TAction;
  27.     Act_SaveTo: TAction;
  28.     Act_Clear: TAction;
  29.     Act_Redo: TAction;
  30.     Act_Undo: TAction;
  31.     Act_SelectAll: TAction;
  32.     Act_Print: TAction;
  33.     Act_PageSetup: TAction;
  34.     Act_PrintPreview: TAction;
  35.     Act_Write: TAction;
  36.     Act_Copy: TAction;
  37.     Act_Cut: TAction;
  38.     Act_Paste: TAction;
  39.     Act_Insert: TAction;
  40.     Act_Append: TAction;
  41.     Act_ViewSource: TAction;
  42.     Act_ViewText: TAction;
  43.     Act_Edit_BackColoer: TAction;
  44.     Act_Edit_Bold: TAction;
  45.     Act_Edit_CreateLink: TAction;
  46.     Act_Edit_ForeColor: TAction;
  47.     Act_Edit_HorizontalRule: TAction;
  48.     Act_Edit_InsertImage: TAction;
  49.     Act_Edit_InsertLineBreak: TAction;
  50.     Act_Edit_InsertOrderedlist: TAction;
  51.     Act_Edit_InsertTable: TAction;
  52.     Act_Edit_InsertUnOrderedList: TAction;
  53.     Act_Edit_JustifyCenter: TAction;
  54.     Act_Edit_JustifyFull: TAction;
  55.     Act_Edit_JustifyLeft: TAction;
  56.     Act_Edit_JustifyRight: TAction;
  57.     Act_Edit_Italic: TAction;
  58.     Act_Edit_RemoveFormat: TAction;
  59.     Act_Edit_ScrollToBottom: TAction;
  60.     Act_Edit_ScrollToTop: TAction;
  61.     Act_Edit_OutDent: TAction;
  62.     Act_Edit_InDent: TAction;
  63.     Act_Edit_SuperScript: TAction;
  64.     Act_Edit_SubScript: TAction;
  65.     Act_Edit_UnderLine: TAction;
  66.     Act_Edit_StrikeThrough: TAction;
  67.     pgc2: TPageControl;
  68.     ts4: TTabSheet;
  69.     ts5: TTabSheet;
  70.     HtmlEditRecv: THtmlEdit;
  71.     HtmlEdit: THtmlEdit;
  72.     CoolBar1: TCoolBar;
  73.     ActMainMenu: TActionMainMenuBar;
  74.     btnSend: TButton;
  75.     mmo1: TMemo;
  76.     grpEdit: TGroupBox;
  77.     lblTable: TLabel;
  78.     Label1: TLabel;
  79.     lbl1: TLabel;
  80.     btn2: TButton;
  81.     btn3: TButton;
  82.     btn5: TButton;
  83.     btn6: TButton;
  84.     btn1: TButton;
  85.     Button2: TButton;
  86.     btn7: TButton;
  87.     btn9: TButton;
  88.     btn10: TButton;
  89.     btn11: TButton;
  90.     btn12: TButton;
  91.     btn13: TButton;
  92.     btn14: TButton;
  93.     btn16: TButton;
  94.     btn18: TButton;
  95.     btn19: TButton;
  96.     btn20: TButton;
  97.     btn21: TButton;
  98.     btn22: TButton;
  99.     btn23: TButton;
  100.     btn25: TButton;
  101.     btn29: TButton;
  102.     btn30: TButton;
  103.     btn33: TButton;
  104.     cbbFontName: TComboBox;
  105.     edt2: TEdit;
  106.     edt3: TEdit;
  107.     sedtFontSize: TSpinEdit;
  108.     grpFile: TGroupBox;
  109.     btn36: TButton;
  110.     btnPaste: TButton;
  111.     btn38: TButton;
  112.     btnCut: TButton;
  113.     btnCopy: TButton;
  114.     btn31: TButton;
  115.     chkReadOnly: TCheckBox;
  116.     btnPrintPageSetup: TButton;
  117.     btn15: TButton;
  118.     btn17: TButton;
  119.     btn24: TButton;
  120.     btnSaveAs: TButton;
  121.     btn26: TButton;
  122.     btnSelectAll: TButton;
  123.     btn40: TButton;
  124.     btnViewSource: TButton;
  125.     btnViewText: TButton;
  126.     btnWrite: TButton;
  127.     btnExec: TButton;
  128.     edt1: TEdit;
  129.     btn28: TButton;
  130.     btnInsert: TButton;
  131.     btnAppend: TButton;
  132.     pnlToolsBar: TPanel;
  133.     CoolBar: TCoolBar;
  134.     PageScroller1: TPageScroller;
  135.     ToolBar: TToolBar;
  136.     tbsNew: TToolButton;
  137.     tbsOpen: TToolButton;
  138.     tbsSave: TToolButton;
  139.     PageScroller2: TPageScroller;
  140.     cbFontName: TComboBox;
  141.     cbFontSize: TComboBox;
  142.     PageScroller3: TPageScroller;
  143.     ToolBar2: TToolBar;
  144.     tbsBold: TToolButton;
  145.     tbsItalic: TToolButton;
  146.     tbsUnderLine: TToolButton;
  147.     tbsStrikeThrough: TToolButton;
  148.     PageScroller4: TPageScroller;
  149.     ToolBar3: TToolBar;
  150.     tbsPrint: TToolButton;
  151.     tbsPrintPreview: TToolButton;
  152.     PageScroller5: TPageScroller;
  153.     ToolBar1: TToolBar;
  154.     tbsCut: TToolButton;
  155.     tbsCopy: TToolButton;
  156.     tbsPaste: TToolButton;
  157.     tbsClear: TToolButton;
  158.     PageScroller6: TPageScroller;
  159.     ToolBar4: TToolBar;
  160.     tbsForeColor: TToolButton;
  161.     tbsBackColoer: TToolButton;
  162.     PageScroller7: TPageScroller;
  163.     ToolBar5: TToolBar;
  164.     tbsUndo: TToolButton;
  165.     tbsRedo: TToolButton;
  166.     PageScroller8: TPageScroller;
  167.     ToolBar6: TToolBar;
  168.     tbsSuperScript: TToolButton;
  169.     tbsSubScript: TToolButton;
  170.     tbsInsertOrderedlist: TToolButton;
  171.     tbsInDent: TToolButton;
  172.     tbsOutDent: TToolButton;
  173.     PageScroller9: TPageScroller;
  174.     ToolBar7: TToolBar;
  175.     tbsCreateLink: TToolButton;
  176.     tbsInsertTable: TToolButton;
  177.     PageScroller10: TPageScroller;
  178.     ToolBar8: TToolBar;
  179.     tbsSelectAll: TToolButton;
  180.     PageScroller12: TPageScroller;
  181.     ToolBar10: TToolBar;
  182.     tbsJustifyFull: TToolButton;
  183.     tbsJustifyLeft: TToolButton;
  184.     tbsJustifyCenter: TToolButton;
  185.     tbsJustifyRight: TToolButton;
  186.     ActionManager: TActionManager;
  187.     Act_Exit: TAction;
  188.     Act_Help: TAction;
  189.     Act_About: TAction;
  190.     tbsInsertImage: TToolButton;
  191.     Act_M_ExampleWindow: TAction;
  192.     Act_M_ExampleButton: TAction;
  193.     procedure Act_BackColorExecute(Sender: TObject);
  194.     procedure Act_BoldExecute(Sender: TObject);
  195.     procedure Act_ExitExecute(Sender: TObject);
  196.     procedure Act_FontNameExecute(Sender: TObject);
  197.     procedure Act_FontSizeExecute(Sender: TObject);
  198.     procedure Act_IndentExecute(Sender: TObject);
  199.     procedure Act_InsertImageExecute(Sender: TObject);
  200.     procedure Act_InsertOrderedListExecute(Sender: TObject);
  201.     procedure Act_ItalicExecute(Sender: TObject);
  202.     procedure Act_JustifyCenterExecute(Sender: TObject);
  203.     procedure Act_JustifyFullExecute(Sender: TObject);
  204.     procedure Act_JustifyLeftExecute(Sender: TObject);
  205.     procedure Act_JustifyRightExecute(Sender: TObject);
  206.     procedure Act_NewExecute(Sender: TObject);
  207.     procedure Act_OpenExecute(Sender: TObject);
  208.     procedure Act_OutdentExecute(Sender: TObject);
  209.     procedure Act_PasteExecute(Sender: TObject);
  210.     procedure Act_PrintExecute(Sender: TObject);
  211.     procedure Act_PrintPreviewExecute(Sender: TObject);
  212.     procedure Act_RedoExecute(Sender: TObject);
  213.     procedure Act_RemoveformatExecute(Sender: TObject);
  214.     procedure Act_SaveExecute(Sender: TObject);
  215.     procedure Act_SelectAllExecute(Sender: TObject);
  216.     procedure Act_UnderlineExecute(Sender: TObject);
  217.     procedure Act_UndoExecute(Sender: TObject);
  218.     procedure FormCreate(Sender: TObject);
  219.     procedure cbbFontNameKeyPress(Sender: TObject; var Key: Char);
  220.     procedure btnExecClick(Sender: TObject);
  221.     procedure chkReadOnlyClick(Sender: TObject);
  222.     procedure btnSendClick(Sender: TObject);
  223.     procedure cbbFontNameChange(Sender: TObject);
  224.     procedure sedtFontSizeChange(Sender: TObject);
  225.     procedure Act_SaveAsExecute(Sender: TObject);
  226.     procedure Act_SaveToExecute(Sender: TObject);
  227.     procedure Act_PageSetupExecute(Sender: TObject);
  228.     procedure Act_ClearExecute(Sender: TObject);
  229.     procedure Act_WriteExecute(Sender: TObject);
  230.     procedure Act_CopyExecute(Sender: TObject);
  231.     procedure Act_CutExecute(Sender: TObject);
  232.     procedure Act_InsertExecute(Sender: TObject);
  233.     procedure Act_AppendExecute(Sender: TObject);
  234.     procedure Act_ViewSourceExecute(Sender: TObject);
  235.     procedure Act_ViewTextExecute(Sender: TObject);
  236.     procedure Act_Edit_BackColoerExecute(Sender: TObject);
  237.     procedure Act_Edit_BoldExecute(Sender: TObject);
  238.     procedure Act_Edit_CreateLinkExecute(Sender: TObject);
  239.     procedure Act_Edit_HorizontalRuleExecute(Sender: TObject);
  240.     procedure Act_Edit_ForeColorExecute(Sender: TObject);
  241.     procedure Act_Edit_InsertImageExecute(Sender: TObject);
  242.     procedure Act_Edit_InsertLineBreakExecute(Sender: TObject);
  243.     procedure Act_Edit_InsertOrderedlistExecute(Sender: TObject);
  244.     procedure Act_Edit_InsertTableExecute(Sender: TObject);
  245.     procedure Act_Edit_InsertUnOrderedListExecute(Sender: TObject);
  246.     procedure Act_Edit_JustifyCenterExecute(Sender: TObject);
  247.     procedure Act_Edit_JustifyFullExecute(Sender: TObject);
  248.     procedure Act_Edit_JustifyLeftExecute(Sender: TObject);
  249.     procedure Act_Edit_JustifyRightExecute(Sender: TObject);
  250.     procedure Act_Edit_ItalicExecute(Sender: TObject);
  251.     procedure Act_Edit_RemoveFormatExecute(Sender: TObject);
  252.     procedure Act_Edit_ScrollToBottomExecute(Sender: TObject);
  253.     procedure Act_Edit_ScrollToTopExecute(Sender: TObject);
  254.     procedure Act_Edit_OutDentExecute(Sender: TObject);
  255.     procedure Act_Edit_InDentExecute(Sender: TObject);
  256.     procedure Act_Edit_SuperScriptExecute(Sender: TObject);
  257.     procedure Act_Edit_SubScriptExecute(Sender: TObject);
  258.     procedure Act_Edit_UnderLineExecute(Sender: TObject);
  259.     procedure Act_Edit_StrikeThroughExecute(Sender: TObject);
  260.     procedure Act_M_ExampleWindowExecute(Sender: TObject);
  261.     procedure Act_M_ExampleButtonExecute(Sender: TObject);
  262.   end;
  264. var
  265.   HtmlEditForm: THtmlEditForm;
  267. implementation
  269. uses uMD5, MSHTML;
  271. {$R *.dfm}
  273. {
  274. ******************************** THtmlEditForm *********************************
  275. }
  277. procedure THtmlEditForm.Act_BackColorExecute(Sender: TObject);
  278. begin
  279.   //  if dlgColor1.Execute then
  280.   //    HtmlEdit.Command.BackColor(dlgColor1.Color);
  281. end;
  283. procedure THtmlEditForm.Act_BoldExecute(Sender: TObject);
  284. begin
  286.   HtmlEdit.Edit.Bold;
  287. end;
  289. procedure THtmlEditForm.Act_ExitExecute(Sender: TObject);
  290. begin
  291.   Close;
  292. end;
  294. procedure THtmlEditForm.Act_FontNameExecute(Sender: TObject);
  295. begin
  296.   if cbFontName.Text <> '' then
  297.     HtmlEdit.Edit.FontName(cbFontName.Text);
  299. end;
  301. procedure THtmlEditForm.Act_FontSizeExecute(Sender: TObject);
  302. begin
  303.   HtmlEdit.Edit.FontSize(cbFontSize.ItemIndex + 1);
  304. end;
  306. procedure THtmlEditForm.Act_IndentExecute(Sender: TObject);
  307. begin
  308.   HtmlEdit.Edit.Indent;
  309. end;
  311. procedure THtmlEditForm.Act_InsertImageExecute(Sender: TObject);
  312. begin
  313.   if dlgOpenPic.Execute then
  314.     HtmlEdit.Edit.InsertImage(dlgOpenPic.FileName);
  315. end;
  317. procedure THtmlEditForm.Act_InsertOrderedListExecute(Sender: TObject);
  318. begin
  319.   HtmlEdit.Edit.InsertOrderedList;
  320. end;
  322. procedure THtmlEditForm.Act_ItalicExecute(Sender: TObject);
  323. begin
  324.   HtmlEdit.Edit.Italic;
  325. end;
  327. procedure THtmlEditForm.Act_JustifyCenterExecute(Sender: TObject);
  328. begin
  329.   HtmlEdit.Edit.JustifyCenter;
  330. end;
  332. procedure THtmlEditForm.Act_JustifyFullExecute(Sender: TObject);
  333. begin
  334.   HtmlEdit.Edit.JustifyFull;
  335. end;
  337. procedure THtmlEditForm.Act_JustifyLeftExecute(Sender: TObject);
  338. begin
  339.   HtmlEdit.Edit.JustifyLeft;
  340. end;
  342. procedure THtmlEditForm.Act_JustifyRightExecute(Sender: TObject);
  343. begin
  344.   HtmlEdit.Edit.JustifyRight;
  345. end;
  347. procedure THtmlEditForm.Act_NewExecute(Sender: TObject);
  348. begin
  349.   HtmlEdit.New;
  350. end;
  352. procedure THtmlEditForm.Act_OpenExecute(Sender: TObject);
  353. begin
  354.   if dlgOpen.Execute then
  355.     HtmlEdit.Open(dlgOpen.FileName);
  356. end;
  358. procedure THtmlEditForm.Act_OutdentExecute(Sender: TObject);
  359. begin
  360.   HtmlEdit.Edit.Outdent;
  361. end;
  363. procedure THtmlEditForm.Act_PasteExecute(Sender: TObject);
  364. begin
  365.   HtmlEdit.Paste;
  366. end;
  368. procedure THtmlEditForm.Act_PrintExecute(Sender: TObject);
  369. begin
  370.   HtmlEdit.Print;
  371. end;
  373. procedure THtmlEditForm.Act_PrintPreviewExecute(Sender: TObject);
  374. begin
  375.   HtmlEdit.PrintPreview;
  376. end;
  378. procedure THtmlEditForm.Act_RedoExecute(Sender: TObject);
  379. begin
  380.   HtmlEdit.Redo;
  381. end;
  383. procedure THtmlEditForm.Act_RemoveformatExecute(Sender: TObject);
  384. begin
  385.   HtmlEdit.Edit.Removeformat;
  386. end;
  388. procedure THtmlEditForm.Act_SaveExecute(Sender: TObject);
  389. begin
  390.   HtmlEdit.Save;
  391. end;
  393. procedure THtmlEditForm.Act_SelectAllExecute(Sender: TObject);
  394. begin
  395.   HtmlEdit.SelectAll;
  396. end;
  398. procedure THtmlEditForm.Act_UnderlineExecute(Sender: TObject);
  399. begin
  400.   HtmlEdit.Edit.Underline;
  401. end;
  403. procedure THtmlEditForm.Act_UndoExecute(Sender: TObject);
  404. begin
  405.   HtmlEdit.Undo;
  406. end;
  408. procedure THtmlEditForm.FormCreate(Sender: TObject);
  410.   procedure ClearFontName;
  411.   var
  412.     i: integer;
  413.   begin
  414.     for i := cbbFontName.Items.Count - 1 downto 0 do
  415.     begin
  416.       if Pos('@', cbbFontName.Items[i]) = 1 then
  417.         cbbFontName.Items.Delete(i);
  418.     end;
  419.     for i := cbFontName.Items.Count - 1 downto 0 do
  420.     begin
  421.       if Pos('@', cbFontName.Items[i]) = 1 then
  422.         cbFontName.Items.Delete(i);
  423.     end;
  424.   end;
  426. begin
  427.   Self.BorderIcons := [biSystemMenu, biMinimize];
  428.   Self.BorderStyle := bsSingle;
  430.   pgc2.ActivePageIndex := 0;
  432.   cbbFontName.Items.AddStrings(Screen.Fonts);
  433.   cbFontName.Items.AddStrings(Screen.Fonts);
  434.   ClearFontName;
  436.   HtmlEditRecv.ReadOnly := TRUE;
  437.   HtmlEdit.ImageFolder := ExtractFilePath(Application.ExeName) + 'Image';
  438. end;
  440. {
  441. Cut 将当前选中区复制到剪贴板并删除之。
  442. Copy 将当前选中区复制到剪贴板。
  443. Paste 用剪贴板内容覆盖当前选中区。
  444. Delete 删除当前选中区。
  445. Removeformat 从当前选中区中删除格式化标签。
  446. --
  447. Redo 目前尚未支持
  448. Undo 目前尚未支持。
  449. --
  450. SelectAll 选中整个文档。
  451. Unselect 清除当前选中区的选中状态。
  452. --
  453. Indent 增加选中文本的缩进。
  454. Outdent 减少选中区所在格式化块的缩进。
  455. InsertOrderedList 切换当前选中区是编号列表还是常规格式化块。
  456. --
  457. Bold 切换当前选中区的粗体显示与否。
  458. Italic 切换当前选中区斜体显示与否。
  459. Underline 切换当前选中区的下划线显示与否。
  460. --
  461. FontName 设置或获取当前选中区的字体。
  462. FontSize 设置或获取当前选中区的字体大小。
  463. ForeColor 设置或获取当前选中区的前景(文本)颜色。 )
  464. BackColor 设置或获取当前选中区的背景颜色。
  465. --
  466. JustifyCenter 将当前选中区在所在格式化块置中。
  467. JustifyLeft 将当前选中区所在格式化块左对齐。
  468. JustifyRight 将当前选中区所在格式化块右对齐。
  470. CreateLink 在当前选中区上插入超级链接，或显示一个对话框允许用户指定要为当前选中区插入的超级链接的 URL。
  472. InsertImage 用图像覆盖当前选中区。
  474. OverWrite 切换文本状态的插入和覆盖。
  476. Print 打开打印对话框以便用户可以打印当前页。
  478. SaveAs 将当前 Web 页面保存为文件。
  479. Unlink 从当前选中区中删除全部超级链接。
  481. }
  483. procedure THtmlEditForm.cbbFontNameKeyPress(Sender: TObject;
  484.   var Key: Char);
  485. begin
  486.   Key := #0;
  487. end;
  489. procedure THtmlEditForm.btnExecClick(Sender: TObject);
  490. begin
  491.   HtmlEdit.Edit.Format(Trim(edt1.Text));
  492. end;
  494. procedure THtmlEditForm.chkReadOnlyClick(Sender: TObject);
  495. begin
  496.   HtmlEdit.ReadOnly := chkReadOnly.Checked;
  497. end;
  499. procedure THtmlEditForm.btnSendClick(Sender: TObject);
  500. begin
  501.   //  HtmlEdit1.Add(HtmlEdit.HTML);
  502.   //  HtmlEdit1.Add('/BR');
  504.   HtmlEditRecv.Append(HtmlEdit.HTML);
  506.   HtmlEdit.Clear;
  508.   HtmlEditRecv.Edit.ScrollToBottom;
  510. end;
  512. procedure THtmlEditForm.cbbFontNameChange(Sender: TObject);
  513. begin
  514.   if cbbFontName.Text <> '' then
  515.     HtmlEdit.Edit.FontName(cbbFontName.Text);
  516. end;
  518. procedure THtmlEditForm.sedtFontSizeChange(Sender: TObject);
  519. begin
  520.   HtmlEdit.Edit.FontSize(sedtFontSize.Value);
  521. end;
  523. procedure THtmlEditForm.Act_SaveAsExecute(Sender: TObject);
  524. begin
  525.   HtmlEdit.SaveAs;
  526. end;
  528. procedure THtmlEditForm.Act_SaveToExecute(Sender: TObject);
  529. begin
  530.   if dlgSave.Execute then
  531.     HtmlEdit.SaveToFile(dlgSave.FileName);
  532. end;
  534. procedure THtmlEditForm.Act_PageSetupExecute(Sender: TObject);
  535. begin
  536.   HtmlEdit.PrintPageSetup;
  537. end;
  539. procedure THtmlEditForm.Act_ClearExecute(Sender: TObject);
  540. begin
  541.   HtmlEdit.Clear;
  542. end;
  544. procedure THtmlEditForm.Act_WriteExecute(Sender: TObject);
  545. var
  546.   strTable: string;
  547.   RowCnt, ColCnt: integer;
  548. begin
  549.   strTable := '<TABLE border=1 >';
  550.   for RowCnt := 1 to 3 do
  551.   begin
  552.     strTable := strTable + '<TR>';
  553.     for ColCnt := 1 to 5 do
  554.       strTable := strTable + '<TD>&nbsp;</TD>';
  555.     strTable := strTable + '</TR>';
  556.   end;
  557.   strTable := strTable + '</TABLE>';
  559.   HtmlEdit.Write(strTable);
  561. end;
  563. procedure THtmlEditForm.Act_CopyExecute(Sender: TObject);
  564. begin
  565.   HtmlEdit.Copy;
  566. end;
  568. procedure THtmlEditForm.Act_CutExecute(Sender: TObject);
  569. begin
  570.   HtmlEdit.Cut;
  571. end;
  573. procedure THtmlEditForm.Act_InsertExecute(Sender: TObject);
  574. begin
  575.   HtmlEditRecv.Insert(HtmlEdit.HTML);
  576.   HtmlEdit.Clear;
  577. end;
  579. procedure THtmlEditForm.Act_AppendExecute(Sender: TObject);
  580. begin
  581.   HtmlEditRecv.Append(HtmlEdit.HTML);
  582.   HtmlEdit.Clear;
  583. end;
  585. procedure THtmlEditForm.Act_ViewSourceExecute(Sender: TObject);
  586. begin
  587.   mmo1.Clear;
  588.   mmo1.Lines.Text := HtmlEdit.HTML;
  589.   pgc2.ActivePageIndex := 1;
  590. end;
  592. procedure THtmlEditForm.Act_ViewTextExecute(Sender: TObject);
  593. begin
  594.   mmo1.Clear;
  595.   mmo1.Lines.Text := HtmlEdit.Text;
  596.   pgc2.ActivePageIndex := 1;
  597. end;
  599. procedure THtmlEditForm.Act_Edit_BackColoerExecute(Sender: TObject);
  600. begin
  601.   if dlgColor1.Execute then
  602.     HtmlEdit.Edit.BackColor(dlgColor1.Color);
  603. end;
  605. procedure THtmlEditForm.Act_Edit_BoldExecute(Sender: TObject);
  606. begin
  607.   HtmlEdit.Edit.Bold;
  608. end;
  610. procedure THtmlEditForm.Act_Edit_CreateLinkExecute(Sender: TObject);
  611. begin
  612.   HtmlEdit.Edit.CreateLink;
  613. end;
  615. procedure THtmlEditForm.Act_Edit_HorizontalRuleExecute(Sender: TObject);
  616. begin
  617.   HtmlEdit.Edit.InsertHorizontalRule;
  618. end;
  620. procedure THtmlEditForm.Act_Edit_ForeColorExecute(Sender: TObject);
  621. begin
  622.   if dlgColor1.Execute then
  623.     HtmlEdit.Edit.ForeColor(dlgColor1.Color);
  624. end;
  626. procedure THtmlEditForm.Act_Edit_InsertImageExecute(Sender: TObject);
  627. begin
  628.   if dlgOpenPic.Execute then
  629.     HtmlEdit.Edit.InsertImage(dlgOpenPic.FileName);
  630. end;
  632. procedure THtmlEditForm.Act_Edit_InsertLineBreakExecute(Sender: TObject);
  633. begin
  634.   HtmlEdit.Edit.InsertLineBreak;
  635. end;
  637. procedure THtmlEditForm.Act_Edit_InsertOrderedlistExecute(Sender: TObject);
  638. begin
  639.   HtmlEdit.Edit.InsertOrderedList;
  640. end;
  642. procedure THtmlEditForm.Act_Edit_InsertTableExecute(Sender: TObject);
  643. begin
  644.   HtmlEdit.Edit.InsertTable(StrToInt(edt2.Text), StrToInt(edt3.Text));
  645. end;
  647. procedure THtmlEditForm.Act_Edit_InsertUnOrderedListExecute(
  648.   Sender: TObject);
  649. begin
  650.   HtmlEdit.Edit.InsertUnOrderedList;
  651. end;
  653. procedure THtmlEditForm.Act_Edit_JustifyCenterExecute(Sender: TObject);
  654. begin
  655.   HtmlEdit.Edit.JustifyCenter;
  656. end;
  658. procedure THtmlEditForm.Act_Edit_JustifyFullExecute(Sender: TObject);
  659. begin
  660.   HtmlEdit.Edit.JustifyFull;
  661. end;
  663. procedure THtmlEditForm.Act_Edit_JustifyLeftExecute(Sender: TObject);
  664. begin
  665.   HtmlEdit.Edit.JustifyLeft;
  666. end;
  668. procedure THtmlEditForm.Act_Edit_JustifyRightExecute(Sender: TObject);
  669. begin
  670.   HtmlEdit.Edit.JustifyRight;
  671. end;
  673. procedure THtmlEditForm.Act_Edit_ItalicExecute(Sender: TObject);
  674. begin
  675.   HtmlEdit.Edit.Italic;
  676. end;
  678. procedure THtmlEditForm.Act_Edit_RemoveFormatExecute(Sender: TObject);
  679. begin
  680.   HtmlEdit.Edit.RemoveFormat;
  681. end;
  683. procedure THtmlEditForm.Act_Edit_ScrollToBottomExecute(Sender: TObject);
  684. begin
  685.   HtmlEdit.Edit.ScrollToBottom;
  686. end;
  688. procedure THtmlEditForm.Act_Edit_ScrollToTopExecute(Sender: TObject);
  689. begin
  690.   HtmlEdit.Edit.ScrollToTop;
  691. end;
  693. procedure THtmlEditForm.Act_Edit_OutDentExecute(Sender: TObject);
  694. begin
  695.   HtmlEdit.Edit.OutDent;
  696. end;
  698. procedure THtmlEditForm.Act_Edit_InDentExecute(Sender: TObject);
  699. begin
  700.   HtmlEdit.Edit.InDent;
  701. end;
  703. procedure THtmlEditForm.Act_Edit_SuperScriptExecute(Sender: TObject);
  704. begin
  705.   HtmlEdit.Edit.SuperScript;
  706. end;
  708. procedure THtmlEditForm.Act_Edit_SubScriptExecute(Sender: TObject);
  709. begin
  710.   HtmlEdit.Edit.SubScript;
  711. end;
  713. procedure THtmlEditForm.Act_Edit_UnderLineExecute(Sender: TObject);
  714. begin
  715.   HtmlEdit.Edit.UnderLine;
  716. end;
  718. procedure THtmlEditForm.Act_Edit_StrikeThroughExecute(Sender: TObject);
  719. begin
  720.   HtmlEdit.Edit.StrikeThrough;
  721. end;
  723. procedure THtmlEditForm.Act_M_ExampleWindowExecute(Sender: TObject);
  724. begin
  725.   pgc2.ActivePageIndex := 0;
  726. end;
  728. procedure THtmlEditForm.Act_M_ExampleButtonExecute(Sender: TObject);
  729. begin
  730.   pgc2.ActivePageIndex := 1;
  731. end;
  733. end.