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

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

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, ActnMan, ActnCtrls, ActnMenus, BandActn, CustomizeDlg;
  10. type
  11.   TFormRichNote = class(TForm)
  12.     FontDialog: TFontDialog;
  13.     OpenDialog: TOpenDialog;
  14.     SaveDialog: TSaveDialog;
  15.     ColorDialog: TColorDialog;
  16.     ActionList: TActionList;
  17.     acCentered: TAction;
  18.     acUndo: TAction;
  19.     acCut: TAction;
  20.     acPaste: TAction;
  21.     acCopy: TAction;
  22.     acBold: TAction;
  23.     acItalic: TAction;
  24.     acRightAligned: TAction;
  25.     acLeftAligned: TAction;
  26.     acSave: TAction;
  27.     acFont: TAction;
  28.     acCountChars: TAction;
  29.     Images: TImageList;
  30.     SizeMenu: TPopupMenu;
  31.     Small1: TMenuItem;
  32.     Medium1: TMenuItem;
  33.     Large1: TMenuItem;
  34.     acHintColor: TAction;
  35.     ControlBar: TControlBar;
  36.     ComboFont: TComboBox;
  37.     BarMenu: TPopupMenu;
  38.     StatusBar: TStatusBar;
  39.     acExit: TAction;
  40.     ApplicationEvents1: TApplicationEvents;
  41.     ColorBox1: TColorBox;
  42.     Panel1: TPanel;
  43.     ControlBarLower: TControlBar;
  44.     RichEdit: TRichEdit;
  45.     ActionToolBar1: TActionToolBar;
  46.     ActionMainMenuBar1: TActionMainMenuBar;
  47.     ActionManager1: TActionManager;
  48.     CustomizeActionBars1: TCustomizeActionBars;
  49.     ActionToolBar2: TActionToolBar;
  50.     ActionToolBar3: TActionToolBar;
  51.     procedure BoldExecute(Sender: TObject);
  52.     procedure ItalicExecute(Sender: TObject);
  53.     procedure ChangeAlignment(Sender: TObject);
  54.     procedure AboutExecute(Sender: TObject);
  55.     procedure ExitExecute(Sender: TObject);
  56.     procedure OpenExecute(Sender: TObject);
  57.     procedure SaveAsExecute(Sender: TObject);
  58.     procedure BackColorExecute(Sender: TObject);
  59.     procedure FontExecute(Sender: TObject);
  60.     procedure CountCharsExecute(Sender: TObject);
  61.     procedure FormCreate(Sender: TObject);
  62.     procedure NewExecute(Sender: TObject);
  63.     procedure SaveExecute(Sender: TObject);
  64.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  65.     procedure PrintExecute(Sender: TObject);
  66.     procedure acSaveUpdate(Sender: TObject);
  67.     procedure acBoldUpdate(Sender: TObject);
  68.     procedure acItalicUpdate(Sender: TObject);
  69.     procedure RichEditChange(Sender: TObject);
  70.     procedure acCountcharsUpdate(Sender: TObject);
  71.     procedure acCutExecute(Sender: TObject);
  72.     procedure acCutUpdate(Sender: TObject);
  73.     procedure acCopyExecute(Sender: TObject);
  74.     procedure acPasteExecute(Sender: TObject);
  75.     procedure acPasteUpdate(Sender: TObject);
  76.     procedure acUndoExecute(Sender: TObject);
  77.     procedure acUndoUpdate(Sender: TObject);
  78.     procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean);
  79.     procedure ToolButton17Click(Sender: TObject);
  80.     procedure SetFontSize(Sender: TObject);
  81.     procedure ComboFontClick(Sender: TObject);
  82.     procedure RichEditSelectionChange(Sender: TObject);
  83.     procedure acHintColorExecute(Sender: TObject);
  84.     procedure BarMenuPopup(Sender: TObject);
  85.     procedure ShowHint(Sender: TObject);
  86.     procedure EndDock(Sender, Target: TObject; X, Y: Integer);
  87.     procedure ControlBarLowerDockOver(Sender: TObject;
  88.       Source: TDragDockObject; X, Y: Integer; State: TDragState;
  89.       var Accept: Boolean);
  90.   private
  91.     FileName: string;
  92.     Modified: Boolean;
  93.   public
  94.     function SaveChanges: Boolean;
  95.     function Save: Boolean;
  96.     function SaveAs: Boolean;
  97.     procedure BarMenuClick (Sender: TObject);
  98.     procedure CheckCapslock;
  99.   end;
  101. var
  102.   FormRichNote: TFormRichNote;
  104. implementation
  106. {$R *.DFM}
  108. // status bar panels
  109. const
  110.   sbpMessage = 0;
  111.   sbpCaps = 1;
  112.   sbpPosition = 2;
  114. /////////// Font operations
  116. procedure TFormRichNote.BoldExecute(Sender: TObject);
  117. begin
  118.   with RichEdit.SelAttributes do
  119.     if fsBold in Style then
  120.       Style := Style - [fsBold]
  121.     else
  122.       Style := Style + [fsBold];
  123. end;
  125. procedure TFormRichNote.ItalicExecute(Sender: TObject);
  126. begin
  127.   with RichEdit.SelAttributes do
  128.     if fsItalic in Style then
  129.       Style := Style - [fsItalic]
  130.     else
  131.       Style := Style + [fsItalic];
  132. end;
  134. procedure TFormRichNote.FontExecute(Sender: TObject);
  135. begin
  136.   FontDialog.Font.Assign (RichEdit.SelAttributes);
  137.   if FontDialog.Execute then
  138.   begin
  139.     RichEdit.SelAttributes.Assign (FontDialog.Font);
  140.     RichEditSelectionChange (Self);
  141.   end;
  142. end;
  144. // right + center + left actions
  145. procedure TFormRichNote.ChangeAlignment(Sender: TObject);
  146. begin
  147.   // change paragraph alignment using the TAlignment
  148.   // value saved in the tag of the action
  149.   RichEdit.Paragraph.Alignment := TAlignment (
  150.     (Sender as TAction).Tag);
  151. end;
  153. procedure TFormRichNote.AboutExecute(Sender: TObject);
  154. begin
  155.   MessageDlg (Application.Title + 'Demo' + #13#13
  156.     + 'written for the book "Mastering Delphi" by Marco Cant