usecpluginf.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 49 行

unit uSecPlugInf;

interface

uses
  Classes,Controls,Graphics,Windows;

type
  TPlugType=(ptMain,ptPDA,ptTask,ptWebLink,ptMp3,ptImage,ptLinkMan,ptFolder,ptText,ptShell);

  ISecPlug=interface
  ['{0661E95C-2010-44DD-8785-75564A5DDF8F}']
    function GetName:widestring;stdcall;
    function GetVer:widestring;stdcall;
    function GetPlugType:TPlugType;stdcall;
    function GetAutoExec:Boolean;stdcall;
    function GetDescription:widestring;stdcall;
    function GetFileName:widestring;stdcall;
    function GetPlugImages:TImageList;stdcall;
    function GetDisplayInMenu:Boolean;stdcall;
    function GetDrawMenu:Boolean;stdcall;
    function GetHostForm:TComponent;stdcall;
    procedure SetHostForm(const value:TComponent);stdcall;
    function GetHostID:integer;stdcall;
    procedure SetHostID(const value:integer);stdcall;
    procedure Execute;stdcall;
    procedure Load;stdcall;
    procedure UnLoad;stdcall;
    procedure Action(Params:variant);stdcall;
    procedure GetContext;stdcall;
    procedure MenuPopup(Params:variant;var PlugName:widestring;var ItemHeight,ItemWidth:integer);stdcall;
    procedure DrawMenuItem(ACanvas: TCanvas;ARect: TRect);stdcall;
    property Name:widestring read GetName;
    property Ver:widestring read GetVer;
    property PlugType:TPlugType read GetPlugType;
    property AutoExec:Boolean read GetAutoExec;
    property DisplayInMenu:Boolean read GetDisplayInMenu;
    property DrawMenu:Boolean read GetDrawMenu;
    property Description:widestring read GetDescription;
    property FileName:widestring read GetFileName;
    property PlugImages:TImageList read GetPlugImages;
    property HostForm:TComponent read GetHostForm write SetHostForm;
    property HostID:integer read GetHostID write SetHostID;
  end;

implementation

end.