uiappinf.pas

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

unit uIAppInf;

interface

uses
  classes,Forms,Controls,StdCtrls,ExtCtrls;

type
  TToolBarDockPosition = (dpTop, dpBottom, dpLeft, dpRight);
  TToolBarDockableTo = set of TToolBarDockPosition;
  TToolBarDockMode = (dmCanFloat, dmCannotFloat, dmCannotFloatOrChangeDocks);

  TListType=(ltMp3,ltPic,ltWeb,ltApp);
  TFileType=(ftText,ftRtf,ftRvf);


  IApp=interface(Iinterface)
  ['{66A015CA-5E53-4A28-999C-3F1775B4F8D5}']
    //Action
    procedure AddFriend;stdcall;
    //GUI
    function GetAppMainForm:TForm;stdcall;
    function GetApplication:TApplication;stdcall;
    procedure SetApplication(const value:TApplication);stdcall;
    function GetAppMainToolDock:TComponent;stdcall;
    function CreateToolBar(Dock:TComponent;DockableTo:TToolBarDockableTo;Caption:string):TComponent;stdcall;
    function CreateDock(Position:TToolBarDockPosition;Parent:TWinControl):TComponent;stdcall;
    procedure LockTooBar(ToolBar:TComponent);stdcall;
    procedure UnLockTooBar(ToolBar:TComponent);stdcall;
    procedure ShowToolBar(ToolBar:TComponent);stdcall;
    procedure FreeToolBar(ToolBar:TComponent);stdcall;
    procedure SetToolBarClose(ToolBar:TComponent;OnClose:TNotifyEvent);stdcall;
    procedure SetToolBarCaption(ToolBar:TComponent;const value:string);stdcall;
    procedure SetToolBarDockMode(ToolBar:TComponent;const value:TToolBarDockMode);stdcall;
    function CreateToolBarBtn(AOwner:TComponent):TComponent;stdcall;
    function CreateSeparator(AOwner:TComponent):TComponent;stdcall;
    function CreateProgressBar(AOwner:TComponent;Width:integer):TComponent;stdcall;
    function CreateStatusBar(AOwner:TWinControl):TComponent;stdcall;
    function CreateTextLabel(AOwner:TComponent):TComponent;stdcall;
    procedure SetControlCaption(Control:TComponent;const value:string);stdcall;
    procedure SetControlHint(Control:TComponent;const value:string);stdcall;
    procedure SetControlImages(Control:TComponent;const value:TImageList;const ImageIndex:integer);stdcall;
    procedure SetBtnClick(Btn: TComponent;OnClick:TNotifyEvent);stdcall;
    procedure SetProgressBarPosition(Bar:TComponent;const value:Cardinal);stdcall;
    function GetProgressBarPosition(Bar:TComponent):Cardinal;stdcall;
    procedure SetProgressBarMax(Bar:TComponent;const value:Cardinal);stdcall;
    function CreatePlugForm(ParentHandle:THandle;ShowOnTask:Boolean):TForm;stdcall;
    procedure CreateSkinPanel(Parent:TWinControl);stdcall;
    function CreateControl(ControlClass:TControlClass;Parent:TWinControl):TControl;stdcall;
    //Data
    procedure GetFilesPath(var val:widestring;ListType:TListType);stdcall;
    procedure FreeObject(Obj:TObject);stdcall;
    procedure ReadFileText(Text:TStream;FileType:TFileType;frm:TForm);stdcall;
    procedure SaveFileText(Text:TStream;FileType:TFileType;frm:TForm);stdcall;

    property AppMainForm:TForm read GetAppMainForm;
    property AppMainToolDock:TComponent read GetAppMainToolDock;
    property Application:TApplication read GetApplication write SetApplication;
  end;

implementation

end.