?? myexternal.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -