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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
RichForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：13k
源码类别：

Delphi控件源码

开发平台：

Delphi

RichForm.pas：源码内容
  1. unit RichForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ComCtrls, ExtCtrls, Menus, ActnList, ToolWin, ImgList, ClipBrd,
  8.   RichEdit, AppEvnts;
  10. type
  11.   TFormRichNote = class(TForm)
  12.     FontDialog: TFontDialog;
  13.     MainMenu: TMainMenu;
  14.     File1: TMenuItem;
  15.     Open1: TMenuItem;
  16.     Saveas1: TMenuItem;
  17.     Exit1: TMenuItem;
  18.     Font1: TMenuItem;
  19.     Bold1: TMenuItem;
  20.     Italic1: TMenuItem;
  21.     Paragraph1: TMenuItem;
  22.     LeftAligned1: TMenuItem;
  23.     Centered1: TMenuItem;
  24.     RightAligned1: TMenuItem;
  25.     Help1: TMenuItem;
  26.     About1: TMenuItem;
  27.     OpenDialog: TOpenDialog;
  28.     SaveDialog: TSaveDialog;
  29.     More1: TMenuItem;
  30.     ColorDialog: TColorDialog;
  31.     ActionList: TActionList;
  32.     acCentered: TAction;
  33.     acUndo: TAction;
  34.     acCut: TAction;
  35.     acPaste: TAction;
  36.     acCopy: TAction;
  37.     acBold: TAction;
  38.     acItalic: TAction;
  39.     acRightAligned: TAction;
  40.     acLeftAligned: TAction;
  41.     acSave: TAction;
  42.     Undo1: TMenuItem;
  43.     acFont: TAction;
  44.     acCountChars: TAction;
  45.     Images: TImageList;
  46.     SizeMenu: TPopupMenu;
  47.     Small1: TMenuItem;
  48.     Medium1: TMenuItem;
  49.     Large1: TMenuItem;
  50.     acHintColor: TAction;
  51.     HintColor1: TMenuItem;
  52.     ControlBar: TControlBar;
  53.     ToolBarFile: TToolBar;
  54.     ToolButton1: TToolButton;
  55.     ToolButton2: TToolButton;
  56.     ToolButton3: TToolButton;
  57.     ToolButton20: TToolButton;
  58.     ToolButton4: TToolButton;
  59.     ToolButton10: TToolButton;
  60.     ToolButton11: TToolButton;
  61.     ToolButton13: TToolButton;
  62.     ToolButton14: TToolButton;
  63.     ToolButton15: TToolButton;
  64.     ToolButton16: TToolButton;
  65.     ToolButton12: TToolButton;
  66.     ToolButton17: TToolButton;
  67.     ToolBarEdit: TToolBar;
  68.     ToolBarFont: TToolBar;
  69.     ComboFont: TComboBox;
  70.     ToolButton6: TToolButton;
  71.     ToolButton7: TToolButton;
  72.     ToolButton8: TToolButton;
  73.     ToolButton9: TToolButton;
  74.     BarMenu: TPopupMenu;
  75.     ToolBarMenu: TToolBar;
  76.     StatusBar: TStatusBar;
  77.     acExit: TAction;
  78.     ApplicationEvents1: TApplicationEvents;
  79.     ColorBox1: TColorBox;
  80.     Panel1: TPanel;
  81.     ControlBarLower: TControlBar;
  82.     RichEdit: TRichEdit;
  83.     procedure BoldExecute(Sender: TObject);
  84.     procedure ItalicExecute(Sender: TObject);
  85.     procedure ChangeAlignment(Sender: TObject);
  86.     procedure AboutExecute(Sender: TObject);
  87.     procedure ExitExecute(Sender: TObject);
  88.     procedure OpenExecute(Sender: TObject);
  89.     procedure SaveAsExecute(Sender: TObject);
  90.     procedure BackColorExecute(Sender: TObject);
  91.     procedure FontExecute(Sender: TObject);
  92.     procedure CountCharsExecute(Sender: TObject);
  93.     procedure FormCreate(Sender: TObject);
  94.     procedure NewExecute(Sender: TObject);
  95.     procedure SaveExecute(Sender: TObject);
  96.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  97.     procedure PrintExecute(Sender: TObject);
  98.     procedure acSaveUpdate(Sender: TObject);
  99.     procedure acBoldUpdate(Sender: TObject);
  100.     procedure acItalicUpdate(Sender: TObject);
  101.     procedure RichEditChange(Sender: TObject);
  102.     procedure acCountcharsUpdate(Sender: TObject);
  103.     procedure acCutExecute(Sender: TObject);
  104.     procedure acCutUpdate(Sender: TObject);
  105.     procedure acCopyExecute(Sender: TObject);
  106.     procedure acPasteExecute(Sender: TObject);
  107.     procedure acPasteUpdate(Sender: TObject);
  108.     procedure acUndoExecute(Sender: TObject);
  109.     procedure acUndoUpdate(Sender: TObject);
  110.     procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean);
  111.     procedure ToolButton17Click(Sender: TObject);
  112.     procedure SetFontSize(Sender: TObject);
  113.     procedure ComboFontClick(Sender: TObject);
  114.     procedure RichEditSelectionChange(Sender: TObject);
  115.     procedure acHintColorExecute(Sender: TObject);
  116.     procedure BarMenuPopup(Sender: TObject);
  117.     procedure ShowHint(Sender: TObject);
  118.     procedure EndDock(Sender, Target: TObject; X, Y: Integer);
  119.     procedure ControlBarLowerDockOver(Sender: TObject;
  120.       Source: TDragDockObject; X, Y: Integer; State: TDragState;
  121.       var Accept: Boolean);
  122.   private
  123.     FileName: string;
  124.     Modified: Boolean;
  125.   public
  126.     function SaveChanges: Boolean;
  127.     function Save: Boolean;
  128.     function SaveAs: Boolean;
  129.     procedure BarMenuClick (Sender: TObject);
  130.     procedure CheckCapslock;
  131.   end;
  133. var
  134.   FormRichNote: TFormRichNote;
  136. implementation
  138. {$R *.DFM}
  140. // status bar panels
  141. const
  142.   sbpMessage = 0;
  143.   sbpCaps = 1;
  144.   sbpPosition = 2;
  146. /////////// Font operations
  148. procedure TFormRichNote.BoldExecute(Sender: TObject);
  149. begin
  150.   with RichEdit.SelAttributes do
  151.     if fsBold in Style then
  152.       Style := Style - [fsBold]
  153.     else
  154.       Style := Style + [fsBold];
  155. end;
  157. procedure TFormRichNote.ItalicExecute(Sender: TObject);
  158. begin
  159.   with RichEdit.SelAttributes do
  160.     if fsItalic in Style then
  161.       Style := Style - [fsItalic]
  162.     else
  163.       Style := Style + [fsItalic];
  164. end;
  166. procedure TFormRichNote.FontExecute(Sender: TObject);
  167. begin
  168.   FontDialog.Font.Assign (RichEdit.SelAttributes);
  169.   if FontDialog.Execute then
  170.   begin
  171.     RichEdit.SelAttributes.Assign (FontDialog.Font);
  172.     RichEditSelectionChange (Self);
  173.   end;
  174. end;
  176. // right + center + left actions
  177. procedure TFormRichNote.ChangeAlignment(Sender: TObject);
  178. begin
  179.   // change paragraph alignment using the TAlignment
  180.   // value saved in the tag of the action
  181.   RichEdit.Paragraph.Alignment := TAlignment (
  182.     (Sender as TAction).Tag);
  183. end;
  185. procedure TFormRichNote.AboutExecute(Sender: TObject);
  186. begin
  187.   MessageDlg (Application.Title + 'Demo' + #13#13
  188.     + 'written for the book "Mastering Delphi" by Marco Cant