DELPHI XE4 让AlphaControls8.52改变DevExpress13.1.4皮肤

AlphaControls8.52下载地址：

http://download.csdn.net/detail/wozengcong/6791915

DevExpress VCL V13.1.4FullSource〖D7~XE5〗需要手动编译

http://download.csdn.net/detail/wozengcong/6630401

DevExpress VCL V13.1.4最新破解方法（EXE傻瓜安装破解法，解决手动编译工作量）

 http://download.csdn.net/detail/wozengcong/6643585

Delphi第三方皮肤组件AlphaControls的下载和使用方法

http://blog.csdn.net/zengcong2013/article/details/10800719

今天遇到个难题，在DELPHI XE4换环境下，安装AlphaControls8.52后，DevExpress13.1.4并没有跟着必变，查看英文安装文档说明后，最后发现AlphaControls本身是支持DEV组件的，只是默认是不改变，不过在inc文件中已经预定义了。有一个关键性文件sDefs.inc:去掉一个小数点即可，DELPH6和DELPHI2011两种模式划分，根据需要去掉需要使用的模式的小数点，XE是DELPHI2011以上版本

注意这种支持是在前台没有地方选择，是默认覆盖方式，所以如果是对DevExpress部分修改AlphaControls提供的皮肤是不行的，必须要AlphaControls提供的皮肤全部替换，或者全部不替换

另外还需要放一个DEC EXPRESS VCL 的TdxSkinController组件，设置NativeStyle为False；

-----------------------------------------------原内容部分载取-----------------------------------------------
{ ---- Definitions by Serge V. Goncharov ---- }


// << 3rdparty support start <<


{.$DEFINE DEVEX2011}  // DevExpress, LookAndFeel.NativeStyle property must be False
{.$DEFINE DEVEX6}     // Old version of DevExpress components, earlier than v2011


{.$DEFINE USEPNG}     // Support of TPngImageList from PngComponents


{.$DEFINE TNTUNICODE} // Enable Unicode support by TntControls


// >> 3rdparty support finish >>


{.$DEFINE ADDWEBBROWSER} // Support of the TWebBrowser
{.$DEFINE DISABLEPREVIEWMODE} // If key is enabled then preview code is excluded 
{.$DEFINE NOWNDANIMATION} // Disable animation effects for dialogs and forms
{.$DEFINE CHANGEFORMSINDESIGN} // Changing the forms colors in design-time
{.$DEFINE SKININDESIGN} // Skin control in frames in design-time
{.$DEFINE NOACPNG} // Do not use AlphaControls Png loader automatically
{.$DEFINE ALITE} // Free Lite Edition


// -- Experimental features -- //


{.$DEFINE NOSLOWDETAILS} // Simplified output without slow effects


{ ---- End defs by Serge V. Goncharov ---- }


{$DEFINE ALPHASKINS}


{$IFDEF VER250}
  {$DEFINE DELPHI_XE4}
  {$DEFINE DELPHI_XE3}
  {$DEFINE DELPHI_XE2}
  {$DEFINE D2011}
  {$DEFINE D2010}
  {$DEFINE D2009}
  {$DEFINE D2007}
  {$DEFINE D2006}
  {$DEFINE D2005}
  {$DEFINE DELPHI6UP}
  {$DEFINE DELPHI7UP}
  {$WARN UNIT_PLATFORM OFF}
  {$WARN SYMBOL_PLATFORM OFF}
  {$IFNDEF BCB}
    {$DEFINE SPLASH}
  {$ENDIF}  
{$ENDIF}

-----------------------------------------------原内容部分载取-----------------------------------------------

 
-----------------------------------------------新内容修改部分-----------------------------------------------

{ ---- Definitions by Serge V. Goncharov ---- }


// << 3rdparty support start <<


{$DEFINE DEVEX2011} // 《==============将前面的一个小点"."删除就OK，只需要操作一步
{.$DEFINE DEVEX6}     // Old version of DevExpress components, earlier than v2011


{.$DEFINE USEPNG}     // Support of TPngImageList from PngComponents


{.$DEFINE TNTUNICODE} // Enable Unicode support by TntControls


// >> 3rdparty support finish >>


{.$DEFINE ADDWEBBROWSER} // Support of the TWebBrowser
{.$DEFINE DISABLEPREVIEWMODE} // If key is enabled then preview code is excluded 
{.$DEFINE NOWNDANIMATION} // Disable animation effects for dialogs and forms
{.$DEFINE CHANGEFORMSINDESIGN} // Changing the forms colors in design-time
{.$DEFINE SKININDESIGN} // Skin control in frames in design-time
{.$DEFINE NOACPNG} // Do not use AlphaControls Png loader automatically
{.$DEFINE ALITE} // Free Lite Edition


// -- Experimental features -- //


{.$DEFINE NOSLOWDETAILS} // Simplified output without slow effects


{ ---- End defs by Serge V. Goncharov ---- }


{$DEFINE ALPHASKINS}


{$IFDEF VER250}
  {$DEFINE DELPHI_XE4}
  {$DEFINE DELPHI_XE3}
  {$DEFINE DELPHI_XE2}
  {$DEFINE D2011}
  {$DEFINE D2010}
  {$DEFINE D2009}
  {$DEFINE D2007}
  {$DEFINE D2006}
  {$DEFINE D2005}
  {$DEFINE DELPHI6UP}
  {$DEFINE DELPHI7UP}
  {$WARN UNIT_PLATFORM OFF}
  {$WARN SYMBOL_PLATFORM OFF}
  {$IFNDEF BCB}
    {$DEFINE SPLASH}
  {$ENDIF}  
{$ENDIF}
-----------------------------------------------新内容修改部分-----------------------------------------------



 
-----------------------------------------------原理部分载取--------------------------------------------------

     AlphaControls在acLFPainter单元中已经对DEV皮肤进行了覆盖。
    

unit acLFPainter;
{$I sDefs.inc//这里将预定义字符编译进单元


// WARNING! This unit is compatible with Devexpress version 2011
// for older versions the acLFPainter6 unit should be used


{$DEFINE VER12_2_3} // cxGrid version 12.2.3 and newer
{$DEFINE VER12_1_6}
{$DEFINE VER26}
{$DEFINE VER23}
{$DEFINE VER653}
{$DEFINE VER650}
{$DEFINE VER645}
{$DEFINE VER640}


{$IFDEF VER653}
  {$DEFINE VER650}
{$ENDIF}


{$IFDEF VER650}
  {$DEFINE VER645}
{$ENDIF}


{$IFDEF VER645}
  {$DEFINE VER640}
{$ENDIF}


{$IFNDEF VER645}
  {$UNDEF VER650}
{$ENDIF}


interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs{$IFNDEF DELPHI5}, Types{$ENDIF},
  sSkinManager, sStyleSimply, sMaskData, cxLookAndFeelPainters, cxGraphics, cxClasses, ImgList, dxCore
  {$IFDEF VER12_1_6}, cxPCPainters, cxPC, cxLookAndFeels, cxPCPaintersFactory {$ENDIF} ;


type


-----------------------------------------------原理部分载取--------------------------------------------------