miniunit1.pas

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

unit MiniUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, WPCtrMemo, WPRtePaint, WPRteDefs, WPIo;

type
  TWPMiniEd = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Load1: TMenuItem;
    Save1: TMenuItem;
    N1: TMenuItem;
    Close1: TMenuItem;
    View1: TMenuItem;
    N2: TMenuItem;
    Info1: TMenuItem;
    Splitter1: TSplitter;
    PageWidth1: TMenuItem;
    FullPage1: TMenuItem;
    DoublePage1: TMenuItem;
    N5001: TMenuItem;
    N2001: TMenuItem;
    N1001: TMenuItem;
    N751: TMenuItem;
    N501: TMenuItem;
    N251: TMenuItem;
    N4: TMenuItem;
    humbnails1: TMenuItem;
    N3: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    GraphicPopupMenu: TPopupMenu;
    ascharacter1: TMenuItem;
    reltoparautowrap1: TMenuItem;
    reltoparwrapleftandright1: TMenuItem;
    reltopagenowrappng1: TMenuItem;
    reltopagewrapleftandright1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure humbnails1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Load1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure Info1Click(Sender: TObject);
    procedure reltopagewrapleftandright1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    WPRichText1, WPRichText2 : TWPCustomRtfEdit;
    RTFData : TWPRTFDataCollection;
    RTFDataProps : TWPRTFProps;
  end;

var
  WPMiniEd: TWPMiniEd;

implementation

{$R *.dfm}

procedure TWPMiniEd.FormCreate(Sender: TObject);
begin
    RTFData := TWPRTFDataCollection.Create(TWPRTFDataBlock);
    RTFDataProps := TWPRTFProps.Create;
    RTFData.RTFProps := RTFDataProps;

    WPRichText1 := TWPCustomRtfEdit.Create(Self);
    WPRichText1.Parent := Self;
    WPRichText1.Align := alClient;
    WPRichText1.TabStop := FALSE;
    WPRichText1.AcceptFiles := TRUE;
    WPRichText1.Memo.SetRTFDataOrProps(RTFData,nil);

    WPRichText2 := TWPCustomRtfEdit.Create(Self);
    WPRichText2.Memo.SetRTFDataOrProps(RTFData,nil);
    WPRichText2.Parent := Self;
    WPRichText2.Align := alBottom;
    WPRichText2.Height := 100;
    Splitter1.Top := 0;

    WPRichText1.GraphicPopupMenu := GraphicPopupMenu;
    WPRichText2.GraphicPopupMenu := GraphicPopupMenu;

    WPRichText1.AsString := '<div align=left><font face="verdana" size=2>WPTools Demo</font></div>';

    WPRichText1.HeaderFooter.Get(wpIsHeader,
      wpraOnAllPages).RTFText.AsString :=
       '<div align=right><font face="verdana">www.WPTOOLS.de - Page <pagenr/></font></div><hr>';

    WPRichText2.SetZoomMode(-20);
end;


procedure TWPMiniEd.FormDestroy(Sender: TObject);
begin
   WPRichText1.Parent := nil;
   WPRichText2.Parent := nil;
   WPRichText1.Free;
   WPRichText2.Free;
   RTFData.Free;
   RTFDataProps.Free;
end;

procedure TWPMiniEd.humbnails1Click(Sender: TObject);
begin
    if WPRichText2.Focused then
        WPRichText2.SetZoomMode(
          (Sender as TMenuItem).Tag)
    else WPRichText1.SetZoomMode(
          (Sender as TMenuItem).Tag);
end;

procedure TWPMiniEd.Close1Click(Sender: TObject);
begin
    Close;
end;

procedure TWPMiniEd.Load1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
   begin
      WPRichText1.LoadFromFile( OpenDialog1.FileName, true );
      WPRichText2.CheckHasBody;
   end;
end;

procedure TWPMiniEd.Save1Click(Sender: TObject);
begin
   if SaveDialog1.Execute then
      WPRichText1.SaveToFile( SaveDialog1.FileName );

end;

procedure TWPMiniEd.Info1Click(Sender: TObject);
begin
   ShowMessage(
     'WPTools mini demo ' + WPToolsVersion + #13
     +'(C) WPCubed GmbH' + #13
     +'www.wpcubed.com' + #13
     +#13 
     +'Info: GIF and PNG support not linked in.');
end;

procedure TWPMiniEd.reltopagewrapleftandright1Click(Sender: TObject);
begin
  if (WPRichText1<>nil) and (WPRichText1.SelectedObject <> nil) then
    case (Sender as TComponent).Tag of
      1: WPRichText1.SelectedObject.PositionMode := wpotChar;
      2:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrAutomatic;
          WPRichText1.SelectedObject.PositionMode := wpotPar;
        end;
      3:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrBoth;
          WPRichText1.SelectedObject.PositionMode := wpotPar;
        end;
      4:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrNone;
          WPRichText1.SelectedObject.PositionMode := wpotPage;
        end;
      5:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrBoth;
          WPRichText1.SelectedObject.PositionMode := wpotPage;
        end;
    end;
end;



end.