simplewordobject.pas

来自「Delphi高级开发指南是开发程序的好帮手」· PAS 代码 · 共 83 行

unit SimpleWordObject;

interface

uses
  ComObj, simpleword_TLB;

type
  TSimpleWordObject = class(TAutoObject, ISimpleWordObject)
  protected
    procedure CopyToClipboard; safecall;
    procedure NewFile; safecall;
    procedure OpenFile(const FileName: WideString); safecall;
    procedure PrintFile; safecall;
    procedure Quit; safecall;
    procedure SaveFile; safecall;
    procedure SaveFileAs(const FileName: WideString); safecall;
    procedure SelectAll; safecall;
  end;

implementation

uses ComServ, Main;

procedure TSimpleWordObject.CopyToClipboard;
begin
  with MainForm do
    RichEdit1.CopyToClipboard;
end;

procedure TSimpleWordObject.NewFile;
begin
  with MainForm do
    RichEdit1.Lines.Clear;
end;

procedure TSimpleWordObject.OpenFile(const FileName: WideString);
begin
  with MainForm do
  begin
    CurrentFileName := FileName;
    RichEdit1.Lines.LoadFromFile( FileName );
    Caption := APP_NAME + '- ' + CurrentFileName;
  end;
end;

procedure TSimpleWordObject.PrintFile;
begin
  with MainForm do
    RichEdit1.Print( '' );
end;

procedure TSimpleWordObject.Quit;
begin
  with MainForm do
    Close;
end;

procedure TSimpleWordObject.SaveFile;
begin
  with MainForm do
    RichEdit1.Lines.SaveToFile( CurrentFileName );
end;

procedure TSimpleWordObject.SaveFileAs(const FileName: WideString);
begin
  with MainForm do
  begin
    CurrentFileName := FileName;
    RichEdit1.Lines.SaveToFile( CurrentFileName );
  end;
end;

procedure TSimpleWordObject.SelectAll;
begin
  with MainForm do
    RichEdit1.SelectAll;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TSimpleWordObject, Class_SimpleWordObject, ciMultiInstance);
end.