打开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;
发表评论 取消回复