wpmdiu2.pas

wptools5 pro 完整源代码 Msword界面的文本编辑器源代码

unit WPMDIU2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WPTbar, WPPanel, Buttons, WPCTRRich, WPRuler,
  WPRTEDefs, WPCTRMemo;

type
  TWPMdiChild = class(TForm)
    WPRichText1: TWPRichText;
    WPVertRuler1: TWPVertRuler;
    WPRuler1: TWPRuler;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure WPRichText1AfterDelayedUpdate(Sender: TObject;
      var WPUPD_Code: Integer; Param: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WPMdiChild: TWPMdiChild;

implementation

uses WPMdiU1, wpDefActions;

{$R *.dfm}

procedure TWPMdiChild.FormCreate(Sender: TObject);
begin
  WPMdiDemo.WPDefaultActions1.ControlledMemos.Add.EditBox := WPRichText1;
end;

procedure TWPMdiChild.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
begin
  for i := WPMdiDemo.WPDefaultActions1.ControlledMemos.Count - 1
    downto 0 do
    if WPMdiDemo.WPDefaultActions1.ControlledMemos[i].EditBox =
      WPRichText1 then
      WPMdiDemo.WPDefaultActions1.ControlledMemos.Delete(i);
  Action := caFree;
end;



procedure TWPMdiChild.WPRichText1AfterDelayedUpdate(Sender: TObject;
  var WPUPD_Code: Integer; Param: Integer);
begin
 if WPUPD_Code=WPUPD_AFTER_REORDERPAGES then
 begin
    if WPRichText1.LastFileName='' then
         Caption := '*'
    else Caption := WPRichText1.LastFileName;
 end;
end;

end.