edsspelldemou.pas

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

unit EDSSpellDemoU;
(*******************************************************************************
 * WPTools V5 - THE word processing component for VCL and .NET
 * Copyright (C) 2004 by WPCubed GmbH and Julian Ziersch, all rights reserved
 * St. Ingbert Str. 30, 81541 Munich, Germany
 * Tel.: [phone], Fax.: [phone]
 * WEB: http://www.wpcubed.com   mailto: [e-mail]
 *******************************************************************************
  PREDEFINED EDITOR
 ******************************************************************************)

interface

{$I WPINC.INC}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, WPCTRRich, wpDefActions, ExtCtrls, WPRuler,
  WPRTEDefs, WPCTRMemo, Buttons, WPTbar, WPPanel, WPStyles, WP1Style, StdCtrls, WPRTEPaint, wpgutter
  , eds_wptools
{$IFDEF WPREPORTER}
  , WPRTEReport, WPAction
{$ENDIF};

type
  {:: This is the default editor of WPTools 5. It is used by the IDE but can also be used
  in your application whenever you need a popup editor for formatted text.
  <br>
  Simply create an instance of the form<br>
  <b>editor := TWPToolsEditor.Create(nil);</b><br>
  and display it with<br>
  <b>editor.Show;</b><br>
  <br>
  If you need to load text you can access the internal TWPRichText:<br>
  editor.WPRichText1.LoadFromFile(...)<br>
  You can also access the menu which is hosted by the action data module:<br>
  editor.WPDefAct.Info1.OnClick := MyOwnInfoDialogProcedure;
  }

  TWPToolsDemoEditor = class(TForm)
  {$IFNDEF T2H}
    StatusBar1: TStatusBar;
    EditorParent1: TPanel;
    WPRichText1: TWPRichText;
    WPRuler1: TWPRuler;
    WPVertRuler1: TWPVertRuler;
    WPToolPanel1: TWPToolPanel;
    WPComboBox1: TWPComboBox;
    WPComboBox2: TWPComboBox;
    WPComboBox3: TWPComboBox;
    WPComboBox4: TWPComboBox;
    WPComboBox5: TWPComboBox;
    WPToolButton1: TWPToolButton;
    WPToolButton2: TWPToolButton;
    WPToolButton3: TWPToolButton;
    WPToolButton4: TWPToolButton;
    WPToolButton5: TWPToolButton;
    WPToolButton6: TWPToolButton;
    WPToolButton7: TWPToolButton;
    WPToolButton8: TWPToolButton;
    WPToolButton9: TWPToolButton;
    WPToolButton10: TWPToolButton;
    WPToolButton11: TWPToolButton;
    WPToolButton12: TWPToolButton;
    WPToolButton13: TWPToolButton;
    WPToolButton14: TWPToolButton;
    WPToolButton15: TWPToolButton;
    BorderParent: TWPToolPanel;
    WPToolButton17: TWPToolButton;
    WPToolButton18: TWPToolButton;
    WPToolButton19: TWPToolButton;
    WPToolButton20: TWPToolButton;
    WPToolButton21: TWPToolButton;
    WPToolButton22: TWPToolButton;
    WPToolButton23: TWPToolButton;
    WPToolButton24: TWPToolButton;
    BorderButtonSwitch: TWPToolButton;
    Label1: TLabel;
    SizeCombo: TWPComboBox;
    procedure BorderButtonSwitchClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure WPRichText1OpenDialog(Sender: TObject;
      DiaType: TWPCustomRtfEditDialog; var ResultValue: Boolean);
  private
{$IFDEF WPREPORTER}
    FWPSuperMerge: TWPSuperMerge;
    FWPReportDest: TWPRichText;
{$ENDIF}
    FWPDefAct: TWPDefAct;
    procedure GetToolsEditor(Sender: TObject; var wp: TWPCustomRichText);
  {$ENDIF}
  public
    // This functions are used when this editor is used as property editor
    procedure GetFromRTFText( Source : TWPRTFBlobContents);
    procedure SetToRTFText( Dest : TWPRTFBlobContents);
{$IFDEF WPREPORTER}
    procedure WPSuperMergeMailMergeGetText(Sender: TObject;
      const inspname: string; Contents: TWPMMInsertTextContents);
    procedure WPSuperMergeBeforeProcessGroup(
      Sender: TWPSuperMerge; Band: TWPBand; Count: Integer;
      var CustomData: TObject; var ProcessGroup, IsLastRun: Boolean);
{$ENDIF}
    {:: This property provides access to the default action
    data module used by the editor }
    property WPDefAct: TWPDefAct read FWPDefAct write FWPDefAct;
    property StatusBar: TStatusBar read StatusBar1 write StatusBar1;
    property EditorParent: TPanel read EditorParent1 write EditorParent1;
    property WPRichText: TWPRichText read WPRichText1 write WPRichText1;
    property WPRuler: TWPRuler read WPRuler1 write WPRuler1;
    property WPVertRuler: TWPVertRuler read WPVertRuler1 write WPVertRuler1;
    property WPToolPanel: TWPToolPanel read WPToolPanel1 write WPToolPanel1;
{$IFDEF WPREPORTER}
    property WPSuperMerge: TWPSuperMerge read FWPSuperMerge write FWPSuperMerge;
    property WPReportDest: TWPRichText read FWPReportDest write FWPReportDest;
{$ELSE}
{$IFDEF T2H}
    property WPSuperMerge: TWPSuperMerge read FWPSuperMerge write FWPSuperMerge;
    property FWPReportDest: TWPRichText read FWPReportDest write FWPReportDest;
{$ENDIF}
{$ENDIF}
  end;

var
  WPToolsDemoEditor: TWPToolsDemoEditor;

implementation

{$R *.dfm}

procedure TWPToolsDemoEditor.FormCreate(Sender: TObject);
begin
  WPDefAct:= TWPDefAct.Create(Self);
  WPDefAct.ExtrasMenu.Visible := TRUE;
  WPDefAct.hesaurus1.Visible := FALSE;
{$IFDEF WPREPORTER}
  FWPSuperMerge := TWPSuperMerge.Create(nil);
  FWPSuperMerge.DataBases := 'DATA,LOOP10,LOOP100';
  FWPSuperMerge.OnMailMergeGetText := WPSuperMergeMailMergeGetText;
  FWPSuperMerge.BeforeProcessGroup := WPSuperMergeBeforeProcessGroup;
  FWPReportDest := TWPRichText.CreateDynamic;
  FWPReportDest.InsertPointAttr.Hidden := TRUE;
  FWPSuperMerge.SetSourceDest(WPRichText1.Memo.RTFData, FWPReportDest.Memo.RTFData);
{$ENDIF}
  Menu := WPDefAct.MainMenu;
  WPRichText1.GraphicPopupMenu := WPDefAct.GraphicPopupMenu;
end;

procedure TWPToolsDemoEditor.FormDestroy(Sender: TObject);
begin
{$IFDEF WPREPORTER}
  FWPSuperMerge.Free;
  FWPReportDest.Free;
{$ENDIF}
  WPDefAct.Free;
end;

procedure TWPToolsDemoEditor.FormShow(Sender: TObject);
begin
  WPDefAct.OnGetWPRichText := GetToolsEditor;
  WPRichText1.ActionList := WPDefAct.StdActions;
  WPRichText1.SetFocus;
{$IFDEF WPREPORTER}
  WPDefAct.SuperMerge := FWPSuperMerge;
  WPDefAct.ReportDest := FWPReportDest;
{$ENDIF}
end;

procedure TWPToolsDemoEditor.GetToolsEditor(Sender: TObject; var wp: TWPCustomRichText);
begin
  wp := WPRichText1;
end;

// This functions are used when this editor is used as property editor
procedure TWPToolsDemoEditor.GetFromRTFText( Source : TWPRTFBlobContents);
begin
  WPRichText1.RTFText.Assign(Source);
  WPRichText1.RTFText.Apply;
  if Source.OwnerEngine<>nil then
    WPRichText1.Header.Assign(Source.OwnerEngine.RTFData.Header);
  WPRichText1.CPPosition := 0;
  WPRichText1.DelayedReformat;
end;

procedure TWPToolsDemoEditor.SetToRTFText( Dest : TWPRTFBlobContents);
begin
  WPRichText1.RTFText.Update;
  Dest.Assign(WPRichText1.RTFText);
  Dest.Apply;
  if Dest.OwnerEngine<>nil then
    Dest.OwnerEngine.RTFData.Header.Assign(WPRichText1.Header);
end;

procedure TWPToolsDemoEditor.BorderButtonSwitchClick(Sender: TObject);
begin
  BorderParent.Top := WPToolPanel1.Height;
  BorderParent.Left := Width - BorderParent.Width - 20;
  BorderParent.Visible := BorderButtonSwitch.Down;
end;

procedure TWPToolsDemoEditor.FormResize(Sender: TObject);
begin
  if BorderParent.Visible then
  begin
    BorderParent.Top := WPToolPanel1.Height;
    BorderParent.Left := Width - BorderParent.Width - 20;
  end;
end;


{$IFDEF WPREPORTER}
procedure TWPToolsDemoEditor.WPSuperMergeMailMergeGetText(Sender: TObject;
  const inspname: string; Contents: TWPMMInsertTextContents);
begin
  // Contents.StringValue := DataBase.FieldByName(inspname)
  Contents.StringValue := inspname + IntToStr(Random(100000));
end;

procedure TWPToolsDemoEditor.WPSuperMergeBeforeProcessGroup(
  Sender: TWPSuperMerge; Band: TWPBand; Count: Integer;
  var CustomData: TObject; var ProcessGroup, IsLastRun: Boolean);
begin
  if Band.Alias = 'LOOP10' then
  begin
    IsLastRun := Count = 9;
    ProcessGroup := Count <= 9;
  end else
    if Band.Alias = 'LOOP100' then
    begin
      IsLastRun := Count = 99;
      ProcessGroup := Count <= 99;
    end;
end;
{$ENDIF}

procedure TWPToolsDemoEditor.WPRichText1OpenDialog(Sender: TObject;
  DiaType: TWPCustomRtfEditDialog; var ResultValue: Boolean);
begin
  // Utility procedure to show style dialogs from unit WP1Style
  WPStyleOpenDialog(Self, Sender, DiaType, ResultValue);
end;

end.