suiskin_tb2k.pas

来自「SUISkin 是为Delphi和C++Builder开发的最易用的界面增强VC」· PAS 代码 · 共 48 行

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   SUISkin_TB2K.pas
//  Creator     :   Shen Min
//  Date        :   2005-05-19
//  Comment     :   SUISkin for TB2K support
//
//  Copyright (c) 2002-2005 Sunisoft
//  http://www.sunisoft.com
//  Email: [e-mail]
//
////////////////////////////////////////////////////////////////////////////////
//
//  How to use:
//      Please add this unit to the "uses" clause of the unit where you
//  also inlcuded SUISkinEngine unit. And add this unit after SUISkinEngine.
//
//  E.g.
//
//  unit test;
//  interface
//  uses ..., SUISkinEngine, SUISkin_TB2K;
//  ...
//  ...

unit SUISkin_TB2K;

interface

uses
     SUISkinEngine;

implementation

procedure RegisterToSUISkinEngine();
begin
    RegisterBorderFilterClass('TTBDock');
    RegisterBorderFilterClass('TTBToolBar');
    RegisterBorderFilterClass('TTBToolWindow');
    g_ShowMDIControlButtons := false;
end;

initialization
    RegisterToSUISkinEngine();

end.