xptheme.pas

Delphi函数工厂。。。。。。。。。。。。。

unit XPTheme;

{
  本文件包含 XP 效果引用。任何需要在 XP 下显示成 XP 标准程序效果的程序
  必须在 Project 中的 Uses 最前面引用本单元（如果您的 Project 文件中引用
  了 DelphiMM 或 ShareMem 单元的话，可以将本单元的引用放在第二位）。
}

interface

implementation

{$R XPTheme.res}

uses
  CommCtrl;

initialization
  { Note: This call is required!}
  InitCommonControls;
end.