55 lines
1.5 KiB
ObjectPascal
55 lines
1.5 KiB
ObjectPascal
|
unit uInterfaces;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Classes, Forms, Menus, ActnList, Controls, uModuleController;
|
||
|
|
|
||
|
|
const
|
||
|
|
GET_MODULE_FUNC = 'GetModule';
|
||
|
|
|
||
|
|
type
|
||
|
|
TGetModuleFunc = function : TModuleController; stdcall;
|
||
|
|
|
||
|
|
{ IModule }
|
||
|
|
{ IModule = interface(IHostAware)
|
||
|
|
function GetDefaultAction: TAction;
|
||
|
|
property DefaultAction: TAction read GetDefaultAction;
|
||
|
|
|
||
|
|
function GetDescription: string;
|
||
|
|
property Description: string read GetDescription;
|
||
|
|
|
||
|
|
procedure SetHModule(const Value: HModule);
|
||
|
|
function GetHModule: HModule;
|
||
|
|
property ModuleHandle: HModule read GetHModule write SetHModule;
|
||
|
|
|
||
|
|
function GetMenu: IModuleMenu;
|
||
|
|
property Menu: IModuleMenu read GetMenu;
|
||
|
|
|
||
|
|
function GetModuleName: string;
|
||
|
|
property ModuleName: string read GetModuleName;
|
||
|
|
|
||
|
|
function GetSmallImages: TImageList;
|
||
|
|
function GetLargeImages: TImageList;
|
||
|
|
function GetLargeImagesDisabled: TImageList;
|
||
|
|
function GetLargeImagesHot: TImageList;
|
||
|
|
function GetSmallImagesDisabled: TImageList;
|
||
|
|
function GetSmallImagesHot: TImageList;
|
||
|
|
property SmallImages: TImageList read GetSmallImages;
|
||
|
|
property LargeImages: TImageList read GetLargeImages;
|
||
|
|
property SmallImagesDisabled: TImageList read GetSmallImagesDisabled;
|
||
|
|
property LargeImagesDisabled: TImageList read GetLargeImagesDisabled;
|
||
|
|
property SmallImagesHot: TImageList read GetSmallImagesHot;
|
||
|
|
property LargeImagesHot: TImageList read GetLargeImagesHot;
|
||
|
|
end;}
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils, Dialogs,
|
||
|
|
uHostManager;
|
||
|
|
|
||
|
|
{ TModuleInfo }
|
||
|
|
|
||
|
|
end.
|