用DEV控件制作Ribbon不能更换皮肤

1、在设计期更换的皮肤，运行后不起作用，后来经过网上搜索，发现需要手动添加单元 dxskinsdxribbonpainter，之后一切正常。

2、一句话就可以实现换肤功能

  dxRibbon1.ColorSchemeName := SkinName;

支持的皮肤可以从dxRibbon1.ColorSchemeName中看到，主要有：

MoneyTwins
Office2007Blue
Office2007Green
Office2007Pink
Office2007Silver
Summer2008
Valentine
Xmas2008Blue
MoneyTwins

不能换肤太对不起编译之后超过10M还大的程序了。

3、读取系统中支持的所有皮肤。

Var

tmpRes, tmpSkin: TStringList;

begin

tmpRes := TStringList.Create;

tmpSkin := TStringList.Create;

dxSkinsDefaultPainters.dxSkinsPopulateSkinResources(HInstance,tmpRes, tmpSkin);

combobx1.Items.Assign(tmpSkin);

dxBarCombo.Items.Assign(tmpSkin);

tmpRes.Free;

tmpSkin.Free;

end;