textpu1.pas

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

unit TextPU1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, WPCTRMemo, WPCTRRich, ComCtrls, WPRTEDefs, WPIO;

type
  TWPTextPathDemo = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    WPRichText1: TWPRichText;
    WPRichText3: TWPRichText;
    WPRichText4: TWPRichText;
    WPRTFStorage1: TWPRTFStorage;
    WPRichText2: TWPRichText;
    WPOverflow: TWPRichText;
    procedure FormCreate(Sender: TObject);
    procedure WPRichText1BeforeEditBoxNeedFocus(Sender: TObject;
      var Abort: Boolean);
    procedure WPRichText3BeforeEditBoxNeedFocus(Sender: TObject;
      var Abort: Boolean);
    procedure WPOverflowBeforeEditBoxNeedFocus(Sender: TObject;
      var Abort: Boolean);
    procedure WPRichText1InitializeRTFDataObject(Sender: TObject;
      var RTFDataObject: TWPRTFDataCollection;
      var RTFPropsObject: TWPRTFProps);
    procedure PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WPTextPathDemo: TWPTextPathDemo;

implementation

{$R *.dfm}

procedure TWPTextPathDemo.FormCreate(Sender: TObject);
begin
 // All path objects need the window handle - otherwise we cannot
 // use our broadcasting system
 WPRichText1.HandleNeeded;
 WPRichText2.HandleNeeded;
 WPRichText3.HandleNeeded;
 WPRichText4.HandleNeeded;

 WPRichText1.InputString('This is a text path. Please create new pages with Ctrl+CR'+#13);
 WPRichText1.CPPosition := MaxInt;
 // Settings for all TWPRichText
 WPRichText1.EditBoxModes := [wpemLimitTextWidth,wpemLimitTextHeight];
 WPRichText1.EditOptions := [wpNoHorzScrolling,wpNoVertScrolling];

 WPRichText2.EditBoxModes := [wpemLimitTextWidth,wpemLimitTextHeight];
 WPRichText2.EditOptions := [wpNoHorzScrolling,wpNoVertScrolling];

 WPRichText3.EditBoxModes := [wpemLimitTextWidth,wpemLimitTextHeight];
 WPRichText3.EditOptions := [wpNoHorzScrolling,wpNoVertScrolling];

 WPRichText4.EditBoxModes := [wpemLimitTextWidth,wpemLimitTextHeight];
 WPRichText4.EditOptions := [wpNoHorzScrolling,wpNoVertScrolling];

 WPRichText1.Enabled := FALSE;
end;

procedure TWPTextPathDemo.WPRichText1BeforeEditBoxNeedFocus(Sender: TObject;
  var Abort: Boolean);
begin
  PageControl1.ActivePageIndex := 0;
end;

procedure TWPTextPathDemo.WPRichText3BeforeEditBoxNeedFocus(Sender: TObject;
  var Abort: Boolean);
begin
  PageControl1.ActivePageIndex := 1;
end;

procedure TWPTextPathDemo.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // The WPRichText must loose the focus - otherwise it is not possible
  // to switch to a different page
  PageControl1.SetFocus;
end;

procedure TWPTextPathDemo.WPOverflowBeforeEditBoxNeedFocus(Sender: TObject;
  var Abort: Boolean);
begin
  Abort := TRUE;
  MessageBeep(0);
end;

procedure TWPTextPathDemo.WPRichText1InitializeRTFDataObject(Sender: TObject;
  var RTFDataObject: TWPRTFDataCollection;
  var RTFPropsObject: TWPRTFProps);
begin
  ShowMessage('Please set property "AllowMultiView" to TRUE');
end;



procedure TWPTextPathDemo.FormShow(Sender: TObject);
begin
  WPRichText1.Enabled := TRUE;
end;

end.