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

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

Email服务器

开发平台：

Delphi

uBaseEditorForm.pas：源码内容
  1. unit uBaseEditorForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, dxBar, cxClasses, ExtCtrls, dxBarExtItems, ImgList, uHtmlEdit, OleCtrls,
  8.   SHDocVw, ActnList, dxSkinsCore, dxSkinsdxBarPainter, dxSkinBlack,
  9.   dxSkinBlue, dxSkinCaramel, dxSkinCoffee, {dxSkinDarkRoom,} dxSkinDarkSide,
  10.   {dxSkinFoggy,} dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
  11.   dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  12.   dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  13.   dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, {dxSkinSeven,}
  14.   {dxSkinSharp,} dxSkinSilver, {dxSkinSpringTime,} dxSkinStardust,
  15.   dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  16.   dxSkinXmas2008Blue;
  18. type
  19.   TBaseEditorForm = class(TForm)
  20.     dxbrmngr1: TdxBarManager;
  21.     pnlEdit: TPanel;
  22.     dxbrbtn1: TdxBarButton;
  23.     dxBarSubItem1: TdxBarSubItem;
  24.     dxbrmngr1Bar1: TdxBar;
  25.     dxbrmngr1Bar2: TdxBar;
  26.     dxBarSubItem2: TdxBarSubItem;
  27.     dxbrbtn2: TdxBarButton;
  28.     dxbrbtn3: TdxBarButton;
  29.     dxbrbtn4: TdxBarButton;
  30.     dxbrbtn5: TdxBarButton;
  31.     dxbrsbtm1: TdxBarSubItem;
  32.     dxbrbtn6: TdxBarButton;
  33.     dxbrbtn7: TdxBarButton;
  34.     dxbrbtn8: TdxBarButton;
  35.     pnlEditHeader: TPanel;
  36.     dxbrmngr1Bar3: TdxBar;
  37.     dxbrbtn9: TdxBarButton;
  38.     dxbrdckcntrl1: TdxBarDockControl;
  39.     il1: TImageList;
  40.     btnFontName: TdxBarFontNameCombo;
  41.     btnFontSize: TdxBarSpinEdit;
  42.     dxbrclrcmb1: TdxBarColorCombo;
  43.     pm1: TdxBarPopupMenu;
  44.     dxbrbtn10: TdxBarButton;
  45.     dxbrbtn11: TdxBarButton;
  46.     dxbrbtn12: TdxBarButton;
  47.     dxbrbtn13: TdxBarButton;
  48.     dxbrbtn14: TdxBarButton;
  49.     dxbrsbtm2: TdxBarSubItem;
  50.     dxbrbtn15: TdxBarButton;
  51.     dxbrbtn16: TdxBarButton;
  52.     dxbrbtn17: TdxBarButton;
  53.     dxbrbtn18: TdxBarButton;
  54.     lbl1: TdxBarStatic;
  55.     btnFontColor: TdxBarColorCombo;
  56.     btnFontBackColor: TdxBarColorCombo;
  57.     dxbrbtn19: TdxBarButton;
  58.     dxbrbtn20: TdxBarButton;
  59.     dxbrbtn21: TdxBarButton;
  60.     dxbrbtn22: TdxBarButton;
  61.     dxbrbtn23: TdxBarButton;
  62.     dxbrbtn24: TdxBarButton;
  63.     dxbrbtn25: TdxBarButton;
  64.     dxbrbtn26: TdxBarButton;
  65.     actlst1: TActionList;
  66.     dxbrbtn27: TdxBarButton;
  67.     dxbrbtn28: TdxBarButton;
  68.     dxbrbtn29: TdxBarButton;
  69.     dxbrbtn30: TdxBarButton;
  70.     dxbrbtn31: TdxBarButton;
  71.     actUndo: TAction;
  72.     actRedo: TAction;
  73.     actReplace: TAction;
  74.     actSearch: TAction;
  75.     actCut: TAction;
  76.     actCopy: TAction;
  77.     actPaste: TAction;
  78.     actInsertImg: TAction;
  79.     actInsertHLine: TAction;
  80.     actInsertHyperLine: TAction;
  81.     actAlignLeft: TAction;
  82.     actAlignRigth: TAction;
  83.     actInsertTable: TAction;
  84.     actAlignMid: TAction;
  85.     actIndenIn: TAction;
  86.     actIndenOut: TAction;
  87.     actStrikeLine: TAction;
  88.     actFoneItalic: TAction;
  89.     actFontBlod: TAction;
  90.     actInsertHeader: TAction;
  91.     actFontBackColor: TAction;
  92.     actFontColor: TAction;
  93.     actFontSize: TAction;
  94.     actFontUnderLine: TAction;
  95.     actFontName: TAction;
  96.     actSelectAll: TAction;
  97.     dlgOpen: TOpenDialog;
  98.     dlgSave: TSaveDialog;
  99.     dxbrbtn32: TdxBarButton;
  100.     dxbrbtn33: TdxBarButton;
  101.     dxbrbtn34: TdxBarButton;
  102.     dxbrbtn35: TdxBarButton;
  103.     dxbrbtn36: TdxBarButton;
  104.     dxbrbtn37: TdxBarButton;
  105.     dxbrbtn38: TdxBarButton;
  106.     dxbrbtn39: TdxBarButton;
  107.     dxbrbtn40: TdxBarButton;
  108.     dxbrbtn41: TdxBarButton;
  109.     dxbrbtn42: TdxBarButton;
  110.     dxbrbtn43: TdxBarButton;
  111.     dxbrbtn44: TdxBarButton;
  112.     dxbrbtn45: TdxBarButton;
  113.     dxbrbtn46: TdxBarButton;
  114.     dxbrsbtm3: TdxBarSubItem;
  115.     dxbrbtn47: TdxBarButton;
  116.     dxbrbtn48: TdxBarButton;
  117.     dxbrbtn49: TdxBarButton;
  118.     pm2: TdxBarPopupMenu;
  119.     dxbrbtn50: TdxBarButton;
  120.     dxbrbtn51: TdxBarButton;
  121.     dxbrbtn52: TdxBarButton;
  122.     actInsertButton: TAction;
  123.     actInsertLabel: TAction;
  124.     actInsertEdit: TAction;
  125.     htmlEdit: THtmlEdit;
  126.     procedure actUndoExecute(Sender: TObject);
  127.     procedure actRedoExecute(Sender: TObject);
  128.     procedure actReplaceExecute(Sender: TObject);
  129.     procedure actSearchExecute(Sender: TObject);
  130.     procedure actCutExecute(Sender: TObject);
  131.     procedure actCopyExecute(Sender: TObject);
  132.     procedure actPasteExecute(Sender: TObject);
  133.     procedure actInsertHLineExecute(Sender: TObject);
  134.     procedure actSelectAllExecute(Sender: TObject);
  135.     procedure actInsertImgExecute(Sender: TObject);
  136.     procedure actInsertHyperLineExecute(Sender: TObject);
  137.     procedure actInsertHeaderExecute(Sender: TObject);
  138.     procedure actAlignLeftExecute(Sender: TObject);
  139.     procedure actAlignRigthExecute(Sender: TObject);
  140.     procedure actAlignMidExecute(Sender: TObject);
  141.     procedure actInsertTableExecute(Sender: TObject);
  142.     procedure actIndenInExecute(Sender: TObject);
  143.     procedure actIndenOutExecute(Sender: TObject);
  144.     procedure actStrikeLineExecute(Sender: TObject);
  145.     procedure actFontUnderLineExecute(Sender: TObject);
  146.     procedure actFontSizeExecute(Sender: TObject);
  147.     procedure actFoneItalicExecute(Sender: TObject);
  148.     procedure actFontBlodExecute(Sender: TObject);
  149.     procedure actFontColorExecute(Sender: TObject);
  150.     procedure actFontBackColorExecute(Sender: TObject);
  151.     procedure actFontNameExecute(Sender: TObject);
  152.     procedure dxbrbtn10Click(Sender: TObject);
  153.     procedure dxbrbtn11Click(Sender: TObject);
  154.     procedure dxbrbtn12Click(Sender: TObject);
  155.     procedure dxbrbtn36Click(Sender: TObject);
  156.     procedure dxbrbtn37Click(Sender: TObject);
  157.     procedure dxbrbtn47Click(Sender: TObject);
  158.     procedure btnFontSizeButtonClick(Sender: TdxBarSpinEdit;
  159.       Button: TdxBarSpinEditButton);
  160.     procedure dxbrbtn50Click(Sender: TObject);
  161.     procedure actInsertButtonExecute(Sender: TObject);
  162.     procedure actInsertLabelExecute(Sender: TObject);
  163.     procedure actInsertEditExecute(Sender: TObject);
  164.   private
  165.     { Private declarations }
  166.   public
  167.     { Public declarations }
  168.   end;
  170. var
  171.   BaseEditorForm: TBaseEditorForm;
  173. implementation
  175. uses uCommon,Math, ufrmGridLineCount;
  177. {$R *.dfm}
  180. procedure TBaseEditorForm.actUndoExecute(Sender: TObject);
  181. begin
  182.   htmlEdit.Undo;
  183. end;
  185. procedure TBaseEditorForm.actRedoExecute(Sender: TObject);
  186. begin
  187.   htmlEdit.Redo;
  188. end;
  190. procedure TBaseEditorForm.actReplaceExecute(Sender: TObject);
  191. begin
  192.   //
  193. end;
  195. procedure TBaseEditorForm.actSearchExecute(Sender: TObject);
  196. begin
  197.   htmlEdit.SearchText;
  198. end;
  200. procedure TBaseEditorForm.actCutExecute(Sender: TObject);
  201. begin
  202.   htmlEdit.Cut;
  203. end;
  205. procedure TBaseEditorForm.actCopyExecute(Sender: TObject);
  206. begin
  207.   htmlEdit.Copy;
  208. end;
  210. procedure TBaseEditorForm.actPasteExecute(Sender: TObject);
  211. begin
  212.   htmlEdit.Paste;
  213. end;
  215. procedure TBaseEditorForm.actInsertHLineExecute(Sender: TObject);
  216. begin
  217.   htmlEdit.Edit.InsertHr;
  218. end;
  220. procedure TBaseEditorForm.actSelectAllExecute(Sender: TObject);
  221. begin
  222.   htmlEdit.SelectAll;
  223. end;
  225. procedure TBaseEditorForm.actInsertImgExecute(Sender: TObject);
  226. begin
  227.   dlgOpen.Filter:='BMP文件|*.bmp|GIF动画|*.GIF|ico图标|*.ico|所有文件|*.*';
  228.   if dlgOpen.Execute then
  229.     htmlEdit.Edit.InsertImage(dlgOpen.FileName);
  230. end;
  232. procedure TBaseEditorForm.actInsertHyperLineExecute(Sender: TObject);
  233. begin
  234.   htmlEdit.Edit.CreateLink ;
  235. end;
  237. procedure TBaseEditorForm.actInsertHeaderExecute(Sender: TObject);
  238. begin
  239. //
  240. end;
  242. procedure TBaseEditorForm.actAlignLeftExecute(Sender: TObject);
  243. begin
  244.   htmlEdit.Edit.JustifyLeft;
  245. end;
  247. procedure TBaseEditorForm.actAlignRigthExecute(Sender: TObject);
  248. begin
  249.   htmlEdit.Edit.JustifyRight;
  250. end;
  252. procedure TBaseEditorForm.actAlignMidExecute(Sender: TObject);
  253. begin
  254.   htmlEdit.Edit.JustifyCenter;
  255. end;
  257. procedure TBaseEditorForm.actInsertTableExecute(Sender: TObject);
  258. begin
  259.   with TfrmGridLineCount.Create(nil) do
  260.   try
  261.     if ShowModal=mrOk then
  262.       htmlEdit.Edit.InsertTable(StrToInt(cbCol.Text),StrToInt(cbRow.Text),StrToInt(cbBorlder.Text));
  263.   finally
  264.     Free;
  265.   end;
  266. end;
  268. procedure TBaseEditorForm.actIndenInExecute(Sender: TObject);
  269. begin
  270.   htmlEdit.Edit.InDent;
  271. end;
  273. procedure TBaseEditorForm.actIndenOutExecute(Sender: TObject);
  274. begin
  275.   htmlEdit.Edit.OutDent;
  276. end;
  278. procedure TBaseEditorForm.actStrikeLineExecute(Sender: TObject);
  279. begin
  280.   htmlEdit.Edit.StrikeThrough;
  281. end;
  283. procedure TBaseEditorForm.actFontUnderLineExecute(Sender: TObject);
  284. begin
  285.   htmlEdit.Edit.UnderLine;
  286. end;
  288. procedure TBaseEditorForm.actFontSizeExecute(Sender: TObject);
  289. begin
  290.   htmlEdit.Edit.FontSize(Ceil(btnFontSize.CurValue));
  291. end;
  293. procedure TBaseEditorForm.actFoneItalicExecute(Sender: TObject);
  294. begin
  295.   htmlEdit.Edit.Italic;
  296. end;
  298. procedure TBaseEditorForm.actFontBlodExecute(Sender: TObject);
  299. begin
  300.   htmlEdit.Edit.Bold;
  301. end;
  303. procedure TBaseEditorForm.actFontColorExecute(Sender: TObject);
  304. begin
  305.   htmlEdit.Edit.ForeColor(btnFontColor.CurColor);
  306. end;
  308. procedure TBaseEditorForm.actFontBackColorExecute(Sender: TObject);
  309. begin
  310.   htmlEdit.Edit.BackColor(btnFontBackColor.CurColor);
  311. end;
  313. procedure TBaseEditorForm.actFontNameExecute(Sender: TObject);
  314. begin
  315.   htmlEdit.Edit.FontName(btnFontName.CurText)
  316. end;
  318. procedure TBaseEditorForm.dxbrbtn10Click(Sender: TObject);
  319. begin
  320.   htmlEdit.Edit.InsertH1(DateTimeToStr(Now));
  321. end;
  323. procedure TBaseEditorForm.dxbrbtn11Click(Sender: TObject);
  324. begin
  325.     htmlEdit.Edit.InsertH2(DateTimeToStr(Now));
  326. end;
  328. procedure TBaseEditorForm.dxbrbtn12Click(Sender: TObject);
  329. begin
  330.     htmlEdit.Edit.InsertH3(DateTimeToStr(Now));
  331. end;
  333. procedure TBaseEditorForm.dxbrbtn36Click(Sender: TObject);
  334. begin
  335.     htmlEdit.Edit.InsertH4(DateTimeToStr(Now));
  336. end;
  338. procedure TBaseEditorForm.dxbrbtn37Click(Sender: TObject);
  339. begin
  340.     htmlEdit.Edit.InsertH5(DateTimeToStr(Now));
  341. end;
  343. procedure TBaseEditorForm.dxbrbtn47Click(Sender: TObject);
  344. begin
  345.    //htmlEdit.Edit.InsertUnorderedList();
  346. end;
  348. procedure TBaseEditorForm.btnFontSizeButtonClick(Sender: TdxBarSpinEdit;
  349.   Button: TdxBarSpinEditButton);
  350. begin
  351.   actFontSizeExecute(btnFontSize);
  352. end;
  354. procedure TBaseEditorForm.dxbrbtn50Click(Sender: TObject);
  355. begin
  356.   //htmlEdit.Edit.IN
  357. end;
  359. procedure TBaseEditorForm.actInsertButtonExecute(Sender: TObject);
  360. begin
  361.   htmlEdit.Edit.InsertButton('button');
  362. end;
  364. procedure TBaseEditorForm.actInsertLabelExecute(Sender: TObject);
  365. begin
  366.   htmlEdit.Edit.InsertLabel('label');
  367. end;
  369. procedure TBaseEditorForm.actInsertEditExecute(Sender: TObject);
  370. begin
  371.   htmlEdit.Edit.InsertEdit('edit');
  372. end;
  374. end.