用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;