获取DEV皮肤的颜色

打开ExpressSkins Library目录下面的dxSkinEditor.exe

//获取DEV皮肤颜色
function TdmImg.GetDevSkinColor(groupName, PropName: string; defaultColor: Tcolor;istext:Boolean=False): TColor;
var
  APainterInfo: TdxSkinLookAndFeelPainterInfo;
  ASkin: TdxSkin;
  Agroup: TdxSkinControlGroup;
  AElement: TdxSkinElement;
begin
  Result := defaultColor;
  if RootLookandFeel.Painter.GetPainterData(APainterInfo) then
  begin
    ASkin := APainterInfo.Skin;
    if ASkin.GetGroupByName(groupName, Agroup) then
      if Agroup.GetElementByName(PropName, AElement) then
      begin
        if istext then
          Result := AElement.TextColor
        else
          Result := AElement.Color;
      end;
  end;
end;