myexternal.pas

来自「自己写的一个 RSS 阅读器」· PAS 代码 · 共 38 行

unit MyExternal;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, Exceed_TLB, StdVcl;

type
  TMyExternal = class(TAutoObject, IMyExternal)
  protected
    procedure SelectSubNode(index: SYSINT); safecall;
    procedure SelectParentNode; safecall;

  end;

implementation

uses ComServ,uMain,Dialogs;

procedure TMyExternal.SelectSubNode(index: SYSINT);
begin
  if not MainWindow.FeedTree.FocusedNode.Expanded then
    MainWindow.FeedTree.FocusedNode.Expand(false);
  MainWindow.FeedTree.SetFocusedNode(MainWindow.FeedTree.FocusedNode.Items[index],[]);
end;

procedure TMyExternal.SelectParentNode;
begin
  MainWindow.FeedTree.SetFocusedNode(MainWindow.FeedTree.FocusedNode.Parent,[]);
end;

initialization
  TAutoObjectFactory.Create(ComServer, TMyExternal, Class_MyExternal,
    ciInternal, tmApartment);
end.