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;