uihintinf.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uIHintInf;

interface

uses controls,Messages,Classes,Forms,uDllfrmList,ComCtrls;

const
  EffectiveColor=14671839;

type
  TPDAData = record
    ID:integer;
    Caption:string;
    Target:string;
    Desc:string;
    ImageIndex:integer;
  end;

  PPDAData=^TPDAData;

  TTaskData = record
    ID:integer;
    Caption:string;
    AType:integer;
    Circle:integer;
    Text:string;
    Date:TDate;
    Time:TTime;
    TypeDesc:string;
    CircleDesc:string;
    Runned:integer;
  end;

  PTaskData=^TTaskData;

  TCustomData = record
    ID:integer;
    Caption:string;
    Path:string;
    Desc:string;
  end;

  PCustomData=^TCustomData;

  TLinkManData = record
    ID:integer;
    Name:string;
    Phone:string;
    Fax:string;
    EMail:string;
    Address:string;
  end;

  PLinkManData=^TLinkManData;

  TFolderData = record
    ID:integer;
    Text:string;
    CreateData:TDatetime;
    Locked:Boolean;
    Pro:integer;
    IsFile:byte;
  end;

  PFolderData=^TFolderData;

  cmdType=(cdAdd,cdEdit);
  frmType=(fmPDA,fmTask,fmWebLink,fmMp3,fmImage,fmLinkMan,fmFolder);

  IOprList = interface(Iinterface)
  ['{76C36BC7-0F8C-4AFB-8C3C-791C810B02D4}']
    //Common
    function GetData(AfrmType:frmType;Params:variant):OLEVariant;stdcall;
    function GetCaption:string;stdcall;
    function GetApplication:TApplication;stdcall;
    function GetScreen:TScreen;stdcall;
    function GetHintWindow:THintWindowClass;stdcall;
    function GetDllfrmList:TDllfrmList;stdcall;
    function Createfrm(AData:Pointer;AcmdType:cmdType;AfrmType:frmType):Boolean;stdcall;
    function DelNode(ID:integer;AfrmType:frmType):Boolean;stdcall;
    procedure RunListfrm(index,FoldersID:integer;caption:string);stdcall;
    procedure CreatewMenu(AID:integer;Acaption:string);stdcall;
    procedure DeletewMenu(AID:integer);stdcall;
    procedure RefreshwMenu(AID,ANewID:integer;Acaption:string);stdcall;
    function GetSecPlugList:TInterfaceList;stdcall;

    //PDA
    function GetImageList: TImageList;stdcall;
    procedure SetImageList(const Value: TImageList);stdcall;

    //Task
    function GetTaskData:PTaskData;stdcall;
    procedure SetTaskData(const value:PTaskData);stdcall;
    function GetTaskList:TList;stdcall;
    procedure NewTaskData;stdcall;
    procedure ShowHint(Data:PTaskData);stdcall;

    //Folder
    function AddNode(ID:integer;IsFile:Byte):TTreeNode;stdcall;
    procedure ViewNode(ID:integer);stdcall;
    procedure UpdateFile(Text:TStream;ID:integer;const ActiveForm:TComponent);stdcall;
    procedure ReadFile(Text:TStream;ID:integer);stdcall;
    function ShowSaveDlg:Boolean;stdcall;

    //Text
    procedure InsAccessories(Bin:TStream;ID,FileID:integer;FileName:string);stdcall;
    procedure DelAccessories(ID,FileID:integer);stdcall;
    function ReadAccessoryList(ID:integer):OLEVariant;stdcall;
    procedure DownLoad(Bin:TStream;ID,FileID:integer);stdcall;
    function GetFileReadOnly(FileID:integer):Boolean;stdcall;
    procedure SaveFileTextToDB(Text:TStream);stdcall;
    procedure ReadFileTextFromDB(Text:TStream);stdcall;
    function GetFileType:integer;stdcall;
    procedure SetFileType(const Value:integer);stdcall;

    //common
    property Caption:string read GetCaption;
    property Application:TApplication read GetApplication;
    property Screen:TScreen read GetScreen;
    property HintWindow:THintWindowClass read GetHintWindow;
    property DllfrmList:TDllfrmList read GetDllfrmList;

    //Text
    property FileType:integer read GetFileType write SetFileType;

    //PDA
    property LargeImageList:TImageList read GetImageList write SetImageList;

    //Task
    property TaskData:PTaskData read GetTaskData write SetTaskData;
    property TaskList:TList read GetTaskList;
  end;

implementation

end.