OrangeUI-开放-免费

由于OrangeUI特殊的原因,
SelfOwnMaterial的类型默认是TSkinControlMaterial,
TSkinControlMaterial是素材的基类型,
拥有BackColor和IsTransparent两个重要的属性,
每个控件都有自己类型的SelfOwnMaterial,
比如按钮默认的SelfOwnMaterial实际的类型是TSkinButtonDefaultMaterial,
TSkinButtonDefaultMaterial的继承关系为:
TSkinButtonDefaultMaterial->TSkinButtonMaterial->TSkinControlMaterial,
因此要在代码中设置控件的素材,
需要使用控件的SelfOwnMaterialToDefault属性,
把SelfOwnMaterial转换为TSkinButtonDefaultMaterial类型,
 
比如我要设置按钮的背景色为白色:
Button.SelfOwnMaterialToDefault.BackColor.FillColor.Color:=TAlphaColorRec.White;
 
举例:
在窗体上拖一个FMXButton,

在按钮的点击事件中,写上如下代码:

procedure TFrameSetBackColor.btnSetColorByCodeClick(Sender: TObject);
begin
 
SkinFMXButton3.Caption:='我是代码设置的按钮';
 
//设置按钮为不透明
SkinFMXButton3.SelfOwnMaterialToDefault.IsTransparent:=False;
//按钮背景颜色填充
SkinFMXButton3.SelfOwnMaterialToDefault.BackColor.IsFill:=True;
//设置为圆角
SkinFMXButton3.SelfOwnMaterialToDefault.BackColor.IsRound:=True;
//按钮背景颜色设置为蓝色
SkinFMXButton3.SelfOwnMaterialToDefault.BackColor.FillColor.Color:=TAlphaColorRec.Cornflowerblue;
//按钮背景颜色鼠标点击效果
SkinFMXButton3.SelfOwnMaterialToDefault.BackColor.DrawEffectSetting.MouseDownEffect.CommonEffectTypes
:=[dpcetAlphaChange];
//按钮标题字体设置为白色
SkinFMXButton3.SelfOwnMaterialToDefault.DrawCaptionParam.FontColor:=TAlphaColorRec.White;
SkinFMXButton3.SelfOwnMaterialToDefault.DrawCaptionParam.FontSize:=14;
//按钮标题垂直居中
SkinFMXButton3.SelfOwnMaterialToDefault.DrawCaptionParam.FontVertAlign:=TFontVertAlign.fvaCenter;
//按钮标题水平居中
SkinFMXButton3.SelfOwnMaterialToDefault.DrawCaptionParam.FontHorzAlign:=TFontHorzAlign.fhaCenter;
//按钮标题鼠标点击效果
SkinFMXButton3.SelfOwnMaterialToDefault.DrawCaptionParam.DrawEffectSetting.MouseDownEffect.CommonEffectTypes
:=[dpcetAlphaChange];
 
end;
 
然后我们运行这个示例:

点击按钮看一下效果:
看,按钮的素材都设置好了,