Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
AcManForm.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 2k
Category:

Delphi VCL

Development Platform:

Delphi

AcManForm.pas：Code Content
  1. unit AcManForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ActnMenus, ToolWin, ActnMan, ActnCtrls, ExtActns, StdActns,
  8.   ActnList, ImgList, StdCtrls, ComCtrls, BandActn;
  10. type
  11.   TForm1 = class(TForm)
  12.     ActionManager1: TActionManager;
  13.     RichEdit1: TRichEdit;
  14.     ImageList1: TImageList;
  15.     EditCut1: TEditCut;
  16.     EditCopy1: TEditCopy;
  17.     EditPaste1: TEditPaste;
  18.     EditSelectAll1: TEditSelectAll;
  19.     EditUndo1: TEditUndo;
  20.     EditDelete1: TEditDelete;
  21.     RichEditBold1: TRichEditBold;
  22.     RichEditItalic1: TRichEditItalic;
  23.     RichEditUnderline1: TRichEditUnderline;
  24.     RichEditStrikeOut1: TRichEditStrikeOut;
  25.     RichEditBullets1: TRichEditBullets;
  26.     RichEditAlignLeft1: TRichEditAlignLeft;
  27.     RichEditAlignRight1: TRichEditAlignRight;
  28.     RichEditAlignCenter1: TRichEditAlignCenter;
  29.     ActionToolBar1: TActionToolBar;
  30.     ActionMainMenuBar1: TActionMainMenuBar;
  31.     ActionToolBar2: TActionToolBar;
  32.     FileOpen1: TFileOpen;
  33.     FileSaveAs1: TFileSaveAs;
  34.     FilePrintSetup1: TFilePrintSetup;
  35.     FileRun1: TFileRun;
  36.     FileExit1: TFileExit;
  37.     SearchFind1: TSearchFind;
  38.     SearchFindNext1: TSearchFindNext;
  39.     SearchReplace1: TSearchReplace;
  40.     SearchFindFirst1: TSearchFindFirst;
  41.     CustomizeActionBars1: TCustomizeActionBars;
  42.     HelpContents1: THelpContents;
  43.     ActionToolBar3: TActionToolBar;
  44.     ActionShowStatus: TAction;
  45.     procedure ActionShowStatusExecute(Sender: TObject);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  52. var
  53.   Form1: TForm1;
  55. implementation
  57. {$R *.dfm}
  59. procedure TForm1.ActionShowStatusExecute(Sender: TObject);
  60. var
  61.   memStr, memStr2: TMemoryStream;
  62. begin
  63.   memStr := TMemoryStream.Create;
  64.   try
  65.     memStr2 := TMemoryStream.Create;
  66.     try
  67.       ActionManager1.SaveToStream(memStr);
  68.       memStr.Position := 0;
  69.       ObjectBinaryToText(memStr, memStr2);
  70.       memStr2.Position := 0;
  71.       RichEdit1.Lines.LoadFromStream(memStr2);
  72.     finally
  73.       memStr2.Free;
  74.     end;
  75.   finally
  76.     memStr.Free;
  77.   end;
  78. end;
  80. end.